Setfocus will nicht?
Sonnenpeter
mit nachfolgendem Makro lasse ich ein Datumsformat erstellen.
Wenn ein Fehler vorliegt wird die Textbox geleert.
Anschließend soll die Textbox9 wieder ausgewählt werden.
Private Sub TextBox9_AfterUpdate()
If Me.TextBox9.Value = "" Then Exit Sub
On Error GoTo ErrorHandler
Me.TextBox9.Value = Format(CDate(TextBox9.Value), "dd.mm.yyyy")
Exit Sub
ErrorHandler:
MsgBox "Falsche Datumsangabe" & Chr(13) & Me.TextBox9.Value
Me.TextBox9.Value = ""
Me.TextBox9.SetFocus
End Sub
Was mache ich falsch?
Gruß SP