Datum überprüfen

02/05/2009 - 13:15 von Jürgen Großmann | Report spam
Hi Leute
Ich möchte ein Datum überprüfen ob das Datum vor einem bestimten Datum liegt
wenn ja dann ja dann soll eine Fehlermeldung erscheinen.
Ich benutze folgneden Code

If Me!txtEintritt < "#01.01.1959#" Then
strMsgbox1 = "Das Eintrittsdatum kann nicht vor dem
01.01.1959 liegen!" & vbCrLf & _
"Bitte Ändern"
If MsgBox(strMsgbox1, vbOKOnly + vbInformation, "Falsches
Eintrittsdatum (Gründung)") = vbOK Then
Me!txtEintritt.Undo
Cancel = True
End If
End If

01.01.1959 soll das Vorgabedatum alle eintràge dafürsollten zur
Fehlermeldung kommen.
Vielen dank im Voraus
Grüße Jürgen
 

Lesen sie die antworten

#1 Jürgen Großmann
02/05/2009 - 13:42 | Warnen spam
Hi Leute
Hab den Fehler gefunden
Die # Zeichen waren zuviel
Grüße Jürgen
"Jürgen Großmann" schrieb im Newsbeitrag
news:
Hi Leute
Ich möchte ein Datum überprüfen ob das Datum vor einem bestimten Datum
liegt wenn ja dann ja dann soll eine Fehlermeldung erscheinen.
Ich benutze folgneden Code

If Me!txtEintritt < "#01.01.1959#" Then
strMsgbox1 = "Das Eintrittsdatum kann nicht vor dem
01.01.1959 liegen!" & vbCrLf & _
"Bitte Ändern"
If MsgBox(strMsgbox1, vbOKOnly + vbInformation, "Falsches
Eintrittsdatum (Gründung)") = vbOK Then
Me!txtEintritt.Undo
Cancel = True
End If
End If

01.01.1959 soll das Vorgabedatum alle eintràge dafürsollten zur
Fehlermeldung kommen.
Vielen dank im Voraus
Grüße Jürgen

Ähnliche fragen