Beitrag aus SmartTools Access Weekly
Fehler bei der Dateneingabe abfangen
Access 365 2024 2021 2019 2016 2013 2010s
FRAGE Ich erfasse in einem Formular neue Aufträge. Dabei wird auch eine Auftragsnummer erfasst, für die sichergestellt werden muss, dass es keine Duplikate gibt. Ich habe dazu in der Tabelle das entsprechende Feld bei "Indiziert" auf den Wert "Ja (ohne Duplikate)" eingestellt. Das funktioniert gut, aber der Anwender erhält im Formular bei einer Duplikateingabe eine unverständliche Fehlermeldung von Access angezeigt. Gibt es die Möglichkeit, dem Anwender im Formular eine frei wählbare Fehlermeldung bei Duplikatseingabe anzuzeigen?
L. Urban
ANTWORT Für eine solche Aufgabe können Sie das Ereignis "Bei Fehler" eines Formulars nutzen:
Private Sub Form_Error(DataErr As Integer, _
Response As Integer)
Select Case DataErr
Case 1
'Ihre Fehlermeldung
Case 2
'Ihre Fehlermeldung
Case 3
'Ihre Fehlermeldung
End Select
Response = acDataErrContinue
End Sub
Über den Parameter "DataErr" fragen Sie hier die Nummer des aufgetretenen Fehlers ab und zeigen abhängig davon Ihre eigene Fehlermeldung an. Über den Parameter "Response" teilen Sie Access dann durch die Zuweisung von "acDataErrContinue" mit, dass es keine weitere Meldung anzeigen soll.