Splash Screen

[Allison]

I created a splash screen once it runs I would like it to
go back to the object window where all my tables and other
forms are located. I'm try to write code:
What should ?
Form Close

 

[Damon Heron]

One way is to put a "Start Program" button on your splash screen, then add
the code below to the click event. This opens a form called "Opening Form"
that has all of the menu selections for the program. Without the command
button, you will need to look into the timer event to have it on the screen
for a period of time then close.

Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Opening Form" 'can be switchboard, etc....
DoCmd.OpenForm stDocName, , stLinkCriteria
DoCmd.Close acForm, "splash Form"
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub