1. Utwórz główny panel swojej aplikacji, zawierający przyciski wywołujące następujące akcje:

• edycja książek,

• wprowadzenie nowej książki,

• edycja autorów,

• wprowadzenie nowego autora,

• wyjście z programu.
  

Otwieranie formularzy:

DoCmd.OpenForm nazwa_formularza, , , ,acAdd
Zamiast acAdd można użyć: acEdit, acReadOnly

Zamykanie formularzy:

DoCmd.Close acForm, nazwa_formularza

Zakończenie aplikacji:

DoCmd.Quit
Sprawdzenie, czy otwarty:

Public Function IsLoad(ByVal MyForm As String) As Boolean

If SysCmd(acSysCmdGetObjectState, acForm, MyForm) <> 0 Then

If Forms(MyForm).CurrentView <> 0 Then

IsLoad = True

End If

End If

End Function

Ustawienie fokusu:

Np. Forms![Ksiazki].SetFocus

2. Na formularzu do wprowadzania książek dodaj przyciski umożliwiające:

• przejście do następnego rekordu,

• przejście do poprzedniego rekordu,

• przejście do ostatniego rekordu,

• przejście do pierwszego rekordu,

• wprowadzenie nowego rekordu.

Chodzenie po rekordach może być realizowane przez:

DoCmd.GoToRecord, , acFirst

Zamiast acFirst możemy wstawić: acPrevious, acNext, acLast, acNewRec.

3. Na formularzu do wprowadzania książek umieść przycisk usuwający bieżący rekord.
   

Można to zrobić wywołując z poziomu kodu VB odpowiedni element menu Access'a:

DoCmd.DoMenuItem acFormBar, acEditMenu, 7, , acMenuVer70

4. Dodaj na formularzu do wprowadzania książek pole tekstowe, w które użytkownik będzie mógł wprowadzić kryterium filtrowania. Dodaj przycisk filtrujący rekordy. Po ponownym naciśnięciu przycisku filtr powinien zostać wyłączony, a pole wyczyszczone.

Przykład użycia filtra:

Me.Filter = „[tytul]=Forms![Ksiazki]![pole_filtra]”

Me.FilterOn = True

5. Do wszystkich procedur dodaj obsługę błędów.

Przykład obsługi błędów:

Sub Przycisk_Click()

On Error GoTo Err_Przycisk_Click

[...]

Exit Sub

Err_Przycisk_Click:

MsgBox „Wystąpił błąd, skontaktuj się z administratorem”

End Sub

Oprócz „On Error Goto …” możemy używać „On Error Resume Next”.

6. Na głównym panelu swojej aplikacji umieść przycisk sprawdzający, czy formularz „Książki” jest otwarty. Powinno pojawiać się okienko z komunikatem np. ”Formularz Książki jest otwarty”. Użyj funkcji „IsLoad” z punktu 1.

---