What did I do wrong?

[rgreene]

I had this database working just fine and I haven't used it for awhile but now I get and error. Here is the code and error any suggestions?

Private Sub QuickSearch_AfterUpdate()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone
rs.FindFirst "[BookID] = " & Str(Me![QuickSearch])
Me.Bookmark = rs.Bookmark

End Sub

Compile Error:
Can't find project or library

It takes me to the code screen where the Private Sub QuickSearch_AfterUpdate() is highlighted in yellow and the block cursor is on the Str

It's a library database and I click on the book's name and I get this.

Hope that's enough info. If not let me know.

Rick

 

[Sergeant]

I'm not sure why that would break it, but you might just try taking out the Str()...
rs.FindFirst "[BookID] = " & Me.QuickSearch
I assume that BookID is a numeric field.

 

[RV]

Check your references (VB form => Tools => References)

RV