in einer UF habe ich eine Textbox in der eine Datum eingegeben werden soll. Diese Eingabe möchte ich bei Klick auf OK der UF wie folgt prüfen:
If TbxDatumVon = Empty Or Not IsDate(TbxDatumVon) Then
With TbxDatumVon
.SetFocus
.SelStart = 0
.SelLength = Len(TbxDatumVon.Text)
End With
MsgBox "Eintrag in DatumVon nicht gültig, Abbruch", vbOKOnly
Exit Sub
End If
Das funktioniert leider so nicht, es ist weder der Fokus auf die Textbox gesetzt, noch der Inhalt markiert.
Wenn ich das Ereignis Exit für die Textbox benutze funktioniert das zwar, habe aber dann keine Chance die zu verlassen, um z.B. durch andere Optionen Eintragungen vorzunehmen...
Danke vorab, RolfK