Access Splash Screen Question

[rmarie127]

I am trying to create a splash form in Access that will appear, show some simple blinking text that says "Loading" and then close and open another main menu form.

I can get either the open and closing of the forms to work or the blinking text but not both together.

this is my code:

Private Sub Form_Load()
Dim Numtime As Integer
Numtime = 0
End Sub

Private Sub Form_Timer()
Numtime = Numtime + 1
If Numtime = 1 Then
Me.title.Visibl e = Not Me.title.Visibl e
End If
If Numtime = 2 Then
DoCmd.OpenForm "frmMainMen u", acNormal
End If
If Numtime = 3 Then
DoCmd.Close acForm, "frmSplash"
End If
End Sub

What am I doing wrong?

[albertw]

hi
maybe you should put Dim Numtime in the general declaration

Dim Numtime As Integer

Private Sub Form_Load()
Numtime = 1
End Sub

Private Sub Form_Timer()
Select Case Numtime
Case Is = 1
Me.title.Visible = Not Me.title.Visible
Case Is = 2
DoCmd.OpenForm "frmMainMenu", acNormal
Case Else
DoCmd.Close acForm, "frmSplash"
End Select
Numtime = Numtime + 1
End Sub

not tried yet...

[PEB]

Yeah
Nuntime as Form variable

and

Me!title.Visibl e = Not Me!title.Visibl e

:)