有一种访问方法！
如果您在表单上具有“过滤器”控件，那么为什么不使用Application.buildCriteria方法，该方法将允许您将过滤条件添加到字符串中，然后从该字符串中进行过滤，并构建WHERe条款在飞行中？
selectClause = "SELECT TabCustomers.* FROM TabCustomers"if not isnull(Forms!FrmSearchCustomer!SearchMember) then whereClause = whereClause & application.buildCriteria(your field name, your field type, your control value) & " AND "endifif not isnull(Forms!FrmSearchCustomer!SearchFore) then whereClause = whereClause & application.buildCriteria(...) & " AND "endifif not isnull(Forms!FrmSearchCustomer!SearchLast) then whereClause = whereClause & application.buildCriteria(...) & " AND "endifif not isnull(Forms!FrmSearchCustomer!SearchDate) then whereClause = whereClause & application.buildCriteria(...) & " AND "endif--get rid of the last "AND"if len(whereClause) > 0 then whereClause = left(whereClause,len(whereClause)-5) selectClause = selectClause & " WHERe " & whereClauseendif-- your SELECT instruction is ready ...
编辑：buildCriteria将返回（例如）：
'field1 = "GR"'
当您在控件中键入“ GR”时'field1 LIKE "GR*"'
当您键入"GR*"
控件时'field1 LIKE "GR*" or field1 like "BR*"'
如果您键入'LIKE "GR*" OR LIKE "BR*"'
控件
PS：如果表单上的“过滤器”控件始终具有相同的语法（比如说“ search_fieldName”，其中“
fieldName”对应于基础记录集中的字段）并且始终位于同一区域（比如说formHeader），然后可以编写一个函数，该函数将自动为当前表单生成一个过滤器。然后可以将此过滤器设置为表单过滤器，或用于其他用途：
For each ctl in myForm.section(acHeader).controls if ctl.name like "search_" fld = myForm.recordset.fields(mid(ctl.name,8)) if not isnull(ctl.value) thenwhereClause = whereClause & buildCriteria(fld.name ,fld.type, ctl.value) & " AND " endif endifnext ctlif len(whereClause)> 0 then ...
