Member
Beiträge: 22
| Hallo Donkarl,
Danke für Deine Hilfe. Ich habe den Code jetzt wie folgt abgeändert:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2113
MsgBox "Der von Ihnen eingegebene FELDINHALT ist ungültig!" & vbCrLf & vbCrLf & "Bitte geben Sie einen korrekten Wert ein!", vbOKOnly + vbCritical, "Falscheingabe FELDINHALT!"
Response = acDataErrContinue
Case 2116
MsgBox "Der von Ihnen eingegebene FELDINHALT ist ungültig!" & vbCrLf & vbCrLf & "Bitte geben Sie einen korrekten Wert ein!", vbOKOnly + vbCritical, "Falscheingabe FELDINHALT!"
Response = acDataErrContinue
Case Else
MsgBox DataErr
End Select
ActiveControl.Undo
End Sub
In einem Formular gebe ich in einem Datumfeld 01022015 ein. Dadurch entstehen zwei Fehler, nämlich 2113 und 2116. Diese möchte ich abfangen. Schön wäre jedoch, wenn nur eine Fehlermeldung erscheint, auch wenn am Ende unter Umständen zwei Fehler vorliegen. Wie muss ich den Code verändern, damit er nur noch einen Fehler ausgibt, also z. B. nach dem ersten Fehler aufhört, weitere zu signalisieren? |