In mijn doorlopend formulier (frm_sollicitant_zoek_functie) heb ik een keuzelijst met invoervak staan (cboZoekFunctie) waarachter in VBA een filter-functie staat.
Op het doorlopende formulier worden de volgende gegevens weergegeven: ID - NAAM - VOORNAAM - GEBOORTEDATUM - TEL/GSM-NUMMER - EMAIL - FUNCTIE1 - FUNCTIE2 - FUNCTIE3 - SELECTIEVAKJE.
De code voor het filteren van een bepaalde functie werkt perfect voor één kolom. Kan dit uitgebreid worden naar meerder kolommen. 3 Apparte keuzelijsten is niet de bedoeling:
Ik verklaar:
Persoon A kan bv uitvoerder (=functie1) of tekenaar (=functie2) of technieker(=functie3) zijn. Persoon B kan bv tekenaar (=functie1) - uitvoerder(=functie2) - tester(=functie3) zijn.
Als ik "uitvoerder" selecteer via m'n keuzelijst zou ik in principe 2x een persoon (1x uit functie1) & (1x uit functie2) te zien moeten krijgen.
Heeft er iemand hiervoor een oplossing of iemand die me op weg kan helpen?
Op het doorlopende formulier worden de volgende gegevens weergegeven: ID - NAAM - VOORNAAM - GEBOORTEDATUM - TEL/GSM-NUMMER - EMAIL - FUNCTIE1 - FUNCTIE2 - FUNCTIE3 - SELECTIEVAKJE.
De code voor het filteren van een bepaalde functie werkt perfect voor één kolom. Kan dit uitgebreid worden naar meerder kolommen. 3 Apparte keuzelijsten is niet de bedoeling:
Ik verklaar:
Persoon A kan bv uitvoerder (=functie1) of tekenaar (=functie2) of technieker(=functie3) zijn. Persoon B kan bv tekenaar (=functie1) - uitvoerder(=functie2) - tester(=functie3) zijn.
Als ik "uitvoerder" selecteer via m'n keuzelijst zou ik in principe 2x een persoon (1x uit functie1) & (1x uit functie2) te zien moeten krijgen.
Code:
Private Sub cboZoekFunctie_AfterUpdate()
Me.Filter = "[FUNCTIE1_SOLLICITANT] = """ & Me.cboZoekFunctie & """"
'Me.Filter = "[FUNCTIE2_SOLLICITANT] = """ & Me.cboZoekFunctie & """"
'Me.Filter = "[FUNCTIE3_SOLLICITANT] = """ & Me.cboZoekFunctie & """"
Me.FilterOn = True
End Sub
Heeft er iemand hiervoor een oplossing of iemand die me op weg kan helpen?