By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,479 Members | 1,622 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,479 IT Pros & Developers. It's quick & easy.

Runtime Error '3077'

P: 3
Hi All,

How can i get rid of this error?

Below is the code that i used:

Expand|Select|Wrap|Line Numbers
  1. Private Sub FindAppID_Click()
  2. 'Find Record matching Product ID
  3. Dim m_find, rst As Recordset
  4.  
  5. m_find = Me![xFind]
  6. If IsNull(m_find) Then
  7.    Me.FilterOn = False
  8.    Exit Sub
  9. End If
  10.  
  11. If Val(m_find) = 0 Then
  12.   MsgBox "Give App ID Number..!"
  13.    Exit Sub
  14. End If
  15.  
  16. If Val(m_find) > 0 Then
  17.    Set rst = Me.RecordsetClone
  18.    rst.FindFirst "App ID = " & m_find
  19.    If Not rst.NoMatch Then
  20.       Me.Bookmark = rst.Bookmark
  21.    End If
  22.    rst.Close
  23. End If
The error is being encountered on:

Expand|Select|Wrap|Line Numbers
  1. rst.FindFirst "App ID = " & m_find
Please help :(
Nov 11 '11 #1
Share this Question
Share on Google+
2 Replies


Expert 100+
P: 446
Hi M
I would start by putting "App ID" inside square brackets [App ID], because it has a space in it.
S7
Nov 11 '11 #2

NeoPa
Expert Mod 15k+
P: 31,709
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.
Nov 11 '11 #3

Post your reply

Sign in to post your reply or Sign up for a free account.