Splash Screen

  • Thread starter Thread starter Allison
  • Start date Start date
A

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
 
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
 
Back
Top