Delay in code processing

[Guest]

Is it possible to make a pause in the code? For example:

Private Sub Form_Timer()
Set db = CurrentDb
Set tbl = db.TableDefs("MyTable")
tbl.RefreshLink
Me.TextBox.Value = "Status: ONLINE"

<<<Here I want a 2-seconds delay in code processing >>>

DoCmd.Close
End Sub

Thank you in advance!

 

[Graham R Seach]

Mike,

Put this declaration in a standard module:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal
dwMilliseconds As Long)

Then call it like so:
Sleep 2000

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

 

[Guest]

Thank you, Graham!

Mike,

Put this declaration in a standard module:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal
dwMilliseconds As Long)

Then call it like so:
Sleep 2000

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html