Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Splash screen

Discussion in 'Information Technology' started by John, Jul 28, 2006.

Tags:
  1. John

    John
    Expand Collapse
    Guest

    Hi

    What is the proper way to implement a splash form in access 2000?

    Thanks

    Regards
     
  2. Loading...

    Similar Threads Forum Date
    SciTech Last year's moonshot splashed up lots of water Breaking News Oct 23, 2010
    The splashes of life Inspirational Stories Sep 5, 2008
    Sikh News Film About 2012 Sikh Shooting Screening In Livonia Breaking News Aug 28, 2016
    Hinduism Film Screening to Foster Ethnic Unity Stirs Trouble Instead Interfaith Dialogues Jul 22, 2011
    Sikh Coalition Disparate Screening of Sikh Travelers at American Airports Sikh Organisations Jul 20, 2011

  3. strive4peace

    strive4peace
    Expand Collapse
    Guest

    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

    *

    John wrote:
    > Hi
    >
    > What is the proper way to implement a splash form in access 2000?
    >
    > Thanks
    >
    > Regards
    >
    >
     
  4. Jennifer Cali

    Jennifer Cali
    Expand Collapse
    Guest

    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?
    --
    Thank you! - Jennifer


    "strive4peace" <"strive4peace2006 at yaho" wrote:

    > 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
    >
    > *
    >
    > John wrote:
    > > Hi
    > >
    > > What is the proper way to implement a splash form in access 2000?
    > >
    > > Thanks
    > >
    > > Regards
    > >
    > >

    >
     
  5. Bill

    Bill
    Expand Collapse
    Guest

    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


    "Jennifer Cali" <JenniferCali@discussions.microsoft.com> wrote in message
    news:153DE108-7937-4699-B159-3EB3FA4708ED@microsoft.com...
    > 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?
    > --
    > Thank you! - Jennifer
    >
    >
    > "strive4peace" <"strive4peace2006 at yaho" wrote:
    >
    >> 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
    >>
    >> *
    >>
    >> John wrote:
    >> > Hi
    >> >
    >> > What is the proper way to implement a splash form in access 2000?
    >> >
    >> > Thanks
    >> >
    >> > Regards
    >> >
    >> >

    >>
     
  6. Bill

    Bill
    Expand Collapse
    Guest

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



    "Bill" <stanton@jps.net> wrote in message
    news:AQTwg.3857$bP5.3783@newsread1.news.pas.earthlink.net...
    > 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
    >
    >
    > "Jennifer Cali" <JenniferCali@discussions.microsoft.com> wrote in message
    > news:153DE108-7937-4699-B159-3EB3FA4708ED@microsoft.com...
    >> 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?
    >> --
    >> Thank you! - Jennifer
    >>
    >>
    >> "strive4peace" <"strive4peace2006 at yaho" wrote:
    >>
    >>> 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
    >>>
    >>> *
    >>>
    >>> John wrote:
    >>> > Hi
    >>> >
    >>> > What is the proper way to implement a splash form in access 2000?
    >>> >
    >>> > Thanks
    >>> >
    >>> > Regards
    >>> >
    >>> >
    >>>

    >
    >
     

Share This Page