Zwangseingabe in Textfeld
17.11.2003 15:11:54
Wolfgang Friese
ich habe mal wieder ein Problem, für dessen Lösung meine Kenntnisse nicht ausreichen.
Ich möchte prüfen, ob in einer Textbox eine Eingabe gemacht wurde. Bei numerischer Eingabe oder keine Eingabe soll soll eine Meldung mit wiederholen und Abbruch erscheinen. Beim klicken des "Wiederholen" Buttons soll die Textbox gelöscht werden und der Cursor wieder im Textfeld sein.
Beim klicken des Abbruch-Buttons soll die Eingabe abgebrochen werden und das makro beendet werden.
Habe bisher diesen Programm-Teil
Sub Eingabe-Pruefen()
Dim Meldung
If txtAdresse.Text = "" Then
Meldung = MsgBox("Eingabe erforderlich", vbRetryCancel + vbExclamation, Meldungsfenster)
If Meldung = vbRetry Then ????
If Meldung = vbCancel Then ?????´
End If
End Sub
Anzeige