如何适应新代码行的插入

Question

我在下面有以下代码，它基于值字段（其中包含数据）按顺序构建/创建描述。例如，我有一个包含以下字段的表... 物品 分类 属性名称 价值 计量单位 状态

我要做的是插入一行代码，该代码将仅从状态字段 = 活动的值字段（其中包含数据）构建描述。状态字段信息是“活动”或“外国”。目前，如果 Status 字段显示“Foreign”，则代码还将为这些我刚刚学到的不应该包含的记录构建描述。

任何帮助将不胜感激！同样，下面是代码...

Sub SD()
DoCmd.SetWarnings False

Dim db As DAO.Database
Dim rsMara, rs_cou As DAO.Recordset
Dim rs, rs2, x As DAO.Recordset
Dim SD, strAttribute, strValue, sdvalue As String
Dim seq, d, count1 As Integer
Set db = CurrentDb

db.Execute ("UPDATE Item_Template SET Description = '', Long_Description = '';")
Set rsMara = db.OpenRecordset("select * from [Item_Template] order by [Item]")

While Not rsMara.EOF
If rsMara.Fields("Classification") & "" <> "" Then
SD = UCase(rsMara.Fields("Classification")) & ": "
seq = 1
Set rs = db.OpenRecordset("select * from All_Item_Attributes where [Item] = '" & rsMara.Fields("Item") & "' and [Value] & '' <> '' order by [Item],[Sequence (Cls Attribute Mapping)]")

While Not rs.EOF
If (rs.Fields("UOM") Like "IN*" Or rs.Fields("UOM") Like "O*") Then
     SD = SD & rs.Fields("Value") & " " & UCase(rs.Fields("UOM")) & ", "
Else
     SD = SD & rs.Fields("Value") & " " & UCase(rs.Fields("UOM")) & ", "
End If
rs.MoveNext
Wend
        SD = Trim(SD)
        rsMara.Edit
        SD = Trim(Mid(SD, 1, Len(SD) - 1))
        rsMara.Fields("Description") = Trim(SD)
        rsMara.Fields("Description") = Replace(rsMara.Fields("Description"), " ,", ", ")
        rsMara.Fields("Description") = Replace(rsMara.Fields("Description"), "  ", " ")
        rsMara.Update
End If
DoEvents
rsMara.MoveNext
Wend
End Sub

Answer 1

你没有说Status这个字段在哪个表。
您有两行代码打开记录集，因此它将是以下代码行之一：

Set rsMara = db.OpenRecordset("select * from [Item_Template] WHERE Status='Active' order by [Item]")  

或

Set rs = db.OpenRecordset("select * from All_Item_Attributes where [Item] = '" & rsMara.Fields("Item") & "' and [Value] & '' <> '' AND Status='Active' order by [Item],[Sequence (Cls Attribute Mapping)]")

基本上将Status='Active' 添加到WHERE 子句中。如果您的 Status 字段是查找字段，则这将不起作用，在这种情况下，您需要使用将其链接到状态类型表的 外键 值。以Status=1 为例。