Timed Message Box closes at around 30 seconds (vs. 1 second)

[skydivetom]

Hello:

I need to automatically close an *MS_ACCESS* pop-up message box (modal) after 1-2 seconds.

I came across a VBA recommendation ("Mr. Excel) which includes a single line of code.

CreateObject("wscript.shell").PopUp "Successfully imported n table(s).", 1, "Import Status"

Although the solution was posted for the MrExcel forum, I tried it in Access and it does close the message automatically. However, the problem is that it does take approximate 25-30 seconds (vs. 1 second as specified in the VBA line).

My question: If *", 1, " = ~30 seconds in real time, how can the code be tweaked where a value = "1" (or "2") would truly result in closing the pop-up message within 1 to 2 seconds?

Attached is a sample DB with single form and command button to test the proposed solution.

Thank you,
Tom

[ranman256]

did you set the form timerinterval = 1000 ? (1 second)

[skydivetom]

I don't have a custom form. The form that is included in the DB only includes a command button which -- upon being clicked -- opens a CreateObject("wscript.shell").PopUp message box.

[davegri]

The DB works perfectly on my system. Msgbox automatically closes after one second.

[skydivetom]

Wow... that's strange. Any thought as to why it may take ~30 secs on my laptop? My computer is not even a year old so it's not that I'm using ancient hardware.

[davegri]

Wow... that's strange. Any thought as to why it may take ~30 secs on my laptop? My computer is not even a year old so it's not that I'm using ancient hardware.

Not Really.
SWAG -
compact/repair,
reboot your computer,
import the form into a new database,
etc

[skydivetom]

Davegri -- I followed your recommendations. Unfortunately, the form still does NOT close within 1 second. I will have to investigate a different method, maybe even using a custom form having the appearance of a message box. Not ideal but probably the only work-around in my case.

Thank you,
EEH

[orange]

I tried your database with timed form. I stays open about 30 seconds for me.
Access 365 64 bit Dell laptop Intel I7 2.50 GHz

I tried this adjustment

Private Sub cmdOpenTimedMessageBox_Click()

    'Source:    https://www.mrexcel.com/board/threads/programmatically-clicking-ok-on-message-box.779056/
    'Thread #:  3
    'Post:      "you can create a msgbox that disappears after 1 second"

    'Throw message box AND automatically close message box after, e.g., 1 second.
    'CreateObject("wscript.shell").PopUp "Successfully imported n table(s).", 1, "Import Status"
    
    'Problem:  Although the pop-up message box will disappear automatically, it takes approximate 30 seconds (vs. 1 second) for it to close.
    DoCmd.OpenForm "formtest"
End Sub

I created a blank form "formtest"

added these 2 event procedures

Private Sub Form_Open(Cancel As Integer)
'Set the Form’s Timer to 1 second intervals (1000 tics = 1 Second)
Me.TimerInterval = 1000

End Sub

Private Sub Form_Timer()
DoCmd.Close acForm, "formtest"
End Sub

And form closes in 1 sec.

?????

[skydivetom]

Jack -- awesome... yes, based on your suggestion the form "formtest" closes within ~ 1 second.

I will continue to investigate how to make the blank form "formtest" and display the same information like a Msgbox (e.g., see attached).

Thanks for chiming in... I will continue working on this tomorrow morning.

[skydivetom]

Jack -- your proposed solution works great. I mimicked the modal message box via form option. W/ the exception of the Access icon (top left corner), this form almost perfectly matches my default msgbox.

This issue solved an underlying problem (not part of this thread)... THANK YOU!

[orange]

You are very welcome.