Runtime Error '3077'

[mesairv]

Hi All,

How can i get rid of this error?

Below is the code that i used:

Private Sub FindAppID_Click()
'Find Record matching Product ID
Dim m_find, rst As Recordset
 
m_find = Me![xFind]
If IsNull(m_find) Then
   Me.FilterOn = False
   Exit Sub
End If
 
If Val(m_find) = 0 Then
  MsgBox "Give App ID Number..!"
   Exit Sub
End If
 
If Val(m_find) > 0 Then
   Set rst = Me.RecordsetClone
   rst.FindFirst "App ID = " & m_find
   If Not rst.NoMatch Then
      Me.Bookmark = rst.Bookmark
   End If
   rst.Close
End If

The error is being encountered on:

rst.FindFirst "App ID = " & m_find

Please help :(

[sierra7]

Hi M
I would start by putting "App ID" inside square brackets [App ID], because it has a space in it.
S7

[NeoPa]

S7 has given you the correct answer, but your question lacked the requisite info to make proper sense (Particularly, but not limited to, the error message). Please consider posting your question properly in future, and while you're here, may I suggest S7's post is a good candidate for you to select as Best Answer.