Filter mit mehreren Kriterien, auch wenn ein Feld Null

  • Access

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Marlboromann.

    Filter mit mehreren Kriterien, auch wenn ein Feld Null

    Moin,
    leider komme ich zZ nicht weiter in meiner Access Datenbank.

    In einer Tätigkeitserfassung soll man Filtern können mit folgenden Kriterien: Personal, Datumvon, Datumbis & einer Kostenstelle.
    Mein Filter Funktioniert leider gerade nur OHNE die Kostenstelle undzwar wie folgt:

    VB.NET-Quellcode

    1. Private Sub Befehl51_Click()
    2. If Nz(Me.txtvon, "") = "" Then //txtvon ist DatumVon
    3. MsgBox "Bitte Datumsbereich wählen!"
    4. Exit Sub
    5. End If
    6. If Nz(Me.txtbis, "") = "" Then //txtbis Datumbis
    7. MsgBox "Bitte Datumsbereich wählen!"
    8. Exit Sub
    9. End If
    10. Me.Filter = "[TaetigkeitsDatum] between " & Format(Nz(Me!txtvon, Date), "\#yyyy-mm-dd\#") & "
    11. and " & Format(Nz(Me!txtbis, Date), "\#yyyy-mm-dd\#") & " And " & "[PersonalID] = " & Me.Liste0 & ""
    12. Me.FilterOn = True
    13. End Sub


    Wie gesagt: Gerne würde ich meine Kostenstelle mit einbinden, welche hier auch NULL sein kann ! Die Kostenstelel würde den Syntax[TaetigkeitsKostenstellenIDRef] = "Kombinationsfeld145" besitzen


    ich hoffe, ihr könnt mir auf die Sprünge helfen. Vielen Dank!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marlboromann“ ()

    Neu

    VB.NET-Quellcode

    1. Me.Filter = "[TaetigkeitsDatum] BETWEEN " & Format(Nz(Me!txtvon, Date),"\#yyyy-mm-dd\#") & " AND " & Format(Nz(Me!txtbis, Date), "\#yyyy-mm-dd\#") & _
    2. " AND [PersonalID] = " & Me.Liste0
    3. If IsNumeric(Me!Kombinationsfeld145) Then
    4. Me.Filter = Me.Filter & " AND [TaetigkeitsKostenstellenIDRef] =" & Me!Kombinationsfeld145
    5. End If



    Für alle die mal das selbe Problem haben.. dies ist die Lösung