Krzysztof N.

Krzysztof N. Kierownik Działu
Produkcji /
Prokurent

Temat: Filtrowanie podformularza w zależności od...

Witam,
mam coś w rodzaju kreatora z kolejnymi zapytaniami.
1. Formularz1 z kontrolką txt1. W zdarzeniu txt1AfterUpdate, w zależności od wartości txt1...
2. ... otwierać się ma Formularz2 (przy jednoczesnym zamknięciu Formularza1) z podformularzem PodForm1 w widoku arkusz danych opartym na tabeli (podlinkowanej)

Chciałbym, ażeby w zależności o wartości txt1 PodForm1otwierany był z filtrem.

Pozdrawiam,
Krzysiek
Tomasz Gryzio

Tomasz Gryzio Dyrektor
zarządzający/Trener/
Konsultant - It
School

Temat: Filtrowanie podformularza w zależności od...

Witam,

Wszystkie elementy sprowadzają się do listy prawidłowych rozkazów wydawanych odpowiednim obiektom w odpowiedniej kolejności.
Posiadając taki kod w Formularzu1 (w pliku frmTabela):

Private Sub Pole1_AfterUpdate()
DoCmd.OpenForm "frmKlienci" 'otworz Formularz2 (w pliku frmKlienci)
If IsNumeric(Pole1.Value) = True Then 'jeżeli wprowadzona wartość jest liczbą
Forms("frmKlienci").[Podrzędny22].Form.Filter = "month([DataZamówienia]) < 6" 'załóż w podformularzu odpowiedni filtr
Else
Forms("frmKlienci").[Podrzędny22].Form.Filter = "month([DataZamówienia]) >= 6"
End If
Forms("frmKlienci").[Podrzędny22].Form.FilterOn = True 'uruchom filtrowanie
DoCmd.Close acForm, "frmTabela", acSaveYes 'zamknij formularz1
End Sub


Plik: http://itschool.pl/goldenline/Northwind.mdb

Pozdrawiam!Ten post został edytowany przez Autora dnia 12.11.14 o godzinie 15:05
Krzysztof N.

Krzysztof N. Kierownik Działu
Produkcji /
Prokurent

Temat: Filtrowanie podformularza w zależności od...

Dzięki za pomoc.
Poradziłem sobie definiując zmienną globalną (na podstawie txt1 z Formularz1).
Następnie - w PodForm1 w zdarzeniu przy otwarciu - "if " w zależności od wartości zmiennej i w każdym z warunków Me.Filter.... Działa bezbłędnie.

Następna dyskusja:

filtrowanie danych w formul...




Wyślij zaproszenie do