Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Procedura za hvatanje grešaka

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Procedura za "hvatanje" grešaka u aplikaciji je nužna stvar. Rešenje u listingu formira bilten koji osim broja greške beleži i vreme i identifikuje korisnika.

Procedura za "hvatanje" grešaka u aplikaciji je nužna stvar. Mnogi programeri koriste različite poglede na ovaj problem. Jedno od dobrih rešenja je da se podatak o grešci zapiše u bilten koji se može kasnije i nezavisno pročitati. Rešenje u listingu formira bilten koji osim broja greške beleži i vreme i identifikuje korisnika.

Ova procedura treba da bude pozvana rutinom za obradu greške u svakom modulu aplikacije. U drugom delu listinga možete videti primer ovakvog poziva.

Pre korišćenja funkcije neophodno je da uradite dve stvari. Prvo funkciju smestite u modul pod nazivom "basUtility", odnosno ako ga smeštate u grupu modula pod drugim nazivom, ne zaboravite da u četvrtom redu odozdo funkcije promenite naziv iz "basUtility" u naziv vašeg modula. Zatim kreirajte tabelu pod nazivom "tblZapisGreske" (ili pod nekim drugim nazivom, uz izmenu programa tako da se reflektuje na promenjen naziv) sa sledećim poljima:

errUser: Text(30)
errNumber: Number(Integer)
errDate: Date/Time(General date)
errWhere: Text(50)

Nakon što ste ovo uradili možete za probu pozvati funkciju. Ispod listinga funkcije dat je primer kojim možete to učiniti. U trenutku kada se greška pojavi, slog će biti upisan u tabelu i slediće poruka korisniku da je nastala greška sa njenim opisom. Ukoliko se tabela nalazi u back-end delu aplikacije zapisivaće se sve greške iz front-end aplikacija sa nazivom korisnika. O načinu rada pri podeli aplikacije na dva dela možete pogledati stranu gde je opisana ova tehnika. Procedura je izuzetno korisna dok testirate aplikaciju ili niste sigurni da ste predvideli sve greške.

Sub BiltenGreske (strMsg As String)
    Dim rstZapisGreske as RecordSet
    Dim dbAktivna as Database
    Dim wrkAktivna as WorkSpace

    Set wrkAktivna = DBEngine.Workspace(0)
    Set dbAktivna = wrkAktivna.Databases(0)
    Set rstZapisGreske = _
        dbAktivna.OpenRecordSet("tblZapisGreske")

    rstZapisGreske.AddNew
    rstZapisGreske.[errUser] = CurrentUser()
    rstZapisGreske.[errNumber] = Err.Number
    rstZapisGreske.[errDate] = Now
    rstZapisGreske.[errWhere] = strMsg
    rstZapisGreske.Update

    MsgBox strMsg & Chr(13) & _
        "(" & Err.Number & ") " & Err.Description

Izlaz_BiltenGreske:
    Exit Sub

Err_BiltenGreske:
    MsgBox "basUtility.BiltenGreske" & _
        Chr(13) & "(" & Err.Number & ") " & Err.Description
    Resume Izlaz_BiltenGreske

End Sub



' Primer upotrebe biltena greške
Function Taster1_Click()

On Error GoTo Err_Taster1_Click
    MsgBox ("Ovo je test biltena greške...")

Exit_Taster1_Click:
    Exit Sub

Err_Taster1_Click:
    BiltenGreske("Form1.Taster1_Click")
    Resume Exit_Taster1_Click

End Function