Tag: formularz

Otwieranie obiektów

Do otwierania obiektów (m.in. formularzy, raportów, tabel, kwerend itp.) kodem VBA wykorzystywana jest metoda DoCmd.Open
np.dla formularza:

Argumenty wejściowe to:

    • FormName – nazwa formularza, który ma zostać otwarty. Argument obowiązkowy
    • AcFormView – widok formularza po otwarciu
      Argument opcjonalny, wartość domyślna acNormal
    • FilterName – nazwa kwerendy stanowiącej filtr dla danych otwieranego formularza. Argument opcjonalny, raczej rzadko stosowany.
    • WhereCondition – opcjonalny argument typu string. W tym miejscu definiujemy filtr wyświetlanych rekordów, odwołując się do ograniczenia wartości pól źródła rekordów formularza.
    • DataMode – sposób dostępu do danych. Argument opcjonalny.
      Do wyboru są tu 4 możliwości

      • acFormAdd – formularz otwierany jest w trybie dodawania nowego rekordu
      • acFormEdit -formularz otwierany jest w trybie edycji/dodawania rekordów
      • acFormPropertySettings – edycja, dodawanie oraz zmiana właściwości formularza. Wartość domyślna  argumentu.
      • acFormReadOnly – formularz tylko do odczytu
    • WindowsMode – otwarcie okna nowego formularza
      • acDialog – formularz jest otwierany w trybie  modalnym i podręcznym – wymaga to reakcji w nowym formularzu (np.naciśnięcia przycisku czy wpisania wartości w polu tekstowym).
      • acHidden – formularz jest niewidoczny dla użytkownika
      • acIcon – formularz otwierany jest w oknie zminimalizowanym
      • acNormal – formularz otwierany jest zgodnie z właściwościami zapisanymi w jego arkuszu właściwości. Wartość domyślna.
    • OpenArgs – argument otwarcia nowego formularza. Używany jest do przekazywania wartości pomiędzy formularzami.

 

 

Formularz ciągły

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.

Jeden ze sposobów przedstawiłam w krótkim filmiku na moim
kanale YouTube o Accessie

Ujmując to skrótowo kolejne kroki to:

    • karta Tworzenie –> Grupa Formularze –> Projekt formularza

    • w Arkuszu Właściwości Formularza zmieniamy widok domyślny na Formularz Ciągły

    • następnie pozostaje tylko sformatowanie poszczególnych formantów formularza

Formularz ciągły może być stosowany samodzielnie w aplikacji, może też być też stosowany jako podformularz.

Kurs Access - formularze i raporty

Przycisk polecenia w formularzu

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.

 

Kurs Access - formularze i raporty

Pole tekstowe w formularzu

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.

 

Kurs Access - formularze i raporty

Kreator formularzy

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.

 

Filtrowanie raportu

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

 

Kurs Access - formularze i raporty