Splash screen

S

strive4peace

Hi John,

try this:

make the splash screen your startup form

here is some sample code to put behind the spash form

'~~~~~~~~~~~~~~~~~~~~`


Private Sub Form_Load()

On Error GoTo Form_Load_error

DoCmd.OpenForm "Employees", , , , , acHidden

Exit Sub
Form_Load_error:
msgbox Err.Description, , _
"ERROR " & Err.Number _
& " Splash Load -- Resuming"

DoCmd.Close acForm, Me.Name
End Sub


Private Function logoClick()
On Error GoTo logo_exit
Dim mform As String
mform = "Employees"

DoCmd.OpenForm mform, , , , , acWindowNormal

DoCmd.Maximize
DoCmd.Close acForm, Me.Name
logo_exit:
On Error Resume Next
DoCmd.SelectObject acForm, mform
Exit Function

End Function

'~~~~~~~~~~~~~~~~~~~~~~~~`
For each control on the form (if you have any -- I lookup
the version of the application from a default table and echo
that as well as a "Click to continue" label):

OnClick --> =logoClick()


use the PICTURE property of the form for a graphic if you like
Picture --> filename of image (JPG is what I use)
PictureType --> Embedded
PictureSizeMode --> stretch

AllowEdits --> No
AllowAdditions --> No

RecordSelectors --> No
NavigationButtons --> No
DividingLines --> No

AutoResize --> Yes
AutoCenter --> Yes
Popup --> yes

Warm Regards,
Crystal
Microsoft Access MVP 2006

*
Have an awesome day ;)

remote programming and training
strive4peace2006 at yahoo.com

*
 
J

Jennifer Cali

I've created the splash and set it as the startup under "Startup Display
Form", but originally my switchboard was here. Now that the switchboard isn't
shown to be the startup, it isn't. I want the splash to appear but to have
the switchboard be the 2nd form that loads...how can I do that?
 
B

Bill

Jennifer,
The way I accomplish what I think you're asking is to
create a splash screen as an bmp file with exactly the
same name as the file you launch. Leave the opening
form name that you want in the Startup properties.
For example: (Here's one of mine)

TMS-V7.0.mde (front-end Access Application)
TMS-V7.0.bmp (splash screen graphic file)

There's no VBA code necessary.

Hope this helps.

Bill Stanton
 
B

Bill

(PS) The approach I described with TMS example isn't designed to
leave the splash-screen up until a user action causes exit to the next
form or report. It only appears momentarily.
 
Z

zila

l follow your instruction and it works but l try to display it as a startup
but nothing happened.So l need your help
 
Top