处理多条件查询中没有指定条件的情况

时　间: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