Autor: Dariusz Wardowski

1

MsAccess – ćwiczenia nr 11

Zad. 1 Utworzyć formularz taki jak na rys. 1.

Rysunek 1 Formularz formData

Napisać podprocedurę obliczającą pole prostokąta oraz funkcję zwracającą obwód prostokąta
dla podanych dwóch argumentów. Napisaną funkcję i popdprocedurę wykorzystać do obsługi
powyższego formularza.

Składnia pisania funkcji jest postaci:

Function nazwaFunkcji(argumenty) As typZwracany
...
nazwaFunkcji = wartoscZwracana
End Function

Obiekt DoCmd służy do wywoływania akcji makr lub poleceń z poziomu procedury VB.

Aby zadeklarować zestaw rekordów z tabeli Osoby w bazie danych Kadry i otworzyć go jako
tabelę należy wykonać instrukcje:

Dim baza As DAO.Database
Dim rekordyOsoby As DAO.RecordSet
Set baza = CurrentDb
Set rekordyOsoby = baza.OpenRecordset(„Osoby”, dbOpenTable)

Wybrane metody dla obiektu typu RecordSet: FindFirst (znajduje rekord, który spełnia
podane kryterium), Delete (usuwa bieżący rekord), Edit (blokuje rekord i czyni go dostępnym
do modyfikacji), Update (modyfikacja rekordu), AddNew (dodanie nowego rekordu).
Właściwość NoMatch sprawdza, czy znaleziono wiersz po użyciu np. FindFirst.

Przykłady użycia:

RekordyOsoby.FindFirst „plec = M”
RekordyOsoby.Delete

Autor: Dariusz Wardowski

2

RekordyOsoby.AddNew
RekordyOsoby![imie]=”Jan”
RekordyOsoby![nazwisko]=”Kowalski”
...
RekordyOsoby.Update

Instrukcje sterujące

Do [{While|Until} <warunek>]
[<instrukcje>]
[Exit Do]
[<instrukcje>]
Loop

Np.

Do Until rekordyOsoby.EOF

[<instrukcje>]

rekordyOsoby.MoveNext
Loop

For licznik = pierwszy To ostatni [Step krok]

[<instrukcje>]

[Exit For]

[<instrukcje>]

Next [licznik]

For Each element In grupa

[<instrukcje>]

[exit for]

[<instrukcje>]

Next [element]

Zad 2. Utworzyć formularz (I odpowiednie podprocedury) za pomocą którego możliwa
będzie edycja tych osób, które nie mają drugiego imienia. Dla tych osób ma się pojawić w
polu imie2 tekst, który będzie podany na formularzu. Po edycji danych otworzyć formularz
formOsoby.

Zad. 3. Utworzyć formularz wraz z odpowiednimi podprocedurami za pomocą którego
możliwe będzie dodanie nowego rekordu do tabeli osoby. Wiersz powinien być dodany do
tabeli osoby pod warunkiem, że ilość osób w tabeli nie przekracza liczby podanej na
formularzu.

Zad. 4. Utworzyć formularz za pomocą, którego możliwe będzie usunięcie tych wierszy z
tabeli pensje, które są już nieaktualne. Na końcu wyświetlić komunikat z ilością usuniętych
pensji.

Zad. 5. Utworzyć formularz (i procedury w VBA), za pomocą, którego możliwe będzie
wybranie osoby z listy rozwijalnej. Po wciśnięciu przycisku „ile” ma się pojawić komunikat o
ilości przepracowanych lat.