How to set a query field a combo box

[mar_t]

Good,


I already created my query table and I would like to know on how to set a query field [Section] in a combo box in my form. The combo box will used to filter records (based on Section) in my tblEmployee and be able to print that filtered data using my report form.

Please help.

[pbaldy]

Are you asking how to use the combo as a query criteria? Right click and select Build, which will let you point to it. It will end up looking like:

Forms!FormName.ComboName

[mar_t]

Yes.
I build the code as you mentioned, however it keeps on poping out everytime I use the combo box.

I found a code from the net (Google search), did some modifications and use it. It worked but the report is blank (no data) and contains only the report headers. What I want is that whenever I select a Section name in my combo box it would print only the records (w/ 7 fields) based on the selected value. Below is my code. I really appreciate if you could help me on this one.

Thank you.

Private Sub Combo0_Click()
Dim strwhere As String
strwhere = " [Section]= ' " & Combo0 & "'"
DoCmd.OpenReport "rptAllStaffReport", acViewPreview, , strwhere
End Sub

[pbaldy]

How does it work without the extra spaces?

strwhere = "[Section]= '" & Me.Combo0 & "'"

I assume Section is a text data type? Does the bound column of Combo0 contain the expected value, or a numeric key value?