Hiding the Access window

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.
 
M

MarkS

Hi,

When you start Access up from a Command Line could you use the

/nostartup Parameter which prevents the Access Window from displaying

HTH
Mark
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top