J
jasenpeters
Jeff, (or anyone else) if you have any ideas....
XP service pack 2
Access 2003
The following code is for the custom "splash" screen with a timer on
for 5 secs.
Modal = Yes, Popup = Yes, Autoresize = Yes, BorderStyle = None
Private Sub Form_Open(Cancel As Integer)
Me.Visible = True
'Hide Access Parent Window
apiShowWindow Application.hWndAccessApp, SW_HIDE ' This function is
defined in another module
End Sub
Private Sub Form_Load()
'Versioning Info on Splash screen
lblVersion.Caption = "Version " &
Application.CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Version")
lblCopyright.Caption = "Copyright © " &
Application.CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Copyright
Date")
lblCopyright.Caption = lblCopyright.Caption & vbCrLf & "All Rights
Reserved"
lblAppName.Caption =
Application.CurrentDb.Containers("Databases").Documents("SummaryInfo").Properties("Title")
'Open Main form hidden and set version in the title bar
DoCmd.OpenForm "Main", , , , , acHidden
End Sub
Private Sub Form_Timer()
DoCmd.Close 'Close the Splash screen (this form)
Forms!Main.Visible = True 'Show the Main form
End Sub
The issue is, the Access window shows up for a few (milli)seconds, then
hides, then the splash screen. Just wondering if your comments in the
post meant that the Access window would not be seen at all. It does
disappear as expected, however.
I would prefer the window not show at all, not even a tinsy flash .
Thanks in advance.
XP service pack 2
Access 2003
The following code is for the custom "splash" screen with a timer on
for 5 secs.
Modal = Yes, Popup = Yes, Autoresize = Yes, BorderStyle = None
Private Sub Form_Open(Cancel As Integer)
Me.Visible = True
'Hide Access Parent Window
apiShowWindow Application.hWndAccessApp, SW_HIDE ' This function is
defined in another module
End Sub
Private Sub Form_Load()
'Versioning Info on Splash screen
lblVersion.Caption = "Version " &
Application.CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Version")
lblCopyright.Caption = "Copyright © " &
Application.CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Copyright
Date")
lblCopyright.Caption = lblCopyright.Caption & vbCrLf & "All Rights
Reserved"
lblAppName.Caption =
Application.CurrentDb.Containers("Databases").Documents("SummaryInfo").Properties("Title")
'Open Main form hidden and set version in the title bar
DoCmd.OpenForm "Main", , , , , acHidden
End Sub
Private Sub Form_Timer()
DoCmd.Close 'Close the Splash screen (this form)
Forms!Main.Visible = True 'Show the Main form
End Sub
The issue is, the Access window shows up for a few (milli)seconds, then
hides, then the splash screen. Just wondering if your comments in the
post meant that the Access window would not be seen at all. It does
disappear as expected, however.
I would prefer the window not show at all, not even a tinsy flash .
Thanks in advance.