Instrukcje warunkowe w VBA

Lekcja: Instrukcje Warunkowe w Visual Basic w Access

Wprowadzenie do Instrukcji Warunkowych

Instrukcje warunkowe w VBA pozwalają na wykonywanie różnych operacji w zależności od spełnienia określonych warunków. Dzięki nim można kontrolować przepływ programu, wprowadzając logikę decyzyjną.

W VBA dostępne są trzy główne konstrukcje warunkowe:

1. If...Then

Podstawowa instrukcja, która wykonuje kod, jeśli warunek jest prawdziwy.

  • Składnia: vba If [warunek] Then [instrukcje] End If
  • Przykład: vba If Liczba > 10 Then MsgBox "Liczba jest większa niż 10" End If

2. If...Then...Else

Wykonuje jeden blok kodu, jeśli warunek jest prawdziwy, a inny, jeśli jest fałszywy.

  • Składnia: vba If [warunek] Then [instrukcje_gdy_prawdziwy] Else [instrukcje_gdy_falszywy] End If
  • Przykład: vba If Liczba Mod 2 = 0 Then MsgBox "Liczba jest parzysta" Else MsgBox "Liczba jest nieparzysta" End If

3. If...Then...ElseIf

Pozwala sprawdzić wiele warunków w jednym bloku.

  • Składnia: vba If [warunek1] Then [instrukcje_gdy_warunek1] ElseIf [warunek2] Then [instrukcje_gdy_warunek2] Else [instrukcje_gdy_zaden_warunek] End If
  • Przykład: vba If Wynik >= 90 Then MsgBox "Ocena: A" ElseIf Wynik >= 80 Then MsgBox "Ocena: B" Else MsgBox "Ocena: C" End If

4. Select Case

Alternatywa dla zagnieżdżonych instrukcji If...Then...ElseIf. Działa na zasadzie porównywania jednej wartości z różnymi przypadkami.

  • Składnia: vba Select Case [wyrażenie] Case [wartość1] [instrukcje_gdy_wartosc1] Case [wartość2] [instrukcje_gdy_wartosc2] Case Else [instrukcje_gdy_zaden_przypadek] End Select
  • Przykład: vba Select Case Dzien Case 1 MsgBox "Poniedziałek" Case 2 MsgBox "Wtorek" Case Else MsgBox "Inny dzień" End Select

Ćwiczenia

Ćwiczenie 1: Warunek If...Then

Stwórz formularz z polem tekstowym txtLiczba i przyciskiem Sprawdz. W kodzie VBA napisz instrukcję, która sprawdzi, czy liczba wpisana w txtLiczba jest dodatnia. Jeśli tak, wyświetl komunikat "Liczba jest dodatnia".

Ćwiczenie 2: If...Then...Else

Utwórz formularz z dwoma polami tekstowymi: txtLiczba1 i txtLiczba2 oraz przyciskiem Porownaj. Napisz kod VBA, który porówna obie liczby i wyświetli komunikat, która jest większa. Jeśli są równe, wyświetl komunikat "Liczby są równe".

Ćwiczenie 3: If...Then...ElseIf

Stwórz formularz z polem tekstowym txtOcena i przyciskiem OkreslOcene. Wpisując liczbę w txtOcena, użytkownik powinien otrzymać ocenę na podstawie skali:

  • 90+ = A
  • 80-89 = B
  • 70-79 = C
  • Inne wartości = D

Ćwiczenie 4: Select Case

Utwórz formularz z polem tekstowym txtDzien i przyciskiem PokazDzien. Wpisz numer dnia tygodnia (1-7) i wyświetl jego nazwę, np. 1 = Poniedziałek, 2 = Wtorek, itd. Jeśli wartość jest spoza zakresu, wyświetl komunikat "Nieprawidłowy numer dnia".

Podsumowanie

  • Instrukcje warunkowe pozwalają wprowadzać logikę do programów VBA.
  • Należy unikać zbyt głębokiego zagnieżdżania If, gdyż Select Case może być bardziej czytelny.
  • Praktyka na formularzach pozwoli uczniom zrozumieć działanie instrukcji w praktyce.