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.