全部积分求教各位高手！

Henry D. Sy

1. Private Sub Form_Load()
   
2.     Me.TimerInterval = 900000
   
3.     test
   
4. End Sub
   
5. Sub test()
   
6.     Dim intCount As Integer
   
7.     Dim Criteria As String
   
8.     Criteria = "val(shzt)=1"
   
9.     intCount = DCount("*", "ht", Criteria)
   
10.     If intCount > 0 Then
    
11.         MsgBox "您有 " & intCount & " 条任务需要处理"
    
12.     End If
    
13. End Sub
    
14. 
    
15. Private Sub Form_Timer()
    
16.     test
    
17. End Sub
    
18. 
    

复制代码