请把查询窗体的数据记录源指定到你的表,然后【查询按钮】代码如下:
Private Sub 查询按钮_Click()
On Error GoTo Err_查询查询_Click
Dim cxtj As String '定义查询条件
cxtj = "" '设定初始值为空
If Not IsNull(姓名) Then '判断【姓名】条件是否有输入的值
cxtj = cxtj & "([姓名] like '" & 姓名 & "') and "
End If
If Not IsNull(年龄) Then '判断【年龄】条件是否有输入的值
cxtj = cxtj & "([年龄] like '" & 年龄 & "') and "
End If
If Not IsNull(单位) Then '判断【单位】条件是否有输入的值
cxtj = cxtj & "([单位] like '" & 单位 & "') and "
End If
'如果输入了条件,那么cxtj的最后肯定有" and ",这是我们不需要的,要用LEFT函数截掉这5个字符
If Len(cxtj) > 0 Then
cxtj = Left(cxtj, Len(cxtj) - 5)
Else
MsgBox "提示:" & vbNewLine & "请先输入查询条件!", 4096 + 48, "波涛电脑工作室"
Exit Sub
End If
'先在立即窗口显示一下查询条件,然后执行查询
Debug.Print cxtj
Filter = cxtj
FilterOn = True
Exit_查询按钮_Click:
Exit Sub
Err_查询按钮_Click:
MsgBox "提示:" & vbNewLine & "你要查询的记录不存在。" & vbNewLine & "请核对你输入的条件是否正确。", 4096 + 48, "波涛电脑工作室"
Resume Exit_查询按钮_Click
End Sub
精心为ACCESS学习者制作的查询教程! 你可以百度搜索一下 "常用窗体查询例程1.0",可直接下载示例。