Fråga : Behöv hjälp med att filtrera en rapport från en bilda

Jag har en ifrågasätta om filtrera rapporter från en bilda. Jag har för närvarande en bilda, som inkluderar combo 3 boxas, och en subreport. De första combo boxas väljer bordlägga att beskåda och befolkar den combo understödja boxas. Understödja låter dig välja, som sätter in för att filtrera, och befolkar också thirden med värderar från given bordlägger/sätter in. De tredje combo boxas låter dig välja ett objekt och filtrerar därefter den baserade rapporten på alla combo 3na boxas med sammanlänkning. (bordlägga-sätta in-anteckna), när jag avslutar thirden, boxas den ska filtrerar ut allt i rapporten som lämnar endast ett tomt rekord. Kan någon hjälpa mig med detta? Är här kodifiera som jag använde för bilda för att se hur jag har den att göras: > för

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:

" codeBody " " >Option för class= " för Related lösningar för class= ": " title= " för I som har en tekniskt fel med en bilda och en combo boxes

Svar : Behöv hjälp med att filtrera en rapport från en bilda

Anta, att alla sätter in att användaren kunde välja från i varje av dessa, bordlägger är text, försök:

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

Om alla av sätter in, som kunde vara utvald, inte är text, då du går att måste att figurera ut a långt för att bestämma datatypen av sätta in, innan du skapar strApply.  Du kunde använda en fungeranågot liknande efter:

Allmänhet fungerar FieldType (TableName som stränger, Fieldname som stränger) som heltal

    Dunkel strSQL som stränger
    Dunkla rs som DAO.Recordset
   
    strSQL = ”VÄLJER [” & Fieldname & ”] FRÅN [” & TableName & ”] VAR falskt”,
    strSQL = byter ut (byt ut (strSQL, ”[[”, ”[”), ”]]”, ”]”),
   
    Fastställda rs = CurrentDb.OpenRecordset (strSQL, dbfailonerror)
   
    FieldType = rs. Sätter in (0). Typ
    rs. Nära
    Fastställda rs = ingenting
   
Avsluta fungerar

Och gör därefter något som är lik:

intFieldType = FieldType (strReport, strField)
VÄLJ fallintFieldType
    Case dbBigInt som är dbBoolean, dbByte, cbCurrencyen, dbDecimal som är dbDouble, dbFload, dbInteger, dbLong som är dbNumeric
        strApply = ”[” & strField & ”] =” & strFilter
    dbChar fall, cbText, dbMemo
        strApply = ”[” & strField & ”] = """ & strFilter & """",
    FalldbDate, dbTime
        strApply = ”[” & strField & ”] = nr.” & strFilter & ”nr.”,
    Fall annars
        msgbox ”oväntad datatyp =” & intFieldType
        'Alla detta bör inkludera värderar
        strApply = "",
Avsluta valt

me.subReport.Report.Filter = strApply
me.subReport.Report.FilterOn = (strApply <> "")