access数据库如何在窗体上建立多个输入查询?比如,一个花名册,在输入框中输入姓名,就能出现相关信息。

这个我已经会了。就是创建一个宏,问题是如何在一个窗体中建立多个输入查询?输入姓名、输入年龄、输入单位等... 这个我已经会了。就是创建一个宏,问题是如何在一个窗体中建立多个输入查询?输入姓名、输入年龄、输入单位等 展开
 我来答
敏锐还宁静丶行家0
2012-08-12 · TA获得超过6870个赞
知道大有可为答主
回答量:3502
采纳率:0%
帮助的人:1781万
展开全部
请把查询窗体的数据记录源指定到你的表,然后【查询按钮】代码如下:
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软件网
2012-08-06 · TA获得超过367个赞
知道小有建树答主
回答量:563
采纳率:50%
帮助的人:407万
展开全部
精心为ACCESS学习者制作的查询教程! 你可以百度搜索一下 "常用窗体查询例程1.0",可直接下载示例。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式