Uruchamianie kwerendy w kodzie VBA

Każdą kwerendę w bazie Access można oczywiście uruchomić także kodem VBA. Robimy to za pomocą metody obiektu docmd
Open Query. (bez spacji w środku, to jedno słowo, ale z przyczyn technicznych muszę zapisać tu w ten sposób).

kliknij, aby powiększyć

Parametry to:

    • QueryName – nazwa kwerendy. Jest to ciąg tekstowy oznaczający nazwę kwerendy w bazie Access. Parametr obowiązkowy;
    • View as View – tryb otwierania kwerendy, wartość domyślna to acViewNormal czyli arkusz danych;
      kliknij, aby powiększyć
    • DataMode as OpenDataMode – możliwość wprowadzania/edycji danych, wartość domyślna – acEdit;
      kliknij, aby powiększyć

Przykładowy kod może wyglądać tak:

kliknij, aby powiększyć

W praktycznych zastosowaniach nigdy nie korzystam z tej metody. Moim zdaniem użytkownik aplikacji Access nie powinien mieć dostępu do kwerend – wszystko można zrobić przecież w oparciu o formularze i/lub raporty.

 

 


 

Egzamin Specjalista MS Access

Kwerenda parametryczna

Kwerenda parametryczna to kwerenda (wybierająca, grupująca, funkcjonalna), w której kryteria są zdefiniowane przez wartość pobieraną np. z załadowanego formularza czy wpisywaną ręcznie.

Załóżmy, że mamy taką kwerendę:

kliknij, aby powiększyć

Chcąc wstawić parametr – w danych polu siatki kwerendy wpisujemy jakiś krótki tekst informacyjny w nawiasie kwadratowym []:
Np.:

kliknij, aby powiększyć

Po otwarciu kwerendy automatycznie wyświetli się komunikat

kliknij, aby powiększyć

Po wpisaniu numeru – kwerenda pokaże rekordy spełniające dany warunek.

Można też skorzystać tu z kreatora wyrażeń i odwołać się do rekordu załadowanego formularza. Wówczas nie trzeba nic wpisywać, kwerenda wskaże wybrany rekord/rekordy.

kliknij, aby powiększyć

Kwerendę parametryczną wybierającą możemy stosować np. jako alternatywę do filtrów, do zmiany źródła formularza itp. Jeszcze więcej możliwości pojawia się, jeżeli kwerendą parametryczną jest kwerenda funkcjonalna (aktualizująca, dołączająca czy usuwająca).

Oczywiście można tu stosować także symbole wieloznaczne.


Kurs Access - kwerendy

 

Kwerenda wybierająca

Kwerenda wybierająca to jeden z obiektów Accessa. Zwraca ona rekordy zgodnie z ustawieniami kwerendy.
Kwerendę możemy utworzyć zarówno przez kreatora kwerend,
jak i ręcznie w widoku projektu. Obie te możliwości są na karcie Tworzenie –> Kwerendy:

W projekcie kwerendy, przechodzimy najpierw do widoku projektu i wybieramy tabelę/tabele i lub kwerendę/kwerendy, gdzie znajduje się źródło danych dla tworzonej kwerendy:

Następnie przeciągamy wybrane przez nas pola kwerendy na siatkę kwerendy:

Po przejściu do widoku Arkusza danych kwerendy :

na ekranie widzimy

Warto też sprawdzić widok SQL kwerendy.  Dobry sposób nauki SQL, przyda się też w definiowaniu kwerend kodem VBA.
W tym przypadku wygląda tak:

SELECT TabelaKsiazki.NumerKatalogowy, TabelaKsiazki.Tytul, TabelaKsiazki.Dzial
FROM TabelaKsiazki;

Oczywiście to najprostsza z możliwych kwerend wybierających, jak je rozbudować i zmodyfikować będzie tematem kolejnych notek


Kurs Access - kwerendy

 

Dodawanie nowego rekordu

W aplikacji Access dane są zapisywane w tabeli. Bezpośredni dostęp do tabel (zarówno w do jej projektu jak i zapisanych danych) powinien mieć jednak tylko administrator bazy. Normalny użytkownik zarówno edytować jak i dodawać/usuwać dane powinien tylko poprzez odpowiednio oprogramowane formularze.
Owszem, można normalny, oparty na kwerendzie lub tabeli formularz otworzyć w trybie dodawania, ale moim zdaniem nie jest to dobre wyjście. W takim formularzu dane trafiają od razu do tabeli, nie trzeba ich zapisywać i tracimy kontrolę nad poprawnością wprowadzanych danych. Oczywiście, można wstawić reguły poprawności, ale to, że w danym polu jakaś wartość nie da się wpisać, nie wyklucza wcale tego, że nowy rekord został dodany, choć z niepełnymi danymi. Bardzo szybko może spowodować to bałagan.

Zdecydowanie lepszym rozwiązaniem jest formularz bez źródła danych, z niezwiązanymi polami.
Na przykład dla takiej tabeli:

dobrym rozwiązaniem może być taki formularz dodawania

Warto każde pole odpowiednio sformatować i nadać własne nazwy. To ostatnie nie jest wprawdzie konieczne, ale standardowe nazwy typu Tekst123, Tekst378 utrudnią później pracę, nazwy typu TekstTytul, czy Dzial itp. zdecydowanie ułatwią odwoływanie się  do nich w kwerendach czy kodzie VBA. Można tu też wpisać wartości domyślne – np.Data przyjecia=Date() (czyli bieżąca data systemowa).

Oczywiście też przyciski Zapisz – do zapisania danych w tabeli oraz Anuluj – do zamknięcia formularza bez zapisywania.
A jak zapisać dane? Jest tu kilka sposobów. Można uruchomić np. taką kwerendę dołączającą:

kliknij obrazek, aby powiększyć kwerendę

Poszczególne pola kwerendy to np…:
Wyr1: [Formularze]![Formularz_DodajKiazke]![TAutor]
dołaczane do pola Autor i w analogiczny sposób – kolejne. Potem wystarczy uruchomić kwerendę i dane zostają zapisane w tabeli.
Np. przez takie makro:

Oczywiście wskazane jest tu dodanie sprawdzenia czy wszystkie pola obowiązkowe są wypełnione i ewentualnie jaki typ danych  jest wpisany. No i samo uruchomienie kwerendy dołączającej spowoduje wyświetlenie komunikatów ostrzegawczych – też powinny zostać wyłączone na czas uruchomienia kwerendy.

Zdecydowanie lepszym sposobem na zapisanie danych z takiego formularza jest jednak procedura VBA.
Przypisujemy wartości poszczególnych pul formularza do zmiennych, sprawdzamy ich poprawność, a następnie wykonujemy kod SQL oparty na kodzie kwerendy dołączającej.
Przykładowy kod w tym przypadku może wyglądać tak:

Private Sub PolecenieZapisz_Click()
Dim JAutor As String
Dim JTytul As String
Dim JDzial As Long
Dim JCena As Currency
Dim JDataP As Date
Dim JBest As Boolean
Dim Kwera As String
If IsNull(Me.TAutor) Then
MsgBox “Brak autora”, vbCritical, “Brak wymaganych danych”
Me.TAutor.SetFocus
Exit Sub
Else
JAutor = Me.TAutor
End If
If IsNull(Me.TTytul) Then
MsgBox “Brak tytułu”, vbCritical, “Brak wymaganych danych”
Me.TTytul.SetFocus
Exit Sub
Else
JTytul = Me.TTytul
End If
If IsNull(Me.TDzial) Then
MsgBox “Przypisz dział”, vbCritical, “Brak wymaganych danych”
Me.TDzial.SetFocus
Exit Sub
Else
JDzial = Me.TDzial
End If
JCena = Nz(Me.TCena, 0)
JDataP = Nz(Me.TData, Date)
JBest = Nz(Me.TBestseller, False)
Kwera = “INSERT INTO TabelaKsiazki ( Autor, Tytul, Dzial, Cena, DataP, Bestseller ) ” & _
“SELECT ‘” & JAutor & “‘ AS Wyr1, ‘” & JTytul & “‘ AS Wyr2, ” & JDzial & ” AS Wyr3, ” & JCena & ” AS Wyr4, #” & JDataP & “# AS Wyr5, ” & JBest & ” AS Wyr6;”
DoCmd.SetWarnings False
DoCmd.RunSQL Kwera
DoCmd.SetWarnings True
DoCmd.Close
End Sub

Moją ulubioną metodą dopisywania rekordów jest natomiast Recordset i Add.New. To już jednak temat na zupełnie oddzielną  notkę.

 

Kwerenda

Podstawowe typy kwerend w bazie Accessa to:

    • kwerenda wybierająca
    • kwerenda grupująca
    • kwerenda krzyżowa
    • kwerenda składająca
    • kwerendy funkcjonalne:
      • dodająca
      • usuwająca
      • aktualizująca
      • tworząca tabele

To podstawowy podział, choć w każdym typie kwerendy możliwe są różnego rodzaju podtypy np. kwerendy parametryczne.
Generalnie kwerendy są tworzone  w oknie siatki kwerendy, choć można podejrzeć je w widoku SQL.

Każdy typ kwerend to temat na osobną notkę.


Kurs Access - kwerendy