Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Achtung: Dies ist nicht der vollständige Artikel, sondern nur ein paar Seiten davon. Wenn Sie hier nicht erfahren, was Sie wissen möchten, finden Sie am Ende Informationen darüber, wie Sie den ganzen Artikel lesen können.

Kompletten Artikel lesen?

Einfach für den Newsletter anmelden, dann lesen Sie schon in einer Minute den kompletten Artikel und erhalten die Beispieldatenbanken.

E-Mail:

Gedrucktes Heft

Diesen Beitrag finden Sie in Ausgabe 6/2004.

Unser Angebot für Sie!

Lesen Sie diesen Beitrag und 500 andere sofort im Onlinearchiv, und erhalten Sie alle zwei Monate brandheißes Access-Know-how auf 72 gedruckten Seiten! Plus attraktive Präsente, zum Beispiel das bald erscheinende Buch 'Access 2010 - Das Grundlagenbuch für Entwickler'!

Diesen Beitrag twittern

Fehlerverwaltung mit Online-Komponente

André Minhorst, Duisburg

Wenn Sie eine Anwendung nicht gerade für sich selbst oder Ihren Schreibtischnachbarn (sofern Sie einen haben) erstellt haben, sondern für örtlich weiter entfernte Personen, wird das Beheben von Fehlern schnell zur Qual: Es besteht dann aus einer Mischung aus Telefonaten und per E-Mail verschickten Screenshots mit Fehlermeldungen - und das auch nur, wenn der jeweilige Anwender ausreichend versiert ist. Zumindest für Laufzeitfehler können Sie hier einiges an Zeit und Mühe einsparen - durch die richtige Automatisierung.

Fehlerdokumentation, POP3 und SMTP

Wenn Sie gelegentlich selbst entwickelte Anwendungen verteilen und keine Lust haben, die Fehlermeldungen jeder Kopie der Anwendung separat aufzunehmen und telefonisch oder auf ähnlich zeitraubende Art mit dem Benutzer abzuhandeln, müssen Sie diesen Vorgang so weit wie möglich automatisieren. Damit sparen Sie nicht nur sich selbst, sondern auch dem Benutzer Aufwand und Ärger - vor allem wenn dieser einfach nur mit Ihrer Anwendung arbeiten möchte und gar nichts mit dem Erstellen von Screenshots von Fehlermeldungen und ähnlichen Tätigkeiten zu tun haben möchte.

Das grundlegende Handwerkszeug dazu haben Sie möglicherweise bereits vor der Lektüre dieses Beitrags kennen gelernt: Es steckt in den Beiträgen Mails versenden ohne Outlook (4/2004), Fehlerdokumentation (5/2004) und Mail abrufen mit Access und POP3 in der aktuellen Ausgabe von Access im Unternehmen.

Im vorliegenden Beitrag erfahren Sie, wie Sie das Know-how dieser drei Beiträge verbinden und eine Lösung erstellen, die dem Anwender und dem Entwickler möglichst wenig Aufwand bei der Abhandlung auftretender Fehler bereitet.

Ablauf einer Fehlermeldung

Damit Sie einen Eindruck von der Funktionsweise der Fehlerverwaltung gewinnen, spielen wir einfach ein kleines Beispiel durch. Damit Sie alle nachfolgend beschriebenen Schritte nachvollziehen können, finden Sie auf der beiliegenden CD vier Beispieldatenbanken zu diesem Beitrag: Die eigentliche Fehlerverwaltung verbirgt sich hinter dem Dateinamen FehlerverwaltungXX.mdb und die Anwendung, die den Fehler auslöst, heißt Fehlerverwaltung_ClientXX.mdb (wobei "XX" durch "97" für Access 97 und "00" für Access 2000 und höher ersetzt wird.

Fehlermeldung versenden

Beginnen wir mit der fehlerhaften Datenbank: Diese enthält ein Formular namens frmBeispielfehler mit der Schaltfläche Fehler erzeugen (s. Abb. 1).

Abb. 1: Fehler per Mausklick

Public Function FehlerhafteFunktion() As Long

    On Error GoTo FehlerhafteFunktion_Err

    FehlerhafteFunktion = 1 / 0

   'Fehlerbehandlung

FehlerhafteFunktion_Exit:

    'Restarbeiten

    Exit Function

FehlerhafteFunktion_Err:

    Call Fehlerbehandlung("mdlBeispielfehler ", _
        "FehlerhafteFunktion", Erl, "Bemerkungen: ./.")

    GoTo FehlerhafteFunktion_Exit

End Function

Quellcode 1

Abb. 2: Das Meldungsfenster der Fehlerbehandlung

Ein Klick auf diese Schaltfläche bewirkt den Aufruf der folgenden Ereignisprozedur:

Private Sub cmdFehlerErzeugen_Click()

    FehlerhafteFunktion

End Sub

Die dort aufgerufene Funktion FehlerhafteFunktion dividiert 1 durch 0 und löst damit einen Fehler aus. Damit hier kein Laufzeitfehler mit einer von Access generierten Fehlermeldung auftritt, fängt die Prozedur den Fehler ab (s. Quellcode 1).

Was dann passiert, schauen wir uns zunächst einmal an und kümmern uns im Anschluss um die dahinter stehenden Techniken.

Nach dem Auslösen des Fehlers durch einen Klick auf die Schaltfläche Fehler erzeugen erscheint das Formular aus Abb. 2. Das Formular informiert den Benutzer darüber, dass ein Fehler aufgetreten ist und um welchen Fehler es sich handelt.

Es bietet die Möglichkeit, eine E-Mail an den Hersteller der Software zu senden, und zeigt in einem separaten Fenster alle Informationen an, die mit dieser E-Mail versendet werden.

Der Benutzer der Software kann zusätzlich einen Text mit weiteren Hinweisen zum Auftreten des Fehlers eingeben - beispielsweise mit den Schritten, die zum Fehler führten.

Damit der Hersteller den Kunden, bei dem der Fehler aufgetreten ist, identifizieren kann, muss dieser seine Kundennummer eingeben - schließlich soll er mit einer überarbeiteten Version der Software für sein Verständnis belohnt werden.

Schließlich legt der Benutzer noch fest, ob sich zwischen seinem Rechner und dem Internet eine Firewall befindet, die gegebenenfalls das Versenden der E-Mail über Port 110 verhindern könnte.

Wenn das nicht der Fall ist, muss er nur noch auf die Schaltfläche Fehlermeldung senden klicken, um die entsprechende Mail direkt via SMTP zu versenden.

Sollte eine Firewall im Spiel sein, kann die Mail auch über den Standard-E-Mail-Client des Benutzers versendet werden. Dieser wird von der Anwendung automatisch aufgerufen und mit den entsprechenden Daten gefüllt. Unter Outlook 2003 sieht die zu verschickende E-Mail wie in Abb. 3 aus.

Abb. 3: Fehlerversand per Outlook

Verarbeitung der Fehlermeldung

An diesem Punkt tritt die eigentliche Fehlerverarbeitung in Aktion. Damit ist die Beispieldatenbank FehlerverwaltungXX.mdb gemeint. Mit ihr holt der Entwickler die Fehlermeldungen per POP3 vom Mailserver ab.

Abb. 4: Das Hauptformular der Fehlerverwaltung

Das Formular mit dem Titel Fehlermeldungen ist die Steuerzentrale für die Verwaltung der Fehlermeldungen. Interessant ist dort vor allem die Schaltfläche Fehlermeldungen abrufen (s. Abb. 4).

Mit einem Klick auf diese setzen Sie einen Prozess in Gang, der die auf dem E-Mail-Server vorliegende E-Mail mit der Fehlermeldung herunterlädt und ihren Inhalt in der Datenbank speichert.

Die Fehlermeldungen werden dann in einem Listenfeld angezeigt, von wo der Entwickler die einzelnen Meldungen in der Detailansicht anzeigen kann. Die Detailansicht (s. Abb. 5) bietet die Möglichkeit, einem Fehler eine Priorität zuzuordnen, den Fehler als behoben zu markieren und Informationen zur Fehlerbehebung einzutragen.

Abb. 5: Detailansicht einer Fehlermeldung

Private Sub ArtikelHinzufügen_Click()

50     On Error GoTo ArtikelHinzufügen_Click_Err

60     Dim strDocName As String

70     strDocName = "Artikel"

80     DoCmd.OpenForm strDocName, , , , acAdd, , _
           Me!LieferantenNr

90     DoCmd.Close acForm, "Artikelliste"

100     Forms![Artikel]!Artikelname.SetFocus

110    'Fehlerbehandlung

120 ArtikelHinzufügen_Click_Exit:

130     'Restarbeiten

140     Exit Sub

150 ArtikelHinzufügen_Click_Err:

160     Call Fehlerbehandlung("Form_Lieferanten ", _
            "ArtikelHinzufügen_Click", Erl, _
            "Bemerkungen: ./.")

170     GoTo ArtikelHinzufügen_Click_Exit

End Sub

Quellcode 2

Einbinden des
Fehlerverwaltungs-Clients

Die nachfolgenden Schritte beschreiben, wie Sie den Fehlerverwaltungs-Client in eigene Anwendungen integrieren.

Import der benötigten Objekte

Der erste Schritt besteht im Import der Objekte, die für die Verarbeitung eines Fehlers erforderlich sind. Dazu öffnen Sie die Zieldatenbank (in diesem Fall eine Kopie der Nordwind-Datenbank) und importieren die gewünschten Objekte:

  • Führen Sie den Menüpunkt Datei/Externe Daten/Importieren aus.
  • Wählen Sie die Beispieldatei Fehlerverwaltung_ClientXX.mdb entsprechend Ihrer Access-Version aus.
  • Importieren Sie von dort das Formular frmFehlerbehandlung und die Module clsSMTP, clsWinsock, mdlAPI, mdlError, MIMEMessage und RFCHeaderLine. (
  • Einbau der
    Fehlerbehandlung

    Nachdem das Handwerkszeug beisammen ist, legen Sie eine Fehlerbehandlung an. Für Beispielzwecke nehmen wir uns das Formular Lieferanten vor. Der hinter der Schaltfläche Artikel hinzufügen stehende Code enthält bereits eine rudimentäre Fehlerbehandlung.

    Praxis-Tipp

    Eine Fehlerbehandlung sollten Sie prinzipiell für alle Prozeduren einer Anwendung anlegen - Fehler treten immerhin meistens dort auf, wo man sie nicht erwartet. Und wenn Sie diese lückenlos erfassen und melden können, bestehen gute Chancen, eine Anwendung mit der Zeit fast vollständig von Fehlern zu befreien. "Fast vollständig" deshalb, weil man nie alle Fehler ausschließen kann. (

    Ersetzen Sie diese durch Ihre eigene Fehlerbehandlung und fügen Sie Zeilennummern hinzu.

    Abb. 6: Anlegen von Fehlerbehandlung und Nummerierung per Mausklick

    Private Sub cmdFehlermeldungSenden_Click()

        Dim objSMTP As clsSMTP

        Dim strFehlermeldung As String

        'Validierung aus Platzgründen ausgespart

        strFehlermeldung = Me!txtMailtext

        strFehlermeldung = strFehlermeldung & _
            "KundenBeschreibung: " & Me!txtBeschreibung _
            & ";" & vbCrLf

        strFehlermeldung = strFehlermeldung _
            & "Kundennummer: " & Me!txtKundennummer & ";"

        If Me.ctlFirewall = True Then

            Set objSMTP = New clsSMTP

            With objSMTP

                .MailFrom = "<E-Mail Absender>"

                .MailTo = "<E-Mail Empfänger>"

                .Port = 25

                .SenderEMail = "<E-Mail Absender>"

                .Sendername = "<Name Absender>"

                .SMTPServer = "<SMTP-Server>"

                .Subject = "Fehlermeldung"

                .Plaintext = strFehlermeldung

                .Send

            End With

        Else

            Call ShellExecute(0&, "Open", "mailto:" _
                + "<E-Mail Empfänger>" + "?Subject=" + _
                "Fehlermeldung" + "&Body=" + _
                Replace(strFehlermeldung, vbCrLf, _
                "%0a%0d"), "", "", 1)

        End If

        DoCmd.Close acForm, Me.Name

    End Sub

    Quellcode 3

    Die Prozedur sieht anschließend wie in Quellcode 2 aus.

    Sie haben das Ende des frei verfügbaren Teils des Artikels erreicht. Lesen Sie weiter, um zu erfahren, wie Sie den vollständigen Artikel lesen und auf viele hundert weitere Artikel zugreifen können.

    Sind Sie Abonnent?Jetzt einloggen ...
     

    Kompletten Artikel lesen?

    Einfach für den Newsletter anmelden, dann lesen Sie schon in einer Minute den kompletten Artikel und erhalten die Beispieldatenbanken.

    E-Mail:

    Verwandte Beiträge:

    VBA-Fehlerbehandlung revolutioniert

    Fehlersuche und –behandlung mit Access

    Debugging im VBA-Editor

    Von Access nach MySQL, Teil 2

    Tools für den VBA-Editor

    Defekte Verweise: Ursachen und Lösungen

    Fehlerdokumentation

    Google Earth ferngesteuert, Teil II

    © 2003-2015 André Minhorst Alle Rechte vorbehalten.