Witaj Gościu! ( Zaloguj | Rejestruj )

Forum PHP.pl

> [Access 2007] Filtrowanie za pomocą pola kombi
SQ7RJH
post
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.
Go to the top of the page
+Quote Post
 
Start new topic
Odpowiedzi
SQ7RJH
post
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
Go to the top of the page
+Quote Post

Posty w temacie


Reply to this topicStart new topic
2 Użytkowników czyta ten temat (2 Gości i 0 Anonimowych użytkowników)
0 Zarejestrowanych:

 



RSS Aktualny czas: 5.10.2025 - 22:50