If you need to find the first record in a recordset that matches a string value, you will need to use double quotes.
The procedure below is triggered by a command button called cmdFind_PONumber.
The name of the form is irrelevant, that is why we use " Me. " to designate the currently active form.
The form has a text box called txtFind where the search criteria is entered.
Example:
Private Sub cmdFind_PONumber_Click()
Dim strPONum As String
Dim db As DAO.Database
Dim rstClone As DAO.Recordset
Set db = CurrentDb
Set rstClone = Me.RecordsetClone
strPONum = Me.txtFind
' PONumber is the name of the field in the underlying table
' strPONum comes from the active form (Me.) and a text box called txtFind
rstClone.FindFirst "PONumber = """ & strPONum & """"
If rstClone.NoMatch Then
MsgBox "PO Number NOT Found!"
Else
MsgBox "PO Number Found!"
End If
End Sub
Tuesday, April 19, 2005
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment