Cuestión : Necesitar la ayuda con la filtración de un informe de una forma

Tengo una pregunta sobre informes de filtración de una forma. Tengo actual una forma que incluya 3 cajas combinadas y un subreport. La primera caja combinada selecciona la tabla para ver y puebla la segunda caja combinada. El segundo permite que usted seleccione que colocan para filtrar, y también puebla el tercero con valores de la tabla/del campo dados. La tercera caja combinada le deja seleccionar un artículo y después filtra el informe basado en las 3 cajas combinadas con el encadenamiento. (tabla-campo-registrar) cuando acabo la tercera caja filtrará hacia fuera todo en el informe, dejando solamente un expediente en blanco. ¿Puede cualquier persona ayudarme con esto? Aquí está el código que utilicé para la forma para ver cómo la hago hacer: class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 notpretty " del class= " del id= " codeSnippet792611 del
class= > " claro " del
soluciones >Related class= title= " del href= " /Microsoft/Development/MS_Access/Q_26342160.html del I del " qRelatedChild " de un class= de la forma y de las cajas combinadas " que tiene una interferencia con una forma y un boxes combinado

Respuesta : Necesitar la ayuda con la filtración de un informe de una forma

Si se asume que todos los campos que el usuario podría seleccionar en de cada uno de estas tablas son el texto, intento:

strApply = “[” y strField y “] = """ y strFilter y """"

Si todos los campos que podrían ser seleccionados no son texto, después usted va a tener que imaginar una manera de determinar el datatype del campo antes de crear strApply.  Usted podría utilizar una función como el siguiente:

Función pública FieldType (TableName como secuencia, Fieldname como secuencia) como número entero

    strSQL dévil como secuencia
    Rs déviles como DAO.Recordset
   
    el strSQL = “SELECCIONA [” y Fieldname y “] DE [” y TableName y “] CUANDO SEA falso”
    el strSQL = substituye (substituir (strSQL, “[[”, “["), “]]”, “] ")
   
    Fijar los rs = CurrentDb.OpenRecordset (strSQL, el dbfailonerror)
   
    FieldType = rs. Campos (0). Tipo
    rs. Cierre
    Fijar los rs = nada
   
Terminar la función

Y entonces hacer algo como:

intFieldType = FieldType (strReport, strField)
SELECCIONAR el intFieldType del caso
    Encajonar el dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = “[” y strField y “] =” y strFilter
    Caso dbChar, cbText, dbMemo
        strApply = “[” y strField y “] = """ y strFilter y """"
    dbDate del caso, dbTime
        strApply = “[” y strField y “] = #” y strFilter y “#”
    Caso
        msgbox “tipo de datos inesperado =” y intFieldType
        'Éste debe incluir todos los valores
        strApply = ""
Extremo selecto

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