how to filter data using two combo boxes?

[jasonix]

I have two combo boxes named TrainingName and CustomerName. what i wanted to do is by selecting a training name and customer name i would be able to search that in my MembersTraining query and print a report. For example i selected "Ben Gonzales" in the CustomerName and "ICT 1" in TrainingName, all of the information about Ben Gonzales in the ICT 1 training will be in that report.

here's my code.



Dim stDocName As String

stDocName = "rptMemberstraining"

DoCmd.openreport stDocName, acPreview, , "[fld_CustomerNameID]=" & Me!CustomerName.Value And "[fld_TrainingName]=" & Me!TrainingName.Value



unfortunately this code isn't correct. =(

thanks.

[June7]

If the fields are text datatype, the criteria must be enclosed in apostrophe delimiters, date would need #.

"[fld_CustomerNameID]=" & Me!CustomerName.Value & " And [fld_TrainingName]='" & Me!TrainingName.Value & "'"

[jasonix]

thanks for replying June 7. sorry i forgot that the 2nd combo box is also an Integer. It is fld_TrainingID...

[jasonix]

got the solution. For those who want to see the solution, here's how. =)

Dim stDocName As String
Dim strWhere As String

stDocName = "rptCustomerTraining"
strWhere = "[fld_CustomerID]=" & Me!CustomerName.Value & " And [fld_TrainingID]=" & Me!TrainingName.Value & ""

DoCmd.OpenReport stDocName, acPreview, , strWhere

i just inserted double qoutes. =)