Office中国论坛/Access中国论坛

标题: 求助:同时自动弹出2个报警的问题 [打印本页]

作者: 毒舌 时间: 2006-11-12 04:21
标题: 求助:同时自动弹出2个报警的问题
[attach]21466[/attach]

求教:

现在可以自动弹出"警示",我怎么做才能同时弹出"警示"和"警示0"

谢谢

作者: 一点通 时间: 2006-11-12 06:37
请描述一下两个警示的作用

作者: 毒舌 时间: 2006-11-12 07:08
2个报警~是连接的2个查询

一个是"库存剩余数量"的报警,另一个是"使用期限额报警"

也就是说,当有仓库里的某个物品的库存量少于一定数量后,进入ACCESS后会出现提示窗口,某些设备的维护周期到了后,同样在进入ACCESS后会出现提示窗口,2个报警是相互独立的~

以上,谢谢~

作者: 毒舌 时间: 2006-11-13 02:41
我把代码稍稍改了一下"红色的部分"

Private Sub form_open(Cancel As Integer)

DoCmd.Minimize
If DCount("*", "警示") Or DCount("*", "查询") > 0 Then

MsgBox "请注意,系统警告", vbInformation + vbOKOnly
DoCmd.OpenForm "报警窗体"
Else
MsgBox "现在系统无报警", vbInformation

DoCmd.OpenForm "窗体1"
End If
End Sub

2个报警的条件分别是"警示"和"查询",我把2个报警查询做在了一个窗体里~这样可以基本满足需要~但是具体要根据"警示"和"查询"其中的某一个分别>0 的时候,如何相对应的弹出报警窗体~这样的代码该怎么写啊?

谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)