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
Code:
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
Code:
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.
?????