更新记录集的嵌套循环不起作用 Access

Question

我计划通过表格在我的表格中搜索和更新符合我的条件的记录。 我希望我的代码在匹配时搜索 OrderNo 和 OrderNoItem（对于每个 orderno，我的表中有多个 OrderNoItem，例如 10,20,30 ...），我想从我的更新客户名称（Text18.Value）表格。

我有以下代码。出于某种原因，它只是只更新第一条记录。例如，当我输入 Text25.Value = 12345、Text27.Value = 20 和 Text49.Value = 40 时，它只更新 12345 和 20 行的客户名称。有人可以帮忙吗？？

Set logDB1 = CurrentDb()
Set logRS1 = logDB1.OpenRecordset("Log")   

For i = Text27.Value To Text49.Value Step 10
    Do Until logRS1.EOF
         If (logRS1![OrderNo] = Text25.Value And logRS1![OrderNoItem] = Text27.Value) Then
    
            logRS1.Edit
            logRS1![DTN-#] = Text18.Value
            logRS1.Update
          
         End If
    logRS1.MoveNext
    Loop
        
    Next

Answer 1

因为代码设置为执行此操作。这正是 If 条件所要求的。您应该打开按 OrderNo 和 OrderNoItem 范围过滤的记录集，然后循环这些记录。

Set logDB1 = CurrentDb()
Set logRS1 = logDB1.OpenRecordset("SELECT [DTN-#] FROM Log WHERE OrderNo='" & _
                Me.Text25 & "' AND Val(OrderNoItem) BETWEEN " & Me.Text27 & " AND " & Me.Text49)   

    Do Until logRS1.EOF
        logRS1.Edit
        logRS1![DTN-#] = Me.Text18
        logRS1.Update
        logRS1.MoveNext
    Loop

或者不是打开和循环记录集，而是执行一个 UPDATE 操作 SQL：

CurrentDb.Execute "UPDATE Log SET [DTN-#]='" & Me.Text18 & _
     "' WHERE OrderNo = '" & Me.Text25 & "' AND Val(OrderNoItem) BETWEEN " & Me.Text27 & " AND " & Me.Text49

如果 OrderNo 是数字字段，请删除撇号分隔符。

强烈建议不要在命名约定中使用标点符号/特殊字符（下划线除外）。最好是 DTN_Num。