Compile Error

[robmkimmons]

I just got a new computer and transfered my Access files over. On one of my forms i have the generic combo box which populates the form from the selection you make within the list. However, it produces a Compile Error when i select a row within the combo box stating:

"Can't find object or library"

Here is the code:

Private Sub cboSearch_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[CompanyID] = " & Str(Me![cboSearch])
Me.Bookmark = rs.Bookmark
End Sub

(The code is straight out of a wizard in Access)



~Rob

If we expect the unexpected, does that make the unexpected... well, expected?

 

[ByteMyzer]

First of all, you might wish to change

Set rs = Me.Recordset.Clone

...to

Set rs = Me.RecordsetClone

 

[PHV]

Replace this:
Dim rs As Object
By this:
Dim rs As DAO.Recordset
Check that Microsoft DAO 3.x Object Library is referenced.

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244