vbOKCancel - wie Abbrechen?
07.02.2009 10:23:00
Wolfgang
ich würde mit untenstehendem Code gerne erreichen, dass die Textbox7 überprüft wird und sofern sich eine Zahl mit höher 12 darin befindet, eine MsgBox erscheint. Der User soll danach selbst entscheiden können, ob er bei dem Eintrag bleibt oder ob er die Eingabe abbrechen möchte. Was mußt ich verändern, damit der Code bei Abbrechen auch wirklich beendet wird und nicht noch die Folgeaktivitäten -in diesem Fall der Eintrag in eine Tabelle- erfolgt? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub CommandButton4_Click() 'Eintragen
If PruefungTextBox Then
MsgBox "Angaben sind noch nicht vollständig!", vbInformation
Exit Sub
Else
If TextBox7.Text > 12 Then
MsgBox "wirklich diese Dauer?", vbOKCancel
If vbOKCancel = vbCancel Then
Exit Sub
Else
Call Eintrag
End If
End If
End If
End Sub