Error message for Form Search Code

[Topflite66]

I am using the following code to do a search within my main data entry form:

Private Sub cboOrderSearch_AfterUpdate()
Me.RecordsetClone.FindFirst "[OrderID] = " & Me!cboOrderSearch
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

The issue I am running into is when I delete the search criteria I get the following message:

Run-time error '3077':



Syntax error (missing operator) in expression.

It doesn't affect use of the form but is a little annoying. Any help would be appreciated. TIA

[ranman256]

don't use Find First, instead filter ALL records to be the correct value,then let the user look thru them:

sub cboBox_Afterupdate()
If IsNull(cboBox) Then
  Me.FilterOn = False
Else
  Me.Filter = "[CCode]='" & cboBox & "'"
  Me.FilterOn = True
End If
end sub

[Topflite66]

Thank you for the quick response. I will try that.

[June7]

Use conditional code:

If Me.cboOrderSearch & "" <> "" Then

Use dot . instead of bang ! to trigger intellisense popup tips.

[Topflite66]

Me.Filter = "[CCode]='" & cboBox & "'"
[/code]

I entered the code but now receiving the following error:
Run-time error'3075':
Syntax error in string in query expression '[CCode]='728'.

I'm not very proficient at code so please excuse me if I seem a little dumb about this. What is the [CCode] referencing? TIA

[June7]

If you use Ranman's code, replace cboBox and CCode with actual names from your db: cboSearchOrder and OrderID.

Did you see post 4?

[Topflite66]

Thanks for the clarification June7. I actually hadn't seen Post 4. I was probably typing up post at the same time. Replacing the CCode with OrderID solved the issue. Thank you both for your help.