Run-Time error '438'

[awelch]

I had a working Access 2000 db, upsized it to a SQL 7.0 backend and now my combo boxes are not working. I receive a run-time error 438 message whenever I use them. The debugger is highlighting my code in the after_update event of the combo box that sets the rs.FindFirst = Me!. Here is a copy of the code:
Private Sub cbxSuite_AfterUpdate()
Dim rs as Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SuiteID] = "&(Me![cbxSuite])
Me.Bookmark = rs.Bookmark
End Sub

Any ideas would be greatly appreciated.

 

[LarryDeLaruelle]

I encountered a similar problem with a split database (both Access 97) and it may apply to your situation. This is from the help file on FindFirst:

In an ODBCDirect workspace, the Find and Seek methods are not available on any type of Recordset object, because executing a Find or Seek through an ODBC connection is not very efficient over the network. Instead, you should design the query (that is, using the source argument to the OpenRecordset method) with an appropriate WHERE clause that restricts the returned records to only those that meet the criteria you would otherwise use in a Find or Seek method.

Hope this helps. Larry De Laruelle
ldelaruelle@familychildrenscenter.org

 

[awelch]

Thank you! Thank you! Thank you! I was just about to call microsoft. You just saved me $250.00!

 

[LarryDeLaruelle]

Happy to help. Larry De Laruelle
ldelaruelle@familychildrenscenter.org