Ich habe ein Formular mit zwei ungebundenen TextFeldern die als Datum formatiert sind. Datum Start und DatumEnde. Ich möchte dass nach der Eingabe beider Felder ein Endlosformular aufgeht mit allen Datensätzen die zwischen diesen Datumsangaben liegen. Zusätzlich soll das Formular mit der im Kombinationsfeld ausgewählten Art aufgehen. Ich habe Variablen definiert die auch die Eingabe in die Felder aufnehmen, aber das öffnen klappt, aber das filtern einfach nicht. Bitte hilf mir!
Auf meinem Kombinationsfeld liegt folgender Code, der bis dahin auch funktioniert:
Private Sub ListenZeitraum_COMB_AfterUpdate()
If Me![DatumStart] = "" Then
MsgBox "Du hast kein Startdatum eingegeben"
ElseIf Me![DatumEnde] = "" Then
MsgBox "Du hast kein Enddatum eingegeben"
Else
Dim DateStart As String
Dim DateEnde As String
DateStart = Me![DatumStart]
DateEnde = Me![DatumEnde]
Me!DatumStart = ""
Me!DatumEnde = ""
DoCmd.OpenForm "BewegungListe_FORM", , , "BewegungArt_ID = " & Me.ListenZeitraum_COMB
Me!openListe_Kombi = ""
End If
End Sub
|