1. Zdarzenie „przy bieżącym” (Form_Current) jest uruchamiane zawsze po wyświetleniu rekordu, a więc po nawigacji po rekordach, jak również usunięciu i wstawieniu nowego. Dzięki temu nasz formularz będzie mógł automatycznie reagować na dane pojawiające się na formularzu.
    Oprogramuj zdarzenie „przy bieżącym” tak, aby tło formularza zmieniało się w zależności od tego, czy wyświetlona aktualnie książka jest podręcznikiem.

    If podrecznik.Value = -1 Then
    Me.Detail.BackColor = &HA7DA4E
    Else
    Me.Detail.BackColor = &HCF7B79
    End If

  2. W wielu przykładach używaliśmy MsgBox aby uzyskać wyskakujące okienko informujące lub pytające użytkownika przy zajściu pewnych zdarzeń. Ogólna składnia MsgBox wygląda następująco:

    MsgBox „Treść komunikatu”, Wygląd_okienka, „Tytuł okienka”

    Treść to napis, który pojawi się w środku okienka. Tytuł pojawi się na górnej belce okienka. Wygląd określa, jakie przyciski pojawią się w okienku:

    vbOKOnly, vbOKCancel, vbYesNoCancel, vbAbortRetryIgnore, vbYesNo, vbRetryCancel

    oraz jaki będzie ogólny wygląd okienka (wykrzyknik, znak zapytania, itp.):

    vbCritical, vbQuestion, vbExclamation, vbInformation

    Możemy łączyć wartości z obu grup pisząc np.: vbYesNo + vbQuestion.
    Możemy odebrać wartość zwróconą przez MsgBox. Dostępne wartości to:

    vbAbort, vbCancel, vbIgnore, vbRetry, vbYes, vbNo, vbOK

    Przykład:
    If MsgBox(„Czy na pewno”, vbYesNo + vbQuestion, „Pytanie”) = vbYes Then ...

  3. Dotychczas obsługiwaliśmy pola listy i pola combo, z których można było dokonać wyboru jednego tylko elementu. We właściwościach takiego pola można jednak ustawić możliwość wyboru więcej niż jednego elementu jednocześnie. Możemy obsłużyć np. przycisk, który przejrzy zaznaczone elementy i wykona dla nich jakąś akcję (np. usunięcie jak w poniższym przykładzie):

    Private Sub Usun_Click()
    Dim elem As Control, poz As Variant
    Set elem = Me!Lista
    For Each poz In elem.ItemsSelected
    If MsgBox(„Czy na pewno usunąć”, vbYesNo, „UWAGA!”) = vbYes Then
    DoCmd.RunSQL „DELETE FROM Pracownicy WHERE Id_prac=” & elem.Column(0,poz)
    End If
    Next poz
    elem.Requery
    End Sub

  4. Istnieje możliwość przeglądania tabeli lub kwerendy z poziomu VB wiersz po wierszu. Służy do tego obiekt Recordset. Przykład użycia:

    Set MojaBd = CurrentDb
    Set MojeRekordy = MojaBd.OpenRecordSet(„Pracownicy”)
    MojeRekordy.MoveFirst
    Do Until MojeRekordy.EOF
    If MojeRekordy!Tytul = „Sprzedawca” Then
    MojeRekordy.Edit
    MojeRekordy!Tytul = „Księgowy”
    MojeRekordy.Update
    End If
    MojeRekordy.MoveNext
    Loop
    MojeRekordy.Close

    W powyższym przykładzie w tabeli „Pracownicy” zostaną przejrzane wszystkie rekordy i tam, gdzie w polu tytuł znajdzie się napis „Sprzedawca”, zostanie zmieniony na „Księgowy”.

  5. Funkcja DLookUp umożliwia sprowadzenie z bazy danych pojedynczej wartości. Przykład: Chcemy, aby przy wyświetlaniu książki w dodatkowym polu pojawiła się liczba książek tego samego autora. Przygotujemy najpierw kwerendę zwracającą liczbę książek dla każdego autora (grupujemy po IdAutora, wyświetlamy IdAutora oraz COUNT). W tym przykładzie kwerenda nazywa się „IleKsiazek”.

    pole = DLookup("CountOfTytul", "IleKsiazek", "IdAutora=Forms!Ks!IdAutora")