runtime error 438 after importing project

[serviceman via AccessMonster.com]

Me Again,
I just imported a working project from an SQL server based setup to an Access
based setup, and now this code is giving me a 'runtime error 438 not
defined' message :

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

Set rs = Me.Recordset.Clone
rs.Find "STUDENT_ID = " & Str(Nz(Me![Combo108], 0)) <----bookmark of
error
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.requery "Combo108"
End Sub

I pretty sure this is a screwed up reference, but I can't seem to find it.
Any Ideas?

--
A $300 dollar picture tube will protect a 10 cent fuse by blowing first-
Murphy

Message posted via http://www.accessmonster.com

[serviceman via AccessMonster.com]

Sorry,
Make that 'Runtime erros 438: Object doesn't support this property or method'.
...

serviceman wrote:

Me Again,
I just imported a working project from an SQL server based setup to an Access
based setup, and now this code is giving me a 'runtime error 438 not
defined' message :

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

Set rs = Me.Recordset.Clone
rs.Find "STUDENT_ID = " & Str(Nz(Me![Combo108], 0)) <----bookmark of
error
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
DoCmd.requery "Combo108"
End Sub

I pretty sure this is a screwed up reference, but I can't seem to find it.
Any Ideas?

--
A $300 dollar picture tube will protect a 10 cent fuse by blowing first-
Murphy

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200605/1

[serviceman via AccessMonster.com]

Got it.
It isn't 'Find' but rather 'FindFirst'....

serviceman wrote:

Sorry,
Make that 'Runtime erros 438: Object doesn't support this property or method'.
..

Me Again,
I just imported a working project from an SQL server based setup to an Access

[quoted text clipped - 14 lines]

I pretty sure this is a screwed up reference, but I can't seem to find it.
Any Ideas?

--
A $300 dollar picture tube will protect a 10 cent fuse by blowing first-
Murphy

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200605/1