Pause Code for a few seconds

Question

My reoprt is based upon a query that can not get its data untill the insert statement has written its data to the table. Is there any way to insert about a 5 second delay between the insert statement and the openreort command?

    strSQL = "INSERT INTO tbl_Bank(ChangeDate, PlayedAmount, PlayerID) SELECT " & Format(Me.txt_ChangeDate, "#yyyy/mm/dd#") & ",  " & Me.txt_Wager & ",PlayerID FROM qry_Bank"

        DoCmd.RunSQL strSQL

DoCmd.OpenReport "rpt_GamePlayed", acViewNormal

Answer 1

I agree CurrentDb.Execute is the way to do it !!

Answer 2

There is no need to wait.  Instead of using the asynchronous RunSQL method, use the Execute method that doesn't return until the query has completed:

   CurrentDb.Execute strSQL, dbFailOnError

Answer 3

You can also use the Sleep() function

Answer 4

Checkout the Timer Function --

This example uses the Timer function to pause the application. The example also uses DoEvents to yield to other processes during the pause.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", _
        4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start  ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If