[SOLVED]Przycisk w formularzu otwierający kwerendę

[wbp]

Witam.
Jak w temacie.
Nie mogę tego znaleźć w necie. Może ktoś podpowie. Jest pod przyciskiem możliwość definiowania Akcji lecz jest ograniczony wybór i nie ma otwórz kwerendę. Jest makro openqery ale jak z niego skorzystać.
Musi być możliwość wpisania nazwy kwerendy.
W Access było bardzo prosto zrobić taki przycisk aż dziw , że w Libre tego nie ma.
Pozdrawiam

[Jan_J]

Dokumentacja jest w http://www.access2base.com/access2base.html
A to prosty kod otwierający okno kwerendy o wskazanej nazwie:

Kod: Zaznacz cały

Sub callq()
    If GlobalScope.BasicLibraries.hasByName("Access2Base") Then
        GlobalScope.BasicLibraries.loadLibrary("Access2Base")
    End If
    Call Application.OpenConnection(ThisDatabaseDocument)
    qname = "q1"
    DoCmd.OpenQuery(qname, 0)
End Sub

Makro podpięte do przycisku musi być w tym przypadku bezparametrowe. Procedura
callq() powyżej spełnia to wymaganie. W porządnym projekcie nawiązanie połączenia powinno się odbyć raz, na początku.

Nazwa kwerendy jest daną String. Możesz ją wpisać na sztywno (jak w przykładzie), pobrać z formularza (np. z pola kombi), wpisać z palca etc.

Załączam plik testowy.

call_query_from_form.odb

(12.63 KiB) Pobrany 47 razy

[wbp]

Dziękuję za szybka odpowiedź.
Pobrałem plik ale przycisk nie uruchamia otwarcie kwerendy. Być może .
coś źle robię. Wchodzę na Pana bazę , kliknięciem otwieram formularz , naciskam przycisk i nic się nie otwiera.
Może trzeba coś zrobić z makrami.
Pozdrawiam.

[wbp]

Makro się nie otwierało była blokada w opcjach Bezpieczeństwo makr.

[wbp]

Witam.
Jeszcze dopiszę , że miałem zamieszanie z lokalizacją makra. Musi być przypisane do mojej bazy.
Zaproponowane rozwiązanie powoduje , że do każdego przycisku trzeba tworzyć nowe makro callq1, callq2 ... podstawiając nazwę kwerendy .
Ale i tak dziękuję za rozwiązanie.
Sprawa rozwiązana

[Jermor]

Zaproponowane rozwiązanie powoduje, że do każdego przycisku trzeba tworzyć nowe makro callq1, callq2 ...

No nie koniecznie. @Jan_J napisał przecież, że nazwę kwerendy możesz dostarczyć z np. pola kombi albo pola listy.

[Rafkus]

Otwierając formularz w trybie edycji, zyskasz dostęp do właściwości przycisku (od innych elementów również). Jest tam pole "Dodatkowe informacje......", tam możesz wpisać nazwę kwerendy, którą chcesz otworzyć a poniższe makro właśnie z tej właściwości będzie pobierać nazwę do otwarcia.

Kod: Zaznacz cały

Sub callq1(oEv)
	If GlobalScope.BasicLibraries.hasByName("Access2Base") Then
		GlobalScope.BasicLibraries.loadLibrary("Access2Base")
	End If
	Call Application.OpenConnection(ThisDatabaseDocument)
	qname = oEv.Source.Model.Tag
	DoCmd.OpenQuery(qname , 0)
End Sub

[wbp]

Witam.
Dziękuję za podpowiedź. Po ostatnim wyjaśnieniu przycisk działa tak jak chciałem.
Temat uważam za rozwiązany.