access数据库中,在窗体上输入姓名,点击查询按钮,使子窗体中显示相关信息.麻烦各位大神教教怎么

access数据库中,在窗体上输入姓名,点击查询按钮,使子窗体中显示相关信息.麻烦各位大神教教怎么做啊

把查询窗体的数据记录源指定到你的表,然后【查询按钮】代码如下:
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追问

查询窗体的数据源是指姓名文本框还是子窗体!麻烦啦

温馨提示:答案为网友推荐,仅供参考
第1个回答  2016-03-28
。。
相似回答