![\"Das](\"..\/tl_files\/images\/pic_75_005.png\")
<\/a><\/p>\nBild 1: Das Hinzufügen doppelter Werte in dieses Feld löst einen Fehler aus.<\/p>\n
Public Sub <\/span>KategorieHinzufuegen(strKategorie As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblKategorien(Kategoriename) VALUES('\" & strKategorie & \"')\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\nEs erscheint die Fehlermeldung aus Bild 2.<\/p>\n
![\"Fehlermeldung](\"..\/tl_files\/images\/pic_75_006.png\")
<\/a><\/p>\nBild 2: Fehlermeldung beim Anlegen doppelter Werte im eindeutigen Feld<\/p>\n
Wie können Sie diesen Fehler umgehen Dazu gibt es zwei Varianten. Die erste prüft zuvor, ob es bereits eine Kategorie mit dem angegebenen Namen gibt:<\/p>\n
If <\/span>IsNull(DLookup(\"KategorieID\", \"tblKategorien\", \"Kategoriename = '\" & strKategorie & \"'\")) Then<\/span>\r\n db.Execute \"INSERT INTO tblKategorien(Kategoriename) VALUES('\" & strKategorie & \"')\", dbFailOnError\r\nElse<\/span>\r\n MsgBox<\/span> \"Die Kategorie '\" & strKategorie & \"' ist bereits vorhanden.\"\r\nEnd If<\/span><\/pre>\nDie zweite Variante fragt gar nicht groß nach, sondern legt den Datensatz einfach an. Da vorher mit On Error Resume Next <\/b>die eingebaute Fehlerbehandlung deaktiviert wird, löst die Execute<\/b>-Methode keinen Fehler aus, wenn der anzulegende Datensatz bereits vorhanden ist. Dafür wird aber nachher geprüft, ob nicht vielleicht doch ein Fehler aufgetreten ist – beispielsweise der mit der Nummer 3022<\/b>. In diesem Fall zeigt die in der If…Then<\/b>-Bedingung enthaltene Anweisung eine entsprechende Meldung an:<\/p>\nOn Error Resume Next<\/span>\r\ndb.Execute \"INSERT INTO tblKategorien(Kategoriename) VALUES('\" & strKategorie & \"')\", dbFailOnError\r\nIf <\/span>Err.Number = 3022 Then<\/span>\r\n MsgBox<\/span> \"Die Kategorie '\" & strKategorie & \"' ist bereits vorhanden.\"\r\nEnd If<\/span><\/pre>\nWirkungsbereich einer Fehlerbehandlung<\/h2>\n
Eine Fehlerbehandlung aktivieren Sie durch die On Error…<\/b>-Anweisung aktiviert und sie und endet spätestens mit dem Ende der Prozedur. Sie müssen allerdings zwei Besonderheiten beachten:<\/p>\n\n- Sie können die Fehlerbehandlung auch vor dem Prozedurende mit der Anweisung On Error Goto 0 <\/b>deaktivieren.<\/li>\n
- Wenn die Prozedur eine weitere Prozedur oder Funktion aufruft, während die Fehlerbehandlung aktiviert ist, gilt die Fehlerbehandlung auch hier als aktiviert. Das Gleiche gilt auch für weitere Verschachtelungen.<\/li>\n<\/ul>\n
Wenn Sie also in einer Prozedur wie folgt eine Fehlerbehandlung aktivieren, von dort eine weitere Prozedur aufrufen, in der dann schließlich ein Fehler auftritt, wird der Fehler von der Fehlerbehandlung der aufrufenden Prozedur behandelt. Die aufrufende Prozedur mit der Fehlerbehandlung sieht so aus:<\/p>\n
Public Sub <\/span>VerschachtelteFehlerbehandlung()\r\n On Error GoTo<\/span> Fehler\r\n Call<\/span> WeitereProzedur\r\nEnde:\r\n Exit Sub<\/span>\r\nFehler:\r\n MsgBox<\/span> \"Fehler \" & Err.Number & \", '\" & Err.Description & \"'\"\r\n GoTo Ende\r\nEnd Sub<\/span><\/pre>\nDies ist die aufgerufene Prozedur:<\/p>\n
Public Sub <\/span>WeitereProzedur()\r\n Debug.Print<\/span> 1 \/ 0\r\nEnd Sub<\/span><\/pre>\nAuch wenn der Fehler erst in der Prozedur Weitere-Prozedur <\/b>ausgelöst wird, wird er dennoch in der aufrufenden Prozedur verarbeitet.<\/p>\n
Wenn Sie jedoch in der aufgerufenen Prozedur gleich zu Beginn die Anweisung On Error Goto 0<\/b> einfügen, deaktiviert dies die Fehlerbehandlung nicht! Um dies zu testen, haben wir an verschiedenen Stellen Debug.Print<\/b>-Anweisungen zur Ausgabe von Zahlen in der Reihenfolge des erwarteten Ablaufs hinzugefügt. Bei folgendem Beispiel werden 1 <\/b>und 2 <\/b>ausgegeben, dann erscheint die Fehlermeldung der Fehlerbehandlung:<\/p>\nPublic Sub <\/span>VerschachtelteFehlerbehandlung()\r\n On Error GoTo<\/span> Fehler\r\n Debug.Print<\/span> 1\r\n Call<\/span> WeitereProzedur\r\n Debug.Print<\/span> 4\r\n Debug.Print<\/span> 1 \/ 0\r\n Debug.Print<\/span> 5\r\nEnde:\r\n Exit Sub<\/span>\r\nFehler:\r\n MsgBox<\/span> \"Fehler \" & Err.Number & \", '\" & Err.Description & \"'\"\r\n GoTo Ende\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>WeitereProzedur()\r\n On Error GoTo<\/span> 0\r\n Debug.Print<\/span> 2\r\n Debug.Print<\/span> 1 \/ 0\r\n Debug.Print<\/span> 3\r\nEnd Sub<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t