Apply Filter based on Selection of ComboBox

[venuspcs]

Okay I am using Access 2007 with several tables and several forms.

The main data is saved to table: Load_Records
There is a Form that updates that table named: Add New Loads To Database
There is another Form used for printing custom reports named: Generate Reports

The Generate Reports form automatically creates and populates a recordset by data binding to the Load_Records table. In the footer of this form there are three combo box's named: CompanySelect, DriverSelect and TruckSelect

The values of the combo box's are populated automatically from tables/columns named: Company!Company , Driver!Driver and Truck!Truck

What I want to do is have ALL THE RECORDS of Load_Records filtered automatically OnChange of any or all of these combo box's.

I have played around with DoCmd.ApplyFilt er but have had no success in getting it to work correctly.

[ADezii]

Here is the general idea, assuming all Text Fields:

Dim strFString As String
 
strFString = "[Company] = '" & Me![cboCompany] & "' And " & _
             "[Driver] = '" & Me![cboDriver] & "' And " & _
             "[Truck] = '" & Me![cboTruck] & "'"
Me.Filter = strFString
Me.FilterOn = True

[venuspcs]

Okay thanks for the tip but it isn't working for me.....here is a screen shot of the form. The Combobox items are named cboCompany, cboDriver, cboTruck and cboDate.

Here is the code I am using:

 
Private Sub btnFilter_Click()
 
    Dim strFString As String
 
    strFString = "[Company] = '" & Me![cboCompany] & "' And " & _
                 "[Driver] = '" & Me![cboDriver] & "' And " & _
                 "[mmddyy] = '" & Me![cboDate] & "' And " & _
                 "[Truck] = '" & Me![cboTruck] & "'"
    Me.Filter = strFString
    Me.FilterOn = True
 
End Sub
 
 

[ADezii]

Assuming [mmddyy] is a Date/Time Field (should Rename!):

Dim strFString As String
 
strFString = "[Company] = '" & Me![cboCompany] & "' And " & _
  "[Driver] = '" & Me![cboDriver] & "' And " & _
  "[mmddyy] = #" & Me![cboDate] & "# And " & _
  "[Truck] = '" & Me![cboTruck] & "'"
Me.Filter = strFString
Me.FilterOn = True

[venuspcs]

Still doesn't work....every time I click the Apply Filter button I get a single empty row in the recordset.

This is driving me bonkers.....

[ADezii]

Are there Records that actually meet the criteria making up the Filter?

[venuspcs]

Yes there are records that meet the criteria of the combo box selections.

[ADezii]

If I send you my E-Mail Address in a PM (Private Message), would you be willing to send me the Database, so that I could have a first hand look at it?

P.S. _ I only have Access 2007 in work, so I would have to wait until I can get some free time at work in order to diagnose the problem.

[venuspcs]

If I send you my E-Mail Address in a PM (Private Message), would you be willing to send me the Database, so that I could have a first hand look at it?

P.S. _ I only have Access 2007 in work, so I would have to wait until I can get some free time at work in order to diagnose the problem.

Sure, but I must warn you I am an amateur with Access in every sense of the word....

[ADezii]

I have the DB and will take a look as soon as I can.