Formularz ciągły to formularz, w którym na jednym ekranie formularza wyświetlanych jest wiele rekordów.
Można go utworzyć oczywiście standardowo za pomocą Kreatora Formularzy, ale można też zbudować go samodzielnie.
Przycisk polecenia w formularzu to najczęściej stosowany wyzwalacz uruchamiający makro lub procedurę.Podobnie jak inne formanty, chcąc wstawić go do formularza wystarczy w widoku Projektu wybrać jego kontrolkę w grupie Formantów na karcie Projektowanie.
Przy włączonym przełączniku Użyj kreatora formantów otworzy się automatycznie formularz Kreatora przycisków poleceń, w którym można wybrać jeden z najczęściej stosowanych przycisków polecenia.
Można albo skorzystać z tego kreatora albo samodzielnie ustawiamy zdarzenie związane przyciskiem. W Arkuszu właściwości w zakładce zdarzenia wybieramy Procedurę zdarzenia (czyli procedurę w kodzie VBA) lub makro.
Warto zwrócić uwagę, że w tym przypadku możliwości oprogramowanych zdarzeń są szersze – nie tylko kliknięcie na przycisk.
A tu krótki filmik z mojego kanału YT o Accessie, ilustrujący wstawianie przycisk polecenia do formularza.
Pole tekstowe w formularzu to ten formant, w którym wyświetlane (edytowane, dodawane) są dane. Najczęściej pobierane są z tabel/kwerend (związany format formularza), ale mogą być też zupełnie niezwiązane, oparte np. na formułach.
Chcąc wstawić Pole tekstowe do formularza wystarczyć przejść do widoku projektu formularza w karcie Narzędzia główne:
a następnie – przycisk w grupie Formanty na karcie Projektowanie.
No, a potem można już w pełni korzystać z Arkusza właściwości ustawiając odpowiednie formatowanie czy też programując zdarzenia związane z tym formantem.
A tu krótki filmik z mojego kanału YT o Accessie, ilustrujący wstawianie pola tekstowego do formularza.
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
