Versiedene Abfragen für ein Listenfeld (Access)

Neuling001, Freitag, 04.09.2020, 22:31 (vor 23 Tagen) @ Martin Asal

Hallo Martin,
danke für die Hilfe. Leider tut sich bei mir nichts. Ich denke ich habe noch irgendwas vergessen.
Zur Anschauung mein Code, von dem ich meine, dass es klappen müßte:

Private Sub cmbKndSelect_AfterUpdate()
  Select Case Nz(Me.cmbKndSelect.Column(0))
Case 1
    Me.Filter = "PatAktiv=True"
    Me.FilterOn = True
Case 2
    Me.Filter = "PatAktiv=False"
    Me.FilterOn = True
Case Else
    Me.Filter = ""
    Me.FilterOn = False
End Select
lbKunden.Requery '(die Listbox muß doch aktualisiert werden - oder?)
End Sub

Ich muß gestehen ich habe Dein Listing einfach in meine Sub hineinkopiert.


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum