runtime error '3077' help please

[ebasshead]

Hi everybody, I'm getting a syntax error message with my code below (using a combo box to pull data from a table), the combo box will work a few times and then this message pops up.

Runtime error :'3077'
Syntax error (missing operator) in expression

The code is below with...

rs.FindFirst "[Property] = '" & Me![Combo4] & "'"

highlighted in yellow

but I can't see what may be wrong with it, the full expression is below

Option Compare Database

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[Property] = '" & Me![Combo4] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Thanks for any help. Eddie

[ADezii]

Hi everybody, I'm getting a syntax error message with my code below (using a combo box to pull data from a table), the combo box will work a few times and then this message pops up.

Runtime error :'3077'
Syntax error (missing operator) in expression

The code is below with...

rs.FindFirst "[Property] = '" & Me![Combo4] & "'"

highlighted in yellow

but I can't see what may be wrong with it, the full expression is below

Option Compare Database

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[Property] = '" & Me![Combo4] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Thanks for any help. Eddie

There are only 2 potential problems that I can see:

1. rs should not be dimensioned as a Generic Object, it is a Recordset Object, so:
   

   Dim rs As Recordset

2. If Property is a Numeric Value, you need to change the syntax for the FindFirst Method as so:
   

    'Only if [Property] is Numeric
   rs.FindFirst "[Property] = " & Me![Combo4] 

[ebasshead]

Awesome, thank you so much. Ed

[ADezii]

Awesome, thank you so much. Ed

Ed, glad I was able to assist you. Let me know how you make out.