Вопрос : Нужна помощь с фильтровать рапорт от формы

Я имею вопрос о фильтруя рапортах от формы. Я в настоящее время имею форму вклюает 3 комбинированной рамки и subreport. Первая комбинированная рамка выбирает таблицу для того чтобы осмотреть и заселяет вторую комбинированную рамку. Секунда позволяет вас выбрать field для того чтобы фильтровать, и также заселяет треть с значениями от, котор дали таблицы/поля. Третья комбинированная рамка препятствует вам выбрать деталь и после этого фильтрует рапорт основанный на всех 3 комбинированных рамках с конкатенацией. (таблиц-пол-запишите) когда я заканчиваю третью коробку он фильтрует вне все в рапорте, выходя только пустой показатель. Может любое помочь мне с этим? Здесь Кодий, котор я использовал для формы для того чтобы увидеть как я имею ее быть сделанным: class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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 " class= " id= " codeSnippet792611

class= " ясное " >

Related: title= " href= " /Microsoft/Development/MS_Access/Q_26342160.html I am " qRelatedChild " class= формы и комбинированных рамок " имея небольшое затруднение с формой и комбинированным boxes

Ответ : Нужна помощь с фильтровать рапорт от формы

Если допустить, что все поля потребитель smog выбрать от в каждой из этих таблиц будет текстом, попыткой:

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

Если всеми полями smogли быть выбраны не будут текст, то вы идете давать в численном выражении дорога обусловить datatype поля перед создаваться strApply.  Вы smogли использовать функцию как следующий:

Общественная функция FieldType (TableName как шнур, Fieldname как шнур) как интежер

    Тусклое strSQL как шнур
    Тусклые rs как DAO.Recordset
   
    strSQL = «ВЫБИРАЕТ [» & Fieldname & «] ОТ [» & TableName & «] ГДЕ ложно»
    strSQL = заменяет ть (замените (strSQL, «[[», «["), «]]», «] ")
   
    Установите rs = CurrentDb.OpenRecordset (strSQL, dbfailonerror)
   
    FieldType = rs. Поля (0). Тип
    rs. Конец
    Установите rs = ничего
   
Закончите функцию

И после этого сделайте что-то как:

intFieldType = FieldType (strReport, strField)
ВЫБЕРИТЕ intFieldType случая
    Покрывайте dbBigInt, dbBoolean, dbByte, cbCurrency, dbDecimal, dbDouble, dbFload, dbInteger, dbLong, dbNumeric
        strApply = «[» & strField & «] =» & strFilter
    Случай dbChar, cbText, dbMemo
        strApply = «[» & strField & «] = """ & strFilter & """"
    dbDate случая, dbTime
        strApply = «[» & strField & «] = #» & strFilter & «#»
    Случай еще
        msgbox «непредвиденный тип данных =» & intFieldType
        'Это одно должно включить все значения
        strApply = ""
Конец отборный

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