此主题相关图片如下：企业微信截图_20190327142910.png
老师好 请问我这个代码该怎么写，如图，我做了一个查询的功能，当我在部门选择财务部的时候 点击开始查询则会出现财务部的数据，现在我想做到的是 当我选择其他部门，比如我选择供应部，但是供应部是没有数据的 我希望筛选没有数据的部门时 会弹出对话框的提示 请问怎么写
此主题相关图片如下：企业微信截图_20190327142835.png
我写的 开始查询代码：
Dim Filter As String
With e.Form.Controls("部门")
If .Value IsNot Nothing Then
Filter = "部门 = '" & .Value & "'"
End If
End With
With e.Form.Controls("SSID号")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "SSID号 = '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("主窗体_WIFI").Filter = Filter
End If
加好友 
发短信
Post By：2019/3/27 14:35:00 [显示全部帖子]
