求助:同时自动弹出2个报警的问题

毒舌

求教:

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



谢谢

一点通

请描述一下两个警示的作用

毒舌

2个报警~是连接的2个查询



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

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



以上,谢谢~

毒舌

我把代码稍稍改了一下"红色的部分"

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 的时候,如何相对应的弹出报警窗体~这样的代码该怎么写啊?



谢谢