Userform, Aktivierungsreihenfolge vs. SetFocus
29.06.2007 17:28:00
Peter
in meiner Userform habe ich unter anderem mehrere Textfelder.
Die Aktivierungsreihenfolge ist festgelegt.
Wenn ich z.B. im Textfeld "txtDatum" eine Falsche Eingabe gemacht habe, mit Enter betätigt habe, wird das durch folgenden Code kontrolliert.
Die Falsche Eingabe wird gelöscht und der Focus soll wieder auf diesem Textfeld sein, damit man gleich die Eingabe wiederholen kann.
Der Focus ist aber immer ein Textfeld weiter (wie in Aktivierungsreihenfolge), das möchte ich aber nicht.
Kann mir jemand helfen?
Danke im Voraus
Grüße aus Berlin
mein Code:
Private Sub txtDatum_AfterUpdate()
Dim lbMsg As Byte
If Me.txtDatum "" Then
If Format(CDate(txtDatum.Value), "dd.mm.yyyy") txtDatum Then
'If Not IsDate(txtDatum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum im Format dd.mm.yyyy ein", vbExclamation, "falsche _
Eingabe")
txtDatum.Text = ""
txtDatum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
Else
lbMsg = MsgBox("Geben Sie ein gültiges Datum im Format dd.mm.yyyy ein", vbExclamation, "falsche _
Eingabe")
txtDatum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
OK_True
End Sub