Opening Form

[cheiboy]

Does anyone in here know if you can do a 'flash' presentation in Access 97 similar to a website? Thanks.

 

[Blorf]

If I understand what you mean, then kind of

If you write in VBA a routine that opens a form, and counts to 20000 (about 5 seconds) then closes it and opens another one.

ChaZ

 

[psemianonymous]

I believe there's a Macromedia flash ActiveX control that you can embed in a form.

Also, you could just

Shell "[URL unfurl="true"]http://seizurebots.com/"[/URL]

on Form_Open() if you want a 'flashy' intro.

--
Find common answers using Google Groups:

http://groups.google.com/groups?group=comp.databases.ms-access

Corrupt MDBs FAQ

http://www.granite.ab.ca/access/corruptmdbs.htm

 

[psemianonymous]

Also, for waiting, I don't recommend for loops. Try this:

Public Sub WaitSeconds(Seconds As Integer)
    If Seconds > 60 Or Seconds < 0 Then Exit Sub
    
    Dim datStart As Date
    
    datStart = Now()
    
    Do While DateDiff(&quot;s&quot;, datStart, Now()) < Seconds
        DoEvents
    Loop
    
End Sub

 

[cheiboy]

Thanks, I'll check out the website.

 

[psemianonymous]

Blah, while i'm error-checking, first. The MVPs site has code for waiting/"sleeping" code:

http://www.mvps.org/access/api/api0021.htm

...and my Shell() command wouldn't work. I'm familiar with the ShellExecute command, which is also listed (as an API call wrapper function) at the MVPs site:

http://www.mvps.org/access/api/api0018.htm

So the appropriate code would be:

apiShellExecute "[URL unfurl="true"]http://seizurebots.com/"[/URL]

...which then induces seizures, bug-free.

 

[cheiboy]

Ok, How would I incorporate our company logo and the Missions statement into this flash screen before going onto the database. Sorry about this, I'm new to all this fancy stuff.

 

[psemianonymous]

Ahh. I see. Just use a standard form. Set up your form so they can see the logo and mission statement--the visual design is all you. Use the Timer() event. Set the timer interval to something like 30000 (30 thousand milliseconds -> 30 seconds).

Have a button that says "Continue".

When the users click the Continue button, or the timer runs out, you execute the following:

DoCmd.Close acForm, Me.Name

DoCmd.OpenForm "yourMainMenuForm"



that's all.

 

[cheiboy]

Once again, thank-you. I'll let you know how it turns out.

Steve

steve.bigman@hcs.maricopa.gov