主题：[求助]我想做一个自动查询窗口。

CurrentTable.Filter = ""
Dim Filter As String
With e.Form.Controls("控件名称,一般用TEXTBOX控件")
    If .Value IsNot Nothing Then
        Filter = "'*" & .Value & "*'"
    End If
End With
If Filter > "" Then
    Tables("表名").Filter = "列名1 Like " & Filter & " Or 列名2 Like " & Filter & " Or 列名3 Like " & Filter & " Or 列名4 Like " & Filter & " Or 列名5 Like " & Filter 

End If

   这个只要输入一个关键字就可以查找筛选!