Error5 Invalid Procedure Call or Argument
>From Form_TimerintCounter is Global, and OnLoad initialized to 0
Any Ideas ???
Private Sub Form_Timer() 'My Code
'************************************************* ***********
' FORM: Check for.ldb max of 10-seconds.
' TimerInterval = 1000 set for 1-Second
' intCounter is Global, and OnLoad initialized to 0
On Error GoTo Err_Handler
'Check for .ldb File
intCounter = intCounter + 1
If FileExists(Left(BEPathF, Len(BEPathF) - 3) & "ldb") Then
If intCounter >= 10 Then 'Exit after 10-secs
DoCmd.Close
End If
Else
'OK to BackUp and Copy since .ldb file is gone.
Me.TimerInterval = 0
Call BackUpAndCopyTo
DoCmd.Close
End If
Exit_Point:
Exit Sub
Err_Handler:
MsgBox "Report This Error-- " & Err.Number & " " &
Err.Description & " " & "Form_Timer"
DoCmd.Close
Resume Exit_Point
End Sub
Thanks
Greg