Przykład 1. Aktualizacji pola formatu TAK/NIE:

Private Sub Drukuj
Dim dbs As Database
Set dbs = CurrentDb

dbs.Execute „UPDATE Faktury SET [Faktury].Wydrukowanie = TRUE WHERE [Faktury].Wydrukowanie = FALSE;”

dbs.Close
End Sub

Uwaga: Nie kombinujemy z wartościami Tak/Nie, 1/0. Zawsze TRUE i FALSE – bez ujmowania w apostrof.

Przykład 2. Aktualizacja pola wartościami z innego zapytania:

Private Sub Form()
Dim Uzytkow As String
Dim dbs As Database
Set dbs = CurrentDb

Uzytkow = DLookup(„opis”, „Nazwa”, „ID = 1”)

dbs.Execute „UPDATE Faktury SET [Faktury].Wstawil = ‚” & Uzytkow & „‚ WHERE [Faktury].Wstawil is NULL;”

dbs.Close
End Sub

Uwaga: Inne zapytanie wstawiamy za pomocą polecenia VBA DLookup. Uwaga na apostrof, cudzysłów i &.