Versiedene Abfragen für ein Listenfeld (Access)

Martin Asal @, Donnerstag, 03.09.2020, 14:34 (vor 28 Tagen) @ Neuling001

Hallo Floyd,

du gehst die Sache wohl viel zu kompliziert an. Weißt du, dass man ein Formular filtern kann?

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
 
End Sub


Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum