Recordset problems

[paulquinlan100]

Hi

I keep getting the error message "Compile Error: Method or data member
not found" when using the following code to open a recordset, the
".FindFirst" part is highlighted:

Dim rst As DAO.Recordset
Dim strSearchName As Integer
Dim db As DAO.Database

Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("SELECT SS_NP2.StoreRef, SS_NP2.URN From
SS_NP2 WHERE SS_NP2.storeref = " & Forms!frmMyForm![cboURN]

strSearchName = Me!cboURN
rst.FindFirst "StoreRef = " & strSearchName
rst.FindFirst
If rst.NoMatch Then
' MsgBox "Record not found"
Exit Sub
End If
rst.Close

All i want to do is exit the proc if the recordset returns no records.

Any ideas?
Thanks for any suggestions.
Paul

[salad]

pa************@hotmail.com wrote:

Hi

I keep getting the error message "Compile Error: Method or data member
not found" when using the following code to open a recordset, the
".FindFirst" part is highlighted:

Dim rst As DAO.Recordset
Dim strSearchName As Integer
Dim db As DAO.Database

Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("SELECT SS_NP2.StoreRef, SS_NP2.URN From
SS_NP2 WHERE SS_NP2.storeref = " & Forms!frmMyForm![cboURN]

strSearchName = Me!cboURN
rst.FindFirst "StoreRef = " & strSearchName
rst.FindFirst

Why do you have a second FindFirst?

If rst.NoMatch Then
' MsgBox "Record not found"

You might want to close the recordset and set it to nothing prior to
leaving the sub

Exit Sub
End If
rst.Close

All i want to do is exit the proc if the recordset returns no records.

Any ideas?
Thanks for any suggestions.
Paul