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

时间:2014-10-30 13:31:47

标签: ms-access subform

我试图创建一个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

0 个答案:

没有答案