Что не так с этим кодом для фильтрации данных?

Question

Private Sub txtSearchJobNo_AfterUpdate()
Dim rst As DAO.Recordset, strCriteria As String
strCriteria = "[A_JOBNO]=" & txtSearchJobNo
Me.FilterOn = False
'-- Me.Filter = strCriteria
Me.FilterOn = True
Set rst = Me.RecordsetClone
rst.FindFirst(strCriteria"[A_JOBNO]=" & txtSearchJobNo)
If rst.NoMatch Then
MsgBox "No entry found"
Else
Me.Bookmark = rst.Bookmark
End If
End Sub

Выше приведен код, который я пытаюсь использовать для фильтрации данных в моей форме на основе ввода пользователя в текстовое поле. Ничего абсолютно не происходит.

Answer 1

Вам нужны кавычки для текстовых полей.

Private Sub txtSearchJobNo_AfterUpdate()
   Dim rst As DAO.Recordset, strCriteria As String

   strCriteria = "[A_JOBNO]=" & txtSearchJobNo
   Set rst = Me.RecordsetClone
   rst.FindFirst(strCriteria"[A_JOBNO]='" & txtSearchJobNo) & "'"

   If rst.NoMatch Then
      MsgBox "No entry found"
   Else
      Me.Bookmark = rst.Bookmark
     'Filter here or bookmark, not both
   End If
End Sub