Focus bedingt setzen
20.07.2004 10:16:22
Sergej
Ich habe eine Frage: wie kann ich ein TextBox nach einem Überprüfen des Textformates bei false den Focus auf diesem TextBox beibehalte, damit dieses nur bei "True" verlassen werden kann?
Format überprüfe ich mit:
Private Sub TextBox1_AfterUpdate()
Dim myDate As Date
If IsDate(Me.TextBox1) Then
myDate = Format(Me.TextBox1, "dd.mm.yyyy")
MsgBox myDate
Else
MsgBox "Kein gültiges Datum"
End If
End Sub
Danke voraus.
Sergej