Αναζήτηση

[Ascinis]

Λοιπόν, το έλυσα το θέμα που είχα με βάση το παρακάτω κώδικα:

Private Sub txtSearch_AfterUpdate()

'Find record based on contents of txtSearch.
Dim strSearch As String
On Error GoTo errHandler
'Delimited for text search.
'strSearch = "OrderID = " & Chr(39) & Me!txtSearch.Value & Chr(39)
'Delimited for numeric values.
strSearch = "proAA = " & Me!txtSearch.Value
'Find the record.
Me.RecordsetClone.FindFirst strSearch
Me.Bookmark = Me.RecordsetClone.Bookmark
Exit Sub
errHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
End Sub