Tworząc aplikację Access w dużym stopniu można zautomatyzować poprzez wykorzystanie wbudowanych w system kreatorów. Oczywiście nie jest to szczyt możliwości, stanowi raczej podstawę do rozbudowy i modyfikacji.
Jednym z takich kreatorów jest Kreator Formularzy – karta Tworzenie –> Formularze –> Kreator formularz.
Wszystkie formularze służą przede wszystkim do odczytu, modyfikacji, usuwania i dodawania danych. Są tak ważną częścią aplikacji Access, że mam w planach napisanie wielu notek im poświęconym.
A na początek krótki filmik z mojego kanału YT o Accessie, ilustrujący wykorzystanie kreatora formularzy.
Konkretny przykład do rozwiązania: jak wygenerować raport w Accessie z danymi wyfiltrowanymi na podstawie danych zawartych w polach formularza niezwiązanego?
Załóżmy, że mamy tabelę z katalogiem książek:
raport oparty na podstawie tej tabeli:
oraz prosty formularz niezwiązany (o nazwie FormularzSzukaj) z formantami JakiDzial i JakaCena:
Po wpisaniu w te pola np.sensacja i 15 – chcemy otrzymać raport pokazujący te książki z działu sensacja, których cena wynosi co najmniej 15zł. Pod zdarzenie przy kliknięciu przycisku Otwórz raport wprowadzamy makro:
kliknij rysunek, aby powiększyć
Warunek WHERE dla makra to w tym przypadku:
[Dzial]=[Formularze]![FormularzSzukaj]![JakiDzial] And [Cena]>=[Formularze]![FormularzSzukaj]![JakaCena]
Chcąc otworzyć nie raport tylko podgląd wydruku raportu – wystarczy zmienić atrybut Widok na Podgląd wydruku.
kliknij rysunek, aby powiększyć
Można też wybrać tu Wydruk, aby nie otwierając raportu, od razu wysłać go na drukarkę.
Zamiast makra pod przyciskiem generowania raportu można też użyć procedury VBA.
Procedura otwarcia raportu:
Private Sub Polecenie5_Click()
Dim JakiDzial As String
Dim JakaCena As Currency
JakiDzial = Me.JakiDzial
JakaCena = Me.JakaCena
DoCmd.OpenReport “Raportksiazek”, acViewReport, , “dzial='” & JakiDzial & “‘ and cena>=” & JakaCena
End Sub
Procedura otwarcia podglądu wydruku raportu:
Private Sub Polecenie5_Click()
Dim JakiDzial As String
Dim JakaCena As Currency
JakiDzial = Me.JakiDzial
JakaCena = Me.JakaCena
DoCmd.OpenReport “Raportksiazek”, acViewPreview, , “dzial='” & JakiDzial & “‘ and cena>=” & JakaCena
End Sub
Procedura bezpośredniego wydruku raportu:
Private Sub Polecenie5_Click()
Dim JakiDzial As String
Dim JakaCena As Currency
JakiDzial = Me.JakiDzial
JakaCena = Me.JakaCena
DoCmd.OpenReport “Raportksiazek”, acViewNormal, , “dzial='” & JakiDzial & “‘ and cena>=” & JakaCena
End Sub
