Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro zmieniajace kryteria w kilku kwerendach w Accessie

gajos · forumowicz Posty: 16

Witam.
Wiem, że to jest forum Excela i że VB pod Excela różni się nieco od tego pod Accessa (chyba?), ale piszą tu tacy mistrzowie, że może poradzą sobie z tym, wydaje mi się prostym, makrem. Jesli nie to może ktoś zna analogiczne forum dla Accessa.

Potrzebuję makra, które po odpaleniu w Accessie odpalałoby okienko (input boxa), w którym mógłbym wpisać wartość (tekstową, lub Null), a która to wartość następnie wpisywałaby się w kilku różnych kwerendach jako kryterium dla jednego z pól (pole to jest takie samo we wszystkich kwerendach).

Z góry dzięki i pozdrawiam,
GJS

tkuchta1 · Excel Expert **Pomógł:** 1495 razy Posty: 2270

nie znam się na ACC ale może inaczej..

Wstawiam mały formularz na którym określam tę wartość w TextBox'ie i klikam Przycisk.. a pod nim

Kod:

Option Compare Database
Option Explicit

Private Sub Polecenie40_Click()
With Me.Tekst36
If Len(.Value) > 0 Then
vTest = .Value
End If
End With
End Sub

a mod. Standardowy

Kod:

Option Compare Database
Option Explicit
Public vTest As Variant

Public Function TestValue() As Variant
TestValue = vTest
End Function

a więc formularzem określasz wartość publicznej zmiennej w mod. Standardowym. Masz też funkcję UDP która zwraca wartość tej zmiennej. Teraz poprostu wykorzystaj tę funkcję jako kryterium dla kwerendy, kwerend.. :-)

(przykład w załączniku)

test(mdb).zip

Pobierz Plik ściągnięto 8 raz(y) 31.07 KB

test.zip

Pobierz Plik ściągnięto 9 raz(y) 30.27 KB

gajos · forumowicz Posty: 16

Szit, zapomniałem wspomnieć że mam tylko Office'a 2003. Mógłbyś (lub jakaś inna dobra dusza) zapisać ten pliczek jako mdb?

Z góry dzięki,
GJS

[ Dodano: 2011-12-15, 17:06 ]
OK dzięki, działa, ale jeszcze nie do końca idealnie :) W pierwszym poście nie do końca precyzyjnie się wyraziłem a chodzi o to aby:

Ta zmienna vTest (no i co za tym idzie funkcja TestValue() obsłużyła mi też wartość "*" (gwiazdki). Chodzi o to, że w kryteriach w kwerendzie mogę wpisać kryterium postaci: "*lala", czy "lala*", czy "*lala*" co powinno mi zwrócić wszystkie wyniki z lala na końcu, początku, bądź w środku (* zastępuje oczywiście dowolną ilość znaków). No i co ważniejsze umożliwiłoby mi to "wyczyszczenie" kryterium - w momencie wpisania * - kwerenda znowu zwracałaby wszystkie wyniki, aktualnie zapamiętuje ostatnio wpisany tylko (i zawsze musi być jakiś wpisany, przy niczym kwerenda daje pusty wynik, jako że wyszukuje tylko Null-e wtedy pewnie).

Any ideas? :)

tkuchta1 · Excel Expert **Pomógł:** 1495 razy Posty: 2270

a może wystarczy że jako kryterium Kwerend napiszesz

Kod:

Like TestValue()

a do vTest będziesz zapisywał np: a* czy *

test.zip

Pobierz Plik ściągnięto 7 raz(y) 34.31 KB

gajos · forumowicz Posty: 16

Normalnie dziura w mózgu, inaczej nie potrafię siebie wytłumaczyć :) Dzięki.