Link to home
Start Free TrialLog in
Avatar of jammin140900
jammin140900

asked on

Adding another filter on VBA code in combo box

Hi Experts,

I have two combo boxes on a form. One with a Company Details and the second with the workers for that company. When a user selects the first Combo, it requeries and populates the second one. I had the following code that worked perfectly..

Private Sub cboAuditCompany_AfterUpdate()
Me.cboAuditor.RowSource = "SELECT AuditorID, AuditorSign, AuditorSubID FROM tblAuditors WHERE [AuditorID] = " & Me.cboAuditCompany & " " & _
"ORDER BY AuditorSign;"

End Sub

I now realised that I want another filter. Some of the workers may have left the company and therefore I don't want those worker's names to be a choice for the combo box. Therefore, I've added another field in the same workers table (tblAuditors) called "Active" (which is a yes/no field). I now need to update the code to also filter on populating workers names only where they are active. I therefore, tried this...

Private Sub cboAuditCompany_AfterUpdate()
Me.cboAuditor.RowSource = "SELECT AuditorID, AuditorSign, AuditorSubID FROM tblAuditors WHERE [AuditorID] = " & Me.cboAuditCompany And [Active] = "True" & " " & _
"ORDER BY AuditorSign;"

End Sub

It doesn't work and gives me "Run Time Error 13- Data Mismatch". Could you please advise what I'm doing wrong?

Thanks
Jammin.
Avatar of Rey Obrero (Capricorn1)
Rey Obrero (Capricorn1)
Flag of United States of America image

Private Sub cboAuditCompany_AfterUpdate()
Me.cboAuditor.RowSource = "SELECT AuditorID, AuditorSign, AuditorSubID FROM tblAuditors WHERE [AuditorID] = " & Me.cboAuditCompany & " And [Active] = True & " " & _
"ORDER BY AuditorSign;"

End Sub


or

Private Sub cboAuditCompany_AfterUpdate()
Me.cboAuditor.RowSource = "SELECT AuditorID, AuditorSign, AuditorSubID FROM tblAuditors WHERE [AuditorID] = " & Me.cboAuditCompany & " And [Active] = -1 & " " & _
"ORDER BY AuditorSign;"

End Sub
ASKER CERTIFIED SOLUTION
Avatar of DatabaseMX (Joe Anderson - Former Microsoft Access MVP)
DatabaseMX (Joe Anderson - Former Microsoft Access MVP)
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of jammin140900
jammin140900

ASKER

Thank you for your help. I tried all three solutions and this was the one that worked.