Question

我猜这个问题已经得到了回答，但我似乎无法说出寻求帮助的权利。

无论如何，我正在使用条形码扫描仪来查找记录（它只是在文本框中输入数字然后点击进入）。我需要做的是，当找到记录时（使用rs.FindFirst），复选框字段（命名为“审核检查”）将被检查。

以下是我的搜索代码，我觉得它可以合并到此活动中。

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

在记录获得焦点时选中复选框

1 个答案: