0

これは以前に回答されていると思いますが、助けを見つけるためにそれを正しく言葉にすることはできません。

とにかく、私はバーコードスキャナーを使用してレコードを検索しています（テキストボックスに数字を入力してEnterキーを押すだけです）。必要なのは、(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

どうもありがとう！

4

1 に答える 1

0

変更してみる

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

に

If Not rs.EOF Then 
Me.Bookmark = rs.Bookmark
Me.MyCheckbox = True
End If
于 2013-10-29T17:19:15.777 に答える