Getting error code 3070 for combo box

[lycialive]

Error 3070 the microsoft office access database engine does not recognize ID as a valid field name or expression. I get this error, but I've used the same code for other databases. Can anyone help? It's for a simple combo box:

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

Set rs = Me.Recordset.Clone


rs.FindFirst "[ID] = " & Str(Nz(Me![Combo11], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Thanks!

[June7]

ID is autonumber field? Why are you using the Str function?

[lycialive]

I don't know vb at all, the code was given to me. I've just been using it, and it works okay for things in the past.

[June7]

Is ID an autonumber field? Why don't you try without the Str function?

Assuming ID is actually a field in the form's RecordSource.

[lycialive]

Is ID an autonumber field? Why don't you try without the Str function?

Assuming ID is actually a field in the form's RecordSource.

I'll try that, thanks!

[lycialive]

Yes, the ID appears to be an autonumber field. But using the code without the str doesn't work. I just tried it now.

[June7]

Guess will have to provide db for analysis. Follow instructions at bottom of my post. Identify objects involved in issue.

[Missinglinq]

Don't have time to test this, but with the code

rs.FindFirst "[ID] = " & Str(Nz(Me![Combo11], 0))

you're forcing Me![Combo11] to be a String, but your syntax in that line is only correct for a Number! I'd try replacing it with the syntax for Text

rs.FindFirst "[ID] = '" & Str(Nz(Me![Combo11], 0)) & "'"

and see what happens.

Linq ;0)>

[lycialive]

Thanks for all the replies. I just re-built it with Access 2003 using the same coding and everything works perfect.

[June7]

Don't know why the code works with 2003 but think just realized the problem with code in 2007/2010. It is the dot (.) in Recordset.Clone.

Don't really need to declare rs Object. Alternative code:

With Me.RecordsetClone
.FindFirst "[ID] = " & Nz(Me.Combo11, 0)
If Not .EOF Then Me.Bookmark = .Bookmark
End With