<\/p>\n
Auch bei sorgfältig geschriebenem Code lassen sich Laufzeitfehler nicht vollständig vermeiden. Dateien fehlen, Daten sind unerwartet leer oder Benutzer führen Aktionen in einer anderen Reihenfolge aus als vorgesehen. Damit solche Situationen nicht zum Abbruch der Anwendung führen, stellt VBA verschiedene Mechanismen zur Fehlerbehandlung bereit. In diesem Artikel lernst Du die grundlegenden Techniken der Fehlerbehandlung kennen und erfährst, wie Du sie sinnvoll und strukturiert in Deinen Prozeduren einsetzt.<\/p>\n
Die Beispiele dieses Artikels findest Du in der Datenbank VBABasics_DebuggenImVBAEditor.accdb<\/b>.<\/p>\nWas ist ein Laufzeitfehler?<\/h2>\n
Ein Laufzeitfehler tritt auf, wenn ein VBA-Befehl während der Ausführung nicht korrekt ausgeführt werden kann. Typische Beispiele sind der Zugriff auf ein nicht vorhandenes Objekt, eine Division durch Null oder das Öffnen einer Datei, die nicht existiert.<\/p>\n
Ohne Fehlerbehandlung zeigt Access in solchen Fällen eine Fehlermeldung an und bricht die Ausführung der aktuellen Prozedur ab. Für den Entwickler ist das beim Testen hilfreich, für den späteren Einsatz einer Anwendung jedoch meist unerwünscht.<\/p>\n
Das klassische Beispiel für einen Laufzeitfehler ist die Division durch 0. Hier haben wir einfach eine Anweisung erstellt, die den Wert 1 <\/b>durch den Wert 0 <\/b>dividiert, was zu einem Fehler mit der Nummer 11 <\/b>und der Fehlermeldung Division durch Null <\/b>führt.<\/p>\n
Führen wir diese Anweisung aus, erhalten wir als Erstes eine Meldung mit dem entsprechenden Fehler. Wir können dann auf Beenden <\/b>oder Debuggen <\/b>klicken. Mit Beenden wird die Prozedur beendet, ein Klick auf Debuggen öffnet den VBA-Editor und zeigt die fehlerhafte Anweisung mit einer gelben Markierung an (siehe Bild 1).<\/p>\n
Bild 1: Klassischer Fehler ohne Behandlung<\/p>\n Eine saubere Fehlerbehandlung sorgt dafür, dass Deine Anwendung auch bei unerwarteten Situationen kontrolliert reagiert. Statt eines abrupten Abbruchs kannst Du dem Benutzer eine verständliche Meldung anzeigen, Ressourcen freigeben oder alternative Programmpfade wählen.<\/p>\n Wichtig ist dabei die Unterscheidung zwischen Debugging und Fehlerbehandlung. Debugging dient der Entwicklung und Analyse von Code – siehe Artikel VBA [basics]: Debuggen im VBA-Editor <\/b>(www.access-basics.de\/684<\/b>). Fehlerbehandlung hingegen ist dafür gedacht, den Code im produktiven Betrieb stabil und robust zu machen.<\/p>\n Die einfachste, aber nicht besonders professionelle Art, einen Laufzeitfehler zu verhindern, ist das vorherige Ausführen der folgenden Anweisung:<\/p>\n Wenn diese vor einer Zeile platziert wird, die einen Laufzeitfehler auslöst, wird die fehlerhafte Zeile schlicht übergangen:<\/p>\n Wir erhalten dann direkt die Ausgabe der zweiten Debug.Print<\/b>-Anweisung.<\/p>\n Es kann aber sein, dass dadurch wichtige Zuweisungen oder Aktionen, die im weiteren Verlauf wichtig sind, nicht ausgeführt werden und anschließend zu logischen Fehlern oder weiteren Laufzeitfehlern führen.<\/p>\n Manchmal möchte man aber sogar, dass eine solche Zeile übersprungen wird, um anschließend zu prüfen, ob sie einen vorhersehbaren Fehler ausgelöst hat. Dann können wir in der folgenden Zeile prüfen, ob es einen Fehler gegeben hat. Dazu untersuchen wir den Wert der Klasse Err<\/b>. Diese liefert verschiedene Informationen, zum Beispiel die Fehlernummer und die Fehlerbeschreibung. Die folgende Prozedur übergeht die fehlerhafte Zeile und gibt anschließend beide Informationen aus:<\/p>\n Das Ergebnis lautet:<\/p>\n Wir erhalten also die gleichen Informationen, die wir ohne On Error Resume Next<\/b> in der eingebauten Fehlermeldung erhalten hätten. Ein Beispiel für einen solchen Fehler, den wir anschließend auf diese Weise analysieren können, ist das Hinzufügen eines Datensatzes zu einer Tabelle mit einem eindeutigen Index, wobei wir dem indizierten Feld einen bereits vorhandenen Datensatz hinzufügen (siehe Bild 2).<\/p>\n Bild 2: Tabelle mit einem eindeutig indizierten Feld<\/p>\n In der Prozedur aus Listing 1 deaktivieren wir die eingebaute Fehlerbehandlung und führen dann mit der Execute<\/b>-Methode eine INSERT INTO<\/b>-Anweisung aus, welche die Kategorie aus strKategorie <\/b>zur Tabelle tblKategorien <\/b>hinzufügt.<\/p>\n Listing 1: Diese Prozedur löst einen Fehler aus, wenn eine bereits vorhandene Kategorie erneut angelegt wird.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Klassischer](\"..\/tl_files\/images\/pic_703_001.png\")
<\/a><\/p>\nWarum Fehlerbehandlung wichtig ist<\/h2>\n
Eingebaute Fehlerbehandlung deaktivieren<\/h2>\n
On Error Resume Next<\/span><\/pre>\nPublic Sub <\/span>FehlerOhneBehandlung()\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span><\/span> 1 \/ 0\r\n Debug.Print<\/span><\/span> \"War da ein Fehler?\"\r\nEnd Sub<\/span><\/pre>\nFehler nach On Error Resume Next analysieren<\/h2>\n
Public Sub <\/span>FehlerMitOnErrorResumeNext()\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span><\/span> 1 \/ 0\r\n Debug.Print<\/span><\/span> Err.Number, Err.Description\r\nEnd Sub<\/span><\/pre>\n11 Division durch Null<\/pre>\n
<\/a><\/p>\nPublic Sub <\/span>FehlerMitDoppeltemIndex()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strKategorie As String<\/span>\r\n \r\n Set<\/span> db = CurrentDb\r\n strKategorie = \"Bücher\"\r\n \r\n On Error Resume Next<\/span>\r\n db.Execute \"INSERT INTO tblKategorien(Kategorie) VALUES('\" & strKategorie & \"')\", dbFailOnError\r\n If <\/span>Err.Number = 3022 Then<\/span>\r\n MsgBox<\/span> \"Die Kategorie '\" & strKategorie & \"' ist bereits vorhanden.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
\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