Question

我试图创建一个Access数据库，在这个表单上，我有一个以表格中的字段命名的文本框。在子表单中，在数据表模式下，除了一个字段外的所有字段都处于非活动状态，因此我可以通过条形码扫描序列号。其他字段应该由＆＃34;更新全部＆＃34;更新。使用文本框在父窗体上的按钮。

对于后台，这是通过将数据添加到Access DB来更新并添加到当前Excel工作表。目前在Excel中，用户有一个打开的窗口，其中包含复选框和全选功能，可以有选择地将文本字段中的数据应用到工作表中。

我当前的代码仅更新所选记录。

Set rs = CurrentDb.OpenRecordset("select me.trap_scan1!trap_notes,,,")
For Each fld In rst.Fields
    'print field names
    Debug.Print fld.Name
    Next
    'db.OpenRecordset("Traps", dbOpenDynaset)
    'Me.Trap_Scan1!Trap_Notes
    With rs
        .MoveFirst
        Do While Not .EOF
       ' If (Trim(![release code] & "") = "") Then
       ' .Edit
        ![release code] = Me.Trap_Notes
        .Update
  '  End If
    .MoveNext
    Loop
End With
Set rs = Nothing

还试过这个：

If Not 
IsNull(Me.Trap_Style) 
Then
    Set Me.Trap_Scan1!Trap_Style = Me.Trap_Style
    End If

Access子窗体中的批量更新字段

0 个答案: