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

对于后台，这是通过将数据添加到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
ms-access subform