Setting an event at a certain time

[QuantifyRisk]

When a record is created in a table (on a button click), a label is visible that says "Successfully created". I want that to display for 2 seconds then disappear. So I have...

Dim times As Date
Const interval As Long = 2000

DoCmd.GoToRecord , , acNewRec
Me.success.Visible = True
times = Now() + interval

I cannot find anything online where I can put something like:

If times=Now() then


me.success.visible=false
end if

[June7]

I think will need to use the form OnTimer event. Beware, timers can be process hogs. I've never used timer in db.

[QuantifyRisk]

Yeah I figured that. I may just avoid the thing all together and make it disappear on click of the first textbox instead.

[ItsMe]

In order to avoid the form's timer and if the pause in time can be off + or - one second, I use this function.

Function Wait(intCount As Integer)
Dim dblCountEnd As Double
DoCmd.Hourglass True
    dblCountEnd = DateAdd("s", intCount, Now)
    While DateDiff("s", Now, dblCountEnd) > 0
    Wend
DoCmd.Hourglass False
End Function

You can call it like this

Call Wait(Me.ControlName.Value)
MsgBox "I waited " & Me.ControlName.Value & " seconds."