PROGRAMOWANIE W VBA – MICROSOFT ACCESS

LABORATORIUM 3

Informacje dodatkowe

Dodatkowe informacje na temat wszystkich funkcji wykorzystywanych w tych ćwi­czeniach możesz znaleźć w pliku pomocy lub Konstruktorze wyrażeń.

Ćwiczenie 1

Lokalna obsługa błędów

W ćwiczeniu tym będziesz przechwytywał błędy bez wykorzystywania procedury obsługi błędów.

UWAGA. Pamiętaj o użyciu instrukcji Option Explicit w sekcji deklaracji każdego z tworzonych modułów.

Utworzenie formularza

1. Utwórz nową bazę danych o nazwie Bledy.mdb.

2. Utwórz nowy formularz i umieść na nim następujące przyciski:

• URUCHOM PROGRAM 1

• URUCHOM PROGRAM 2

• URUCHOM PROGRAM 3

• KONIEC

3. Wyłącz kreatora formantów i umieść na formularzu przyciski poleceń, jak to poka­zano na poniższym rysunku.

Utworzenie procedury zdarzenia

1. Utwórz procedurę zdarzenia Przy kliknięciu dla przycisku "Uruchom program 1 ", uru­chamiając Konstruktor kodu dla właściwości przy kliknięciu.

2. W procedurze tej umieść kod, który umożliwi użytkownikowi uruchomienie aplika­cji poprzez wprowadzenie jej nazwy w oknie dialogowym. Kod taki jak pokazano poniżej

Uruchom programl = Shell(InputBox("Podaj nazwę programu."), 1)

3. Przełącz się do widoku formularza i sprawdź działanie procedury zdarzenia.

4. W oknie dialogowym wprowadź nazwę aplikacji, na przykład Calc (Kalkulator).

5. Uruchom procedurę ponownie i wprowadź błędną nazwę aplikacji, na przykład XYZ. Powinno to spowodować wystąpienie błędu wykonania.

Kod lokalnej obsługi błędu

1. Na początku wykonanej w poprzednim punkcie procedury zdarzenia dodaj instrukcję

On Error Resume Next

żeby powstrzymać Microsoft Access przed wywołaniem wy­jątku przy wystąpieniu błędu.

2. Sprawdź po instrukcji Shell, czy wystąpił błąd poprzez sprawdzenie wartości licz­bowej zwracanej przez funkcję Err.

3. Jeśli błąd wystąpił, zawiadom o tym użytkownika przy pomocy instrukcji MsgBox.

4. Sprawdź działanie aplikacji.

Ćwiczenie 2

Utworzenie procedury obsługi błędu

W tym ćwiczeniu będziesz przechwytywał błędy w procedurze zdarzenia wykorzy­stując procedurę obsługi błędów.

Utworzenie procedury zdarzenia

1. Utwórz procedurę zdarzenia Przy kliknięciu dla przycisku Uruchom program 2.

2. W procedurze tej dodaj kod (taki jak poprzednio), który pozwoli użytkownikowi uruchomić aplikację poprzez wprowadzenie jej nazwy w oknie dialogowym, jak to pokazano poniżej:

Uruchom program2 = Shell(InputBox("Wprowadź nazwę programu."), 1)

3. Przełącz się do widoku formularza i sprawdź działanie procedury zdarzenia.

4. W oknie dialogowym wprowadź błędną nazwę aplikacji, na przykład MojProg. Gdy pojawi się komunikat o błędzie zapisz numer błędu wykonania.

5. Uruchom procedurę zdarzenia jeszcze raz i nie wprowadź nazwy programu. Gdy pojawi się komunikat o błędzie zapisz numer błędu wykonania.

Utworzenie procedury obsługi błędu

1. Uaktywnij obsługę błędów przez użytkownika wykorzystując instrukcję On Error.

2. Utwórz procedurę obsługi błędów.

W procedurze obsługi błędów wprowadź kod sprawdzający rodzaj zarejestrowanego błędu, a także pozwalający użytkownikowi na ponowną próbę uruchomienia pro­gramu. Przykładowo, jeśli użytkownik wpisze w oknie tekstowym błędną nazwę aplikacji to uzyska odpowiedź:

Błąd nr 53; Ten plik nie istnieje. Chcesz spróbować jeszcze raz?

3. Jeśli użytkownik nie wpisze nazwy programu to uzyska odpowiedź:

Błąd nr 5; Nieprawidłowe wywołanie procedury. Chcesz spróbować jeszcze raz?

4. Sprawdź działanie aplikacji.

Ćwiczenie 3

Funkcja z obsługą błędów

W tym ćwiczeniu utworzysz funkcję uruchamiającą aplikacje. Funkcja ta będzie do­datkowo zwracać wartość Prawda, jeśli uruchomienie aplikacji się powiedzie, a wartość Fałsz w przeciwnym przypadku.

Utworzenie procedury zdarzenia

1. Utwórz procedurę zdarzenia Przy kliknięciu dla przycisku Uruchom program 3.

2. W procedurze tej wprowadź kod wywołujący funkcję o nazwie MyShell, pokazany poniżej

Dim NazwaProgramu As String

Dim Wynik As String

NazwaProgramu = InputBox("Wprowadź nazwę programu.")

Wynik = MyShell(NazwaProgramu)

MsgBox Wynik

3. W module formularza utwórz nową funkcję o nazwie MyShell.

4. W funkcji tej wprowadź kod realizujący następujące zadania:

• Obsługuje błędy wykonania wykorzystując albo lokalną obsługę błędów, albo procedurę obsługi błędów;

• Zwraca wartość Prawda, jeśli działanie funkcji Shell zakończy się sukcesem, a wartość Fałsz w przypadku wystąpienia błędu.

5. Sprawdź działanie procedury.

Ćwiczenie dodatkowe

Scentralizowany system obsługi błędów

W tym ćwiczeniu przygotujesz centralną funkcję obsługi błędów, która będzie mogła być wykorzystana w wielu procedurach.

Utworzenie aplikacji z kontrolą błędów

1. Utwórz formularz, na którym umieść następujące przyciski:

• WYWOŁANIE BŁĘDU NR 7

• WYWOŁANIE BŁĘDU NR 61

• KONIEC

2. Utwórz procedury zdarzenia Przy kliknięciu dla przycisków Wywołanie błędu nr 7 i Wywołanie błędu nr 61, które wykorzystają instrukcję Error do generowania odpowiedniego błędu wykonania.

3. Utwórz procedurę typu Sub, która będzie obsługiwać te błędy.

4. Dodaj do procedur zdarzenia Przy kliknięciu instrukcje uruchamiające obsługę błę­dów, które będą wywoływać funkcję obsługi błędów i podejmować działania uza­leżnione od wyników dostarczonych przez tę funkcję.

5. Sprawdź działanie aplikacji.

3