TextBox leeren
21.10.2004 22:31:16
FranzB
Ich habe eine TextBox in der, wenn kein Datum eingegeben wurde, eine fehler meldung kommt.
Wie kann ich den Inhalt der TextBox leeren und den Cursor darin stehen lassen zur erneuten Eingabe. Der Code für die TextBox ist wie folgt:
Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1) Then
MsgBox "Kein gültiges Datum!", _
vbCritical, "Falsches Datum"
Exit Sub
End If
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub
Für eure Hilfe wäre ich sehr Dankbar.
Gruß FranzB
Anzeige