vba - 记录获得焦点时选中复选框

Question

我猜这之前已经回答过了，但我似乎无法正确地找到帮助。

无论如何，我正在使用条形码扫描仪来查找记录（它只是在文本框中输入数字，然后按回车键）。我需要做的是，当找到记录时（使用 rs.FindFirst），复选框字段（名为“Audit Check”）被选中。

这是我的搜索代码，我感觉可以合并到这个事件中。

Private Sub BarcodeBox_AfterUpdate()
Dim rs As DAO.Recordset

If Not IsNull(Me![Barcodebox]) Then
  Set rs = Me.RecordsetClone
  rs.FindFirst "[Barcode] = '" & Me![Barcodebox] & "'"
  If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
  Exit Sub
End If
End Sub

非常感谢你们！

Answer 1

尝试改变

  If Not rs.EOF Then Me.Bookmark = rs.Bookmark

至

If Not rs.EOF Then 
Me.Bookmark = rs.Bookmark
Me.MyCheckbox = True
End If