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
evtl. =Null durch Is Null ersetzen.
Case 1
Me.frm_abfrage_sub.Form.RecordSource = "SELECT * FROM qu_abfrage WHERE [Delivery Date Actual] Is Null"
Wow,
das wars! :)
Vielen vielen Dank!