Pytanie : Potrzebować pomoc z raport od forma

I mieć pytanie o raport od forma. I obecnie mieć forma który zawierać 3 combo pudełko i subreport. The pierwszy combo pudełko wybierać the stół i zaludniać the drugi combo pudełko. The sekunda pozwolić ty che odpowiadać, i także zaludniać the tercja z wartość od the dawać stół/pole. The trzeci combo pudełko pozwalać ty rzecz i wtedy filtrować the raport opierać się na wszystkie 3 combo pudełko z concatenation. (zgłaszać-odpowiadać-nagrywać) Gdy I kończyć the trzeci pudełko ono filtrować trzeci rejestr w the raport, tylko pusty rejestr. Móc to z to? Tutaj być the kod I używać dla the forma jak I mieć ono robić: 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

Option Wyraźny

Intymny Okręt podwodny cboReport_Change ()
    Ciemnawy strReport Sznurek
    
    'Wyznaczać zmienna
        strReport = Me.cboReport.Value
    
    'Zaludniać cboField z opcja opierać się na cboReport.
        Me.cboField.RowSource = strReport
        Me.cboField.RowSourceType = "Pole Lista"
        Me.cboField.Value = ""
        Me.cboFilter.Value = ""
        Me.Refresh
    
    'Ten oświadczenie znajdować the wybrany rzecz w the combo pudełko i otwierać the poszczególny
    'raport w the teren Raportowy teren.
        Jeżeli IsNull (cboReport.Value) Wtedy
            Me.subReport.SourceObject = ""
        Inny
            Jeżeli cboReport.Value = "Pracownik" Wtedy
                Me.subReport.SourceObject = "Report.rptEmployee"
            Inny
                Me.subReport.SourceObject = "Report.rptInventory"
            Kończyć Jeżeli
        Kończyć Jeżeli
    
Kończyć Okręt podwodny

Intymny Okręt podwodny cboField_Change ()
    Ciemnawy strReport Sznurek, strField Jako Sznurek, strFilter Sznurek

    'Wyznaczać zmienna
        strReport = Me.cboReport.Value
        strField = Me.cboField.Value
        strFilter = "WYBIÓRKA odrębny" & "[" & strReport & "]" & "." & "[" & strField & "]" & "OD" & "[" & strReport & "]" & "; "
        
    'Zaludniać cboFilter z opcja opierać się na cboReport i cboField.
        Me.cboFilter.RowSourceType = "Stół/Zapytanie"
        Me.cboFilter.RowSource = strFilter
        Me.cboFilter.Value = ""
        Me.Refresh
        
Końcówka Okręt podwodny

Intymny Okręt podwodny cboFilter_Change ()
    Ciemnawy strField Sznurek, strFilter Równie Sznurek, strApply Sznurek
    
    'Wyznaczać zmienna
        strField = Me.cboField.Value
        strFilter = Me.cboFilter.Value
        strApply = "[" & strField & "] =" & """ & strFilter & """
    
    'Stosować wybrany filtr subReport
        Me.subReport.Report.Filter = strApply
        Me.subReport.Report.FilterOn = Prawdziwy
        Me.Refresh
        
Końcówka Okręt podwodny
Related Rozwiązanie: I am usterka z forma i combo boxes

Odpowiedź : Potrzebować pomoc z raport od forma

Zakładać że wszystkie the pole który the użytkownik móc od w zakładać te stół być tekst, próba:

strApply = "[" & strField & "] = """ & strFilter & """"

Jeżeli pole the pole który móc wybierać być tekst, then ty iść wybierać sposób the datatype the pole przed strApply.  Ty móc funkcja jak the następujący:

Jawny Funkcja FieldType (TableName Jako Sznurek, Fieldname Jako Sznurek) Jako Integer

    Ciemnawy strSQL Sznurek
    Ciemnawy rs Jako DAO.Recordset
   
    strSQL = "WYBIÓRKA [" & Fieldname & "] OD [" & TableName & "] DOKĄD Fałszywy"
    strSQL = Zamieniać (Zamieniać (strSQL, "[[", "["), "]]", "] ")
   
    Ustawiać rs = CurrentDb.OpenRecordset (strSQL, dbfailonerror)
   
    FieldType = rs. Pole ((0)). Typ
    rs. Zakończenie
    Ustalony rs = Nic
   
Końcówka Funkcja

I wtedy robić i jak:

intFieldType = FieldType (strReport, strField)
WYBRANY Skrzynka intFieldType
    Skrzynka dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = "[" & strField & "] =" & strFilter
    Skrzynka dbChar, cbText, dbMemo
        strApply = "[" & strField & "] = """ & strFilter & """"
    Skrzynka dbDate, dbTime
        strApply = "[" & strField & "] = #" & strFilter & "#"
    Skrzynka Inny
        msgbox "Niespodziewany dane typ =" & intFieldType
        'Ten jeden musieć wszystkie wartość
        strApply = ""
Końcówka Wybiórka

me.subReport.Report.Filter = strApply
me.subReport.Report.FilterOn = (strApply <> "")
Inne rozwiązania  
 
programming4us programming4us