467,161 Members | 884 Online
Bytes | Developer Community
Ask Question

Home New Posts Topics Members FAQ

Post your question to a community of 467,161 developers. It's quick & easy.

Access Splash Screen Question

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.Visible = Not Me.title.Visible
End If
If Numtime = 2 Then
DoCmd.OpenForm "frmMainMenu", acNormal
End If
If Numtime = 3 Then
DoCmd.Close acForm, "frmSplash"
End If
End Sub

What am I doing wrong?
Nov 3 '06 #1
  • viewed: 1360
Share:
2 Replies
100+
hi
maybe you should put Dim Numtime in the general declaration

Expand|Select|Wrap|Line Numbers
  1.  
  2. Dim Numtime As Integer
  3.  
  4. Private Sub Form_Load()
  5. Numtime = 1
  6. End Sub
  7.  
  8. Private Sub Form_Timer()
  9. Select Case Numtime
  10. Case Is = 1
  11. Me.title.Visible = Not Me.title.Visible
  12. Case Is = 2
  13. DoCmd.OpenForm "frmMainMenu", acNormal
  14. Case Else
  15. DoCmd.Close acForm, "frmSplash"
  16. End Select
  17. Numtime = Numtime + 1
  18. End Sub
  19.  
  20.  
not tried yet...
Nov 3 '06 #2
PEB
Expert 1GB
PEB
Yeah
Nuntime as Form variable

and

Me!title.Visible = Not Me!title.Visible

:)
Nov 5 '06 #3

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

8 posts views Thread by Mike | last post: by
3 posts views Thread by Rui Dias | last post: by
1 post views Thread by Ken Allen | last post: by
2 posts views Thread by Mika M | last post: by
10 posts views Thread by =?Utf-8?B?UmljaGFyZCBCeXNvdXRo?= | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.