处理多条件查询中没有指定条件的情况
时 间:2017-09-05 10:56:29
作 者:杨雪 ID:42182 城市:南京
摘 要:逐条查询技巧:FindNext方法、NoMatch属性、IsNull()函数
正 文:
在使用AND 关键字和 or 关键字进行多条件查询时,如果某个条件没有设置,就会导致 AND 关键后 或OR 关键字的一端没有条件,从而出现错误。
为了避免这种错误的出现,可以使用IsNull()函数判断输入条件的文本框是否为空,为空则通过消息对话框提示输入。
源码:
Private Sub cmd_查询_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sch1 As String Dim sch2 As String Dim sch3 As String Dim sch As String Set db = CurrentDb() Set rs = Me.RecordsetClone rs.Bookmark = Me.Bookmark '判断条件是否为空 If IsNull(txt_部门) Then MsgBox "请输入查询部门" ElseIf IsNull(txt_工资1) Then MsgBox "请输入工资条件1" ElseIf IsNull(txt_工资2) Then MsgBox "请输入工资条件2" '当所有条件都不为空时,执行查询程序 Else sch1 = "[部门] like " & "'*" & txt_部门 & "*' " sch2 = "[实得工资]>=" & txt_工资1 sch3 = "[实得工资]<=" & txt_工资2 sch = sch1 & " and (" & sch2 & " or " & sch3 & ")" rs.FindNext sch If rs.NoMatch Then MsgBox "没有满足条件的记录" Else Me.Bookmark = rs.Bookmark End If End If rs.Close: Set rs = Nothing db.Close: Set db = Nothing End Sub
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)