Splash Screen Help

[Emilio5639]

I just started using Access, and I was trying to create a splash screen. I can get it to work in accdb but when I go to accda it hangs on the splash screen. Here is my codeing, if I can get some help, i would appreciate it.

Emilio


Sub Form_Open(Cancel As Integer)

Me.TimerInterval = 3500

End Sub

Sub Form_Timer()

If Me.TimerInterval <> 0 Then
Me.TimerInterval = 0
End If

Dim stDocName As String
Dim stLinkCriteria As String

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

DoCmd.Close acForm, "Startup"


End Sub
Sub Command9_Click()
On Error GoTo Err_Command9_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "KeyBypass Form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Startup", acSaveNo
Exit_Command9_Click:
Exit Sub

Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click

End Sub

 

[kjv1611]

Not sure right away how to sort out, but it might help see what is going on if everything were typed like the following, as far as spacing, alignment, order.

Sub Form_Open(Cancel As Integer)
	Me.TimerInterval = 3500
End Sub

Sub Form_Timer()
	Dim stDocName As String
	Dim stLinkCriteria As String

	stDocName = "Switchboard"

	If Me.TimerInterval <> 0 Then
		Me.TimerInterval = 0
	End If
	
	DoCmd.OpenForm stDocName, , , stLinkCriteria

	DoCmd.Close acForm, "Startup"

End Sub

Sub Command9_Click()
On Error GoTo Err_Command9_Click
	Dim stDocName As String
	Dim stLinkCriteria As String

	stDocName = "KeyBypass Form"
	
	DoCmd.OpenForm stDocName, , , stLinkCriteria
	DoCmd.Close acForm, "Startup", acSaveNo

Exit_Command9_Click:
	Exit Sub

Err_Command9_Click:
	MsgBox Err.Description
	
	Resume Exit_Command9_Click

End Sub

...and in the Code box..

 

[kjv1611]

I might would change this:

If Me.TimerInterval <> 0 Then
        Me.TimerInterval = 0
End If

To just this:

Me.TimerInterval = 0

Reason being, if this code works, you'll be changing the timer interval to 0 (turning it off), and then closing the form anyway. So once it's hit the timer once, it'll never hit it again anyway - so that might help a little

I'll see if I can look back at this later and help with anything else...