# Przykłady praktyczne zastosowania VBA

### Zastosowanie pętli "Do ... Loop Until ..."

Standardowe użycie pętli:

Zapętlenie programu w celu nie wchodzenia na nieskończoność (w przypadku trafienia na sytuację w której x = 59 program przerywa działanie):

Przypadek zapętlenia (funkcja nie może osiągnąć założonej wartości rownej liczbie "100"):

### Zastosowanie pętli "While ... Wend ..."

Standardowe użycie pętli:

### Zastosowanie instrukcji "For ..."

Standardowe użycie "For":

Ucieczka z programu przy użyciu instrukcji "For":

### Zastosowanie pętli "If ... Then ... End If"

Standardowe użycie pętli:

### Zastosowanie pętli "If ... Then ... Else ... End If"

Standardowe użycie pętli:

### Operatory logiczne w VBA

Operator | Działanie
--- | ---
= | porównanie np.: a = b
> | czy a > b
< | czy a < b
>= | czy a >= b
<= | czy a <= b
<> | czy a jest różne od b
AND | Logiczne i
OR | Logiczne and
NOT | Logiczne nie - zaprzeczenie
XOR | Logiczne EX-OR - alternatywa wykluczająca

### Zastosowanie algebry logiki

Standardowe użycie:

### Zastosowanie instrukcji "CASE"

Standardowe użycie:

### PRAKTYCZNE ZASTOSOWANIE VBA W BAZACH DANYCH

W celu pokazania przydatności VBA w bazach danych z przygotowanej tabeli zawierającej atrybuty:
nazwisko, imię, wiek utworzymy formularz z tabeli "osoby", który będzie nas informował o dodatkowej informacji zależnej od wieku osoby po kliknięciu w przycisk INFO

Aby oprogramować zdarzenie polegające na pokazaniu dodatkowej informacji należy wstawić przycisk i nadać mu nazwę np.: INFO

w widoku formularza kliknąć prawym przyciskiem w przycisk. Następnie w zakładce zdarzenie przy kliknięciu klikamy w pole z 3 kropkami i uruchamia się okno wyboru konstruktora.

Edytujemy kod VBA (niebieskie tło) - oprogramowujemy zdarzenia.

Po edycji zamykamy konstruktor i przełączamy formularz z widoku projektu do widoku formularza.

Teraz klikając w przycisk INFO uzyskujemy dodatkową informację czy osoba jest pełnoletnia:

⇒ Spis treści ⇐

⇐ PREV NEXT ⇒