Results 1 to 8 of 8
  1. #1
    Join Date
    Sep 2003
    Location
    Hamilton, NZ
    Posts
    25

    Unanswered: Wecome form for 3 sec in access

    Hi there all

    I have made a data base where I have made a form with nothing on it but a nice "welcome".

    I would like to user to open the database file and the "Welcome" form to appear for about three seconds only, then, the menu form opens where the user can navagate from there.

    Any ideas??

    I have an idea that I will have to use a "autoexec" macro which I'm not sure how to use or work. So far from the "start up" (tools / startup) I can make the form appear on start up but of course I only want it there for 3 sec then dissapear then open menu. I can put a button on the form but I don't want to.

    In the mean time I will be investaging the macro idea.

    Thanks

    Mike gallagher
    Mikeg950

  2. #2
    Join Date
    Sep 2003
    Location
    Hamilton, NZ
    Posts
    25

    Post Re: Wecome form for 3 sec in access

    Hi there again

    I have worked out how to make the query where it opens up the Welcome form when a user opens the file. I named it "Autoexec" so that the first thing the data base does is looks at that query first and opens it up.

    Now for the final problem. To make the "Welcome form" appear for about 3 secs, disapear and open the form menu. Mmmm just thinking I might need to make another macro that will open the Menu form.

    I will you know how I get on.

    I appriciate any help on this one

    Cheers

    Mikeg950
    Mikeg950

  3. #3
    Join Date
    Sep 2003
    Location
    Sweden
    Posts
    4
    I had the same probem a couple of years ago and i solved it this way.

    I created a form containeng the text I wanted to show.

    In the FORM_OPEN property did I put this code

    Private Sub Form_Open(Cancel As Integer)
    TimerInterval = 18000 ' How long the form is visible (milliseconds)
    End Sub

    In this case 3 seconds will be 18000 ms, help for an explanation to calculate correct time

    And in the FORM_TIMER property

    Private Sub Form_Timer()
    TimerInterval = 0 ' To stop the TIMER property
    DoCmd.Close acDefault ' Closing the form
    End Sub

    Hope this will help you to get on with your project

    To open the switchboard just add this code to the FORM_TIMER property, after the TimeInterval line.

    DoCmd.OpenForm "Switchboard", acNormal

    You might need to alter the AcNormal to AcPreview but test wich will work

    Best regards

    Gerth Ericsson
    Last edited by Voyager30; 09-17-03 at 06:19.

  4. #4
    Join Date
    Sep 2003
    Location
    Hamilton, NZ
    Posts
    25
    Hi there Gerth "Voyager30"

    Thankyou very much for your input. It really help me out heaps.

    This is what I did.

    I created the Autoexec macro where it opens the "Menu form" first.
    Then it opens the Welcome form where the Welcome form has the VB code to make it appear for 4 secs.

    Option Compare Database

    Private Sub Form_Open(Cancel As Integer)
    TimerInterval = 4000 #This is about 4 seconds
    End Sub

    Private Sub Form_Timer()
    TimerInterval = 0 ' To stop the TIMER property
    DoCmd.Close acDefault ' Closing the form
    End Sub

    So the when the Welcome form opens it opens a split sec after the Menu opens then sits on top of the Menu, waits for 4 sec then disappears to make the menu visable again.

    Nice one I was sure if I was able to do this but it is possible.

    Thanks again

    Mikeg950
    Mikeg950

  5. #5
    Join Date
    Jul 2003
    Location
    Amsterdam, Nederland
    Posts
    450

    O SO simpel

    Private Sub Form_Activate()
    Call Wait
    Unload frmStart
    show.frmBegin
    End Sub

    Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    End Sub

    Private Sub Form_Load()
    Me.Top = Screen.Height / 3
    Me.Left = Screen.Width / 4
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = "Item's && incidenten check "
    lblWarning.Caption = "This application has copyright and trademark atributes"
    End Sub


    Private Sub Wait()
    Dim Mytime As Date
    Dim MySec As Date
    MySec = ("00:00:04")
    Mytime = Format(Now, "HH:NNS")
    Do Until Format(Now, "HH:NNS") > (Mytime + MySec)
    DoEvents
    Loop
    End Sub

  6. #6
    Join Date
    Sep 2003
    Location
    Hamilton, NZ
    Posts
    25
    Thanks for this Marvels

    I actually have it going really well at the moment.

    Although I am interested what all the extra code is doing as I'm not familar with VB.

    Just wondering if you able to put little comments nest to the script you just posted so I have better understanding and maybe if it is better I could change it.

    Mikeg
    Mikeg950

  7. #7
    Join Date
    Sep 2003
    Location
    Sweden
    Posts
    4
    Glad that the code helped you further.
    Keep going it, will be more fun when you start to realize what you can do with VBA the possibilities are almost endless.

    Best regards

  8. #8
    Join Date
    Sep 2003
    Location
    England
    Posts
    6
    what you could have done to prevent any coding is design the form but as an image and save it as a .bmp file with the same name as you db and in the same directory and this will replace the access splash screen with your .bmp image

    HTH

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •