![]() |
![]() |
![]() ![]()
Post
#1
|
|
Grupa: Zarejestrowani Postów: 4 Pomógł: 0 Dołączył: 14.03.2013 Ostrzeżenie: (0%) ![]() ![]() |
Dzień dobry.
Mam taki mały problem z procedurą do pola kombi. W bazie mam formularz powiedzmy o nazwie "fw_X'. W tym formularzu wyświetla się w polu 'szczegóły' pod formularz stworzony na podstawie kwerendy "kw_dzialki". W nagłówku znajduje sie pole kombi o nazwie "Kombi4'. Mam prośbę o jakąś przykładową procedurę która pozwoli filtrować ten pod formularz za pomocą listy pola kombi. Ponieważ dopiero zaczynam prosił bym o cierpliwość i w miarę "łopatologiczne" omówienie co do czego służy. |
|
|
![]() |
![]()
Post
#2
|
|
Grupa: Zarejestrowani Postów: 4 Pomógł: 0 Dołączył: 14.03.2013 Ostrzeżenie: (0%) ![]() ![]() |
Skorzystałem z tego przykładu który kolega wstawił. I po wstawieniu nazw swoich do kodu wyszło mi coś takiego:
Kod Private Sub Kombi4_AfterUpdate() Call RunFilter End Sub Private Sub kwDzialkiSubForrm_Load() Call RunFilter End Sub Private Sub RunFilter() Dim strFilter As String Dim bFilter As Boolean bFilter = False strFilter = "" If Nz(Me.Kombi4, "<All>") > "<All>" Then 'ShortCode' If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And " strFilter = strFilter & "ShortCode = '" & Me.Kombi4 & "'" bFilter = True End If If bFilter Then Me.kwDzialkiSubForm.Form.OrderBy = "" Me.kwDzialkiSubForm.Form.Filter = strFilter Me.kwDzialkiSubForm.Form.FilterOn = True Else Me.kwDzialkiSubForm.Form.FilterOn = False End If End Sub Problem polega na tym, że w zasadzie instrukcja nic nie zmienia w wybranym pod formularzu „kwDzialkiSubForm” (pole kombi ma nazwę „Kombi4”) może coś pominąłem? (IMG:style_emoticons/default/sciana.gif) ps. co zauwarzyłem w przykładzie (notabene działającym) a czego u mnie nie ma, to że ja stworzyłem podformularz z kwerendy za pomocą Formantu : "Podformularz/Raport", a w przykładzie jest osobny formularz z tabelką. Czy to może mieć znaczenie (IMG:style_emoticons/default/questionmark.gif) Ten post edytował SQ7RJH 15.03.2013, 12:15:42 |
|
|
![]() ![]() |
![]() |
Aktualny czas: 5.10.2025 - 22:50 |