Splash screen

[goju]

i have spash screen that runs for about 10 seconds, would like to reduce to about 4 seconds any ideas

seee script below.

Option Compare Database
Option Explicit

Private Sub Form_Close()
DoCmd.OpenForm "Switchboard"
End Sub

Private Sub Form_Timer()
On Error GoTo Err_Form_Timer

DoCmd.Close

Exit_Form_Timer:
Exit Sub

Err_Form_Timer:
MsgBox Err.Description, , "ASSETSonTRACK"
Resume Exit_Form_Timer

End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command21_Click:
Exit Sub

Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click

End Sub
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Switchboard"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command23_Click:
Exit Sub

Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click

End Sub

 

[The_Doc_Man]

1. The true splash screen isn't a form. No events, timers, or other control actions can be associated with it. You build one by making a .BMP with the same name as the .MDB file in the same folder as the .MDB file. The splash screen comes up while Access is establishing links to referenced libraries; it also compiles code for modules for which the code wasn't compiled and saved originally. (Also if the code WAS compiled but then someone mucked about in it.) You can never reduce splash time below the time for the above actions.

2. A "fake" splash screen can exist. In this case, it is a fake splash because you programmed it as a form with no controls and an embedded or linked graphic; you launch the fake splash via OpenForm in your StartupForm's code. There, the question is to know what you load to the form's timer so the OnTimer event can fire. If you loaded, say, 10000 (10K) to that timer, there is your 10 seconds. Load 4000 (4K) instead.