主题：[求助]空值提示命令

我有一个查询按钮命令如下；我希望在查询结果为 空 的时候不进行筛选而是弹出“你查找的纪录不存在”提示。

Dim flt As String

For Each c As Col In Tables("工作日志表").Cols

    For Each ctl As WinForm.Control In e.Form.Controls

        If c.Name = ctl.Name Then

            If e.Form.Controls(ctl.Name).Text > "" Then

                If c.IsDate Then

                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

                ElseIf c.IsString Then

                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

                End If

            End If

        End If

    Next

Next

If flt > "" Then

    flt = flt.SubString(5)

Else

    MessageBox.Show("请输入查询条件")

End If

Tables("工作日志表").Filter = flt

Dim flt As String

For Each c As Col In Tables("工作日志表").Cols

    For Each ctl As WinForm.Control In e.Form.Controls

        If c.Name = ctl.Name Then

            If e.Form.Controls(ctl.Name).Text > "" Then

                If c.IsDate Then

                    flt + = " And " & c.Name & " = #" & e.Form.Controls(ctl.Name).Text & "#"

                ElseIf c.IsString Then

                    flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text & "%'"

                End If

            End If

        End If

    Next

Next

If flt > "" Then

    flt = flt.SubString(5)

    Tables("工作日志表").Filter = flt

End If

不太明白你的意思?  如果筛选的结果一行也没有? 就不执行筛选?