Need help with multiple OnTimer events

[jax1000rr]

Hello once again,

I have searched and not been able to implement any code to do what I need.

I need to have multiple timer events run on a single form, below is the code I have thus far and it is not working:

Static intCount As Integer
intCount = intCount + 1
If intCount = 1000 Then
If DCount("*", "Qry_User_Active_Check") = 0 Then
MsgBox "Your account has been disabled and you will now be logged out. Please contact your manager.", vbCritical, "Account Disabled"
DoCmd.Quit
Else
If intCount = 180000 Then
DoCmd.RunCommand acCmdRefreshPage
End If
End If
End If

[orange]

It would be helpful to the reader if you would tell us in plain English WHAT you are trying to do.
Once readers understand the WHAT of the issue/opportunity, they often have suggestions/options as to HOW it can be achieved.

[jax1000rr]

Hi,

Basically I need the timer to check every 30 seconds (I know the code I posted shows 1 second) to see if If DCount("*", "Qry_User_Active_Check") = 0 Then execute the command if it does. Then I also need a timer to run every 30 min and refresh the page.

HTH

[June7]

Why doesn't it work - error message, wrong results, nothing happens?

I think your nesting is wrong.

Set the TimerInterval property to 1000. Have a textbox with DefaultValue of 0 on form to store accumulated time. Consider:

Private Sub Form_Timer()
Dim intCount As Integer
Me.Text81 = Me.Text81 + 1000
intCount = Me.Text81
If intCount = 1000 Then
    If DCount("*", "Qry_User_Active_Check") = 0 Then
        MsgBox "Your account has been disabled and you will now be logged out. Please contact your manager.", vbCritical, "Account Disabled"
        DoCmd.Quit
    End If
ElseIf intCount = 18000  Then
    DoCmd.RunCommand acCmdRefreshPage
    Me.Text81 = 0
End If
End Sub

[jax1000rr]

Thanks June7 and all, worked great...

[Missinglinq]

...Then I also need a timer to run every 30 min and refresh the page...

What is the point of this? Access, by Default, Refreshes data every 60 seconds! The time can be adjusted, by

1. clicking on the Office Button (top, left)
2. clicking on Access Options (bottom, right)
3. clicking on Advanced (left-hand panel)
4. Scrolling down to the 'Advanced' section
5. Changing the Refresh Interval to whatever you want

Linq ;0)>