1: 2: 3: 4:
Private SubcboCounty_AfterUpdate () Me.FilterOn Me.Filter cboCounty.Value Sub van het eind
1: 2: 3: 4: 5: 6: 7: 8:
Privé SubcboCounty_AfterUpdate () Als (cboCountry) IsNull toen Me.FilterOn = Vals Anders Me.Filter = „Land = „“ & cboCountry & „“ „ Me.FilterOn = Waar Eind als Sub van het eind