Office: Datumsabfrage

Hallo zusammen :-)
Ja, ich habe die Suchfunktion benutzt, aber ich denke mit einem eigenen Thread komme ich schneller zu einer Lösung.

Ich möchte in MS Access 2003 ein Formular erstellen, in dem man ein Datum eingeben kann. Wenn ich das Datum eingebe, soll überprüft werden, ob dieses Datum in der Vergangenheit liegt (Vergangenheit = Ab gestern). Falls dies so ist, soll eine MessageBox erscheinen, die eine Warnung ausgibt à la "Dieses Datum liegt in der Vergangenheit. Wollen sie das Datum trotzdem speichern ?". Wenn möglich sollte man nun zwei Optionen haben, ein Button um das Datum anzulegen und ein Button, um das Datum eben nicht anzulegen ;) Falls das eingegebene Datum dem aktuellen oder einem zukünftigen Datum entspricht, soll diese MessageBox nicht erscheinen. Es wäre mir einfach wichtig, dass bei einem vergangenem Datum eine Warnmeldung erscheint, damit der User weiss, dass er ein ungültiges Datum eingegeben hat. Wenn man dann noch die Auswahl hätte, ob man das Datum nun trotzdem anlegen möchte oder nicht, dann wäre das ein sehr netter Zusatz. Ich hoffe ihr könnt mir da helfen

Gruss.

 

Hi,

wenn es noch aktuell ist dann versuch es mal hiermit:

Code:

Private Sub Text6_Exit(Cancel As Integer)
'Name der Textbox ist hier "Text6"
Dim Antwort
    If Me.Text6.Value < Date Then
        Antwort = MsgBox("Dieses Datum liegt in der Vergangenheit!" & Chr(13) & "Wollen sie das Datum trotzdem speichern ?", vbYesNo, "Datumsprüfung")
        
        If Antwort = vbNo Then
            Me.Text6.Value = ""
            Me.Text6.SetFocus
            Exit Sub
        End If
    End If
                    
End Sub

 

Hat wunderbar geklappt, dankeschön !