date time picker cases Filter (knifflig)

[dasauto]

 Hallo zusammen,

ich habe eine Datenbank erstellt in der man Überprüfen soll ob Aufträge (Lieferungen) abgeschlossen, verspätet oder offen sind.
Wichtige Infos:VariablenerklärungDelivery Date Actual (reales Lieferdatum)
ATD confirmed (angesetzter Liefertermin)

Aus einem Dropdownmenu kann man auswählen (Code unten)

Case ""
Alle Datenbankeinträge werden ausgewählt

Case 1
Show open orders:
Im Date Time Picker von Delivery Date Actual wurde bei der Dateneingabe kein Datum angegeben

Case 2
Show finished  orders
Das actual delivery date ist ist niedriger als ATD confirmed

Case 3
Show delayed orders
Das delivery Date ist höher als ATD confirmed.

Problem:
Case 1 funktioniert nicht.
Es werden 0 Datenbankeinträge angezeigt, obwohl es mind. einen gibt.

Ich wäre euch sehr sehr dankbar, wenn ihr helfen könnt!
Ganz viele Grüße!


Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage"
Dim strfilter As String
Select Case Me.cbo_standard_filter.Value
           Case 3
              Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage WHERE [Delivery Date Actual] > [ATD Confirmed]"
           
           Case 1
            Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage WHERE [Delivery Date Actual] = Null"
         
            Case 2
             Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage WHERE [Delivery Date Actual] < [ATD Confirmed]"
         
           Case ""
             Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage"

End Select

If Me.dtp_atd_confirmed <> "" Then
  strfilter = "[ATD Confirmed]=" & date_format([Forms]![frm_abfrage]![dtp_atd_confirmed])
End If

If Me.dtp_delivery_date_actual <> "" And IsNull(Me.dtp_atd_confirmed) = True Then
  strfilter = "[Delivery Date Actual]=" & date_format([Forms]![frm_abfrage]![dtp_delivery_date_actual])
ElseIf Me.dtp_delivery_date_actual <> "" Then
  strfilter = "[ATD Confirmed]=" & date_format([Forms]![frm_abfrage]![dtp_atd_confirmed]) & " AND [Delivery Date Actual]=" & date_format([Forms]![frm_abfrage]![dtp_delivery_date_actual])
End If


Me.frm_abfrage_sub.Form.Filter = strfilter
Me.frm_abfrage_sub.Form.FilterOn = True


Me.frm_abfrage_sub.Form.Requery
End Sub

[lumbumba]

evtl. =Null durch Is Null ersetzen.

Code [Auswählen] Erweitern

Case 1
            Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage WHERE [Delivery Date Actual] Is Null"

[dasauto]

Wow,

das wars!

Vielen vielen Dank!