Code with 2 Combo Boxes

S

sara

I am getting an error when trying to have the data from 2 different combo
boxes (Client # and Date, for example), be used to then have the subform
display all the records that match Both values. I suspect this is simple,
but I have used the wizard to create the combo boxes and code, and I don't
have the right code.

I get the error:
Syntax Error. Missing operator in Expression
On the rs.FindFirst command


thanks

Private Sub CboClSaleDate_AfterUpdate()

' Find the record that matches the control.'

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ClNum] =" & Str(Me![cboClNum]) & "[SaleDate] =" &
Str(Me![cboClSaleDate])
Me.Bookmark = rs.Bookmark

End Sub
 
Top