Office中国论坛/Access中国论坛

标题: 全部积分求教各位高手！ [打印本页]

作者: aioliadl 时间: 2012-2-13 16:02
标题: 全部积分求教各位高手！
求教各位高手，如何在主窗体做到如下功能，判断在表ht中的shzt=1的字段数若大于0，则弹出对话框（或类似的popotip控件），内容：您有——条任务需要处理（任务条数根据shzt=1的字段数动态变化）；若shzt=1的字段数为0，则对话框不弹出。此操作每15分钟自动进行一次....

小弟在此求教啦！望高手指点....

作者: Henry D. Sy 时间: 2012-2-13 16:02
本帖最后由 Henry D. Sy 于 2012-2-13 17:01 编辑

Private Sub Form_Load()
Me.TimerInterval = 900000
test
End Sub
Sub test()
Dim intCount As Integer
Dim Criteria As String
Criteria = "val(shzt)=1"
intCount = DCount("*", "ht", Criteria)
If intCount > 0 Then
MsgBox "您有 " & intCount & " 条任务需要处理"
End If
End Sub
Private Sub Form_Timer()
test
End Sub

复制代码

[attach]48326[/attach]

作者: aioliadl 时间: 2012-2-14 09:55

Henry D. Sy 发表于 2012-2-13 16:02

感谢高手！

作者: wtmswxl 时间: 2015-4-21 20:46
感谢高手

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