Question

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

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

Answer 1

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

追问

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

Answer 2

。。