Wrox Programmer Forums
|
Access VBA Discuss using VBA for Access programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old September 5th, 2003, 04:35 AM
tsc tsc is offline
Registered User
 
Join Date: Sep 2003
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default nice intro scree

I'm a new programmer in vba and try to write a billing system. I would like to know where I can find examples of nice intro screens for my application, eventually with colors for the background in gradient colors, animated gifs etc...If no examples exist, can I program them in vba ?

thanks.

tsc

The Stardust Company
 
Old September 7th, 2003, 07:04 PM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 1,093
Thanks: 1
Thanked 12 Times in 11 Posts
Default

You can look at some pretty cool interfaces here to get some ideas:

http://www.activ8.com.au/interface/

Or, you can create your own Splash Screens by creating a regular old form and setting the following properties:

Scrollbars: Neither
Record Selectors: No
Navigation Buttons: NO
Auto Center: Yes

Plus whatever else you like. Then program several of the Splash Screens events as follows:

Private Sub Form_Activate()

    ' Hide built-in Form View toolbar.
    DoCmd.ShowToolbar "Form View", acToolbarNo

End Sub

'Private Sub Form_Deactivate()
'
' ' Show built-in Form View toolbar where appropriate.
' DoCmd.ShowToolbar "Form View", acToolbarWhereApprop
'
'End Sub

Private Sub Form_Open(Cancel As Integer)

    Me.TimerInterval = 5000

End Sub

Private Sub Form_Timer()

    ' If statement used to reset TimerInterval property.
    If Me.TimerInterval <> 0 Then
        Me.TimerInterval = 0
    End If

    DoCmd.OpenForm "frmSwitchboard", , , , acNormal
    DoCmd.Close acForm, "frmSplashScreen"

End Sub

The code sets the Splash Screen's timer interval to 5 seconds (5000 milliseconds) so that the Splash Screen automatically closes after 5 seconds and opens up your Switch Board, or any other form.

Also set the apps start-up object to your Splash Screen form via Tools -> Startup.

HTH,

Bob

 
Old September 7th, 2003, 07:21 PM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 1,093
Thanks: 1
Thanked 12 Times in 11 Posts
Default

Also remembered I've played around with one of Peter DeBeat's (sp?) freeware modules that'll do your BackColor Gradients in your form's detail section for you. Its at:

http://www.peterssoftware.com/bcg.htm

Regards,

Bob

 
Old September 8th, 2003, 02:41 PM
Friend of Wrox
 
Join Date: Sep 2003
Posts: 451
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to Ben Horne
Default

I tried using one of the modules that I got from the Peter's Software website it and I went through hell trying to update the VBA code inside my database

majora
 
Old September 8th, 2003, 03:44 PM
tsc tsc is offline
Registered User
 
Join Date: Sep 2003
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Quote:
quote:Originally posted by Bob Bedell
 You can look at some pretty cool interfaces here to get some ideas:

http://www.activ8.com.au/interface/

Or, you can create your own Splash Screens by creating a regular old form and setting the following properties:

Scrollbars: Neither
Record Selectors: No
Navigation Buttons: NO
Auto Center: Yes

Plus whatever else you like. Then program several of the Splash Screens events as follows:

Private Sub Form_Activate()

    ' Hide built-in Form View toolbar.
    DoCmd.ShowToolbar "Form View", acToolbarNo

End Sub

'Private Sub Form_Deactivate()
'
' ' Show built-in Form View toolbar where appropriate.
' DoCmd.ShowToolbar "Form View", acToolbarWhereApprop
'
'End Sub

Private Sub Form_Open(Cancel As Integer)

    Me.TimerInterval = 5000

End Sub

Private Sub Form_Timer()

    ' If statement used to reset TimerInterval property.
    If Me.TimerInterval <> 0 Then
        Me.TimerInterval = 0
    End If
        
    DoCmd.OpenForm "frmSwitchboard", , , , acNormal
    DoCmd.Close acForm, "frmSplashScreen"

End Sub

The code sets the Splash Screen's timer interval to 5 seconds (5000 milliseconds) so that the Splash Screen automatically closes after 5 seconds and opens up your Switch Board, or any other form.

Also set the apps start-up object to your Splash Screen form via Tools -> Startup.

HTH,

Bob

The Stardust Company
 
Old September 8th, 2003, 03:47 PM
tsc tsc is offline
Registered User
 
Join Date: Sep 2003
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Quote:
quote:Originally posted by Bob Bedell
Really thanks a lot Bob, I wasn't aware that vba could do such a nice things.
The Stardust Company
 
Old September 8th, 2003, 04:06 PM
tsc tsc is offline
Registered User
 
Join Date: Sep 2003
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Quote:
quote:Originally posted by majora
 Hello Majora, did you finally succeed or was it all for nothing ?


The Stardust Company
 
Old September 9th, 2003, 06:09 PM
Friend of Wrox
 
Join Date: Sep 2003
Posts: 451
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via AIM to Ben Horne
Default

Bob,

I just wanted to make a comment on the VBA code for the On Deactive event of the splash screen form.
I was having a problem getting into Design View so I could make needed changes to my Music Inventory 2001 database. I had already implemented a splash screen form and I had also coded it using the code you provided so it would work correctly.
Thing is, I noticed that for the On Deactive procedure, there is a ' before the text "DoCmd.ShowToolbar "Form View", acToolbarWhereApprop in the On Deactivate section. You CANNOT have a ' in front of the code you want Access to execute. Access will not execute comments

Just thought I'd let you know

Quote:
quote:Originally posted by Bob Bedell
 You can look at some pretty cool interfaces here to get some ideas:

http://www.activ8.com.au/interface/

Or, you can create your own Splash Screens by creating a regular old form and setting the following properties:

Scrollbars: Neither
Record Selectors: No
Navigation Buttons: NO
Auto Center: Yes

Plus whatever else you like. Then program several of the Splash Screens events as follows:

Private Sub Form_Activate()

    ' Hide built-in Form View toolbar.
    DoCmd.ShowToolbar "Form View", acToolbarNo

End Sub

'Private Sub Form_Deactivate()
'
' ' Show built-in Form View toolbar where appropriate.
' DoCmd.ShowToolbar "Form View", acToolbarWhereApprop
'
'End Sub

Private Sub Form_Open(Cancel As Integer)

    Me.TimerInterval = 5000

End Sub

Private Sub Form_Timer()

    ' If statement used to reset TimerInterval property.
    If Me.TimerInterval <> 0 Then
        Me.TimerInterval = 0
    End If
        
    DoCmd.OpenForm "frmSwitchboard", , , , acNormal
    DoCmd.Close acForm, "frmSplashScreen"

End Sub

The code sets the Splash Screen's timer interval to 5 seconds (5000 milliseconds) so that the Splash Screen automatically closes after 5 seconds and opens up your Switch Board, or any other form.

Also set the apps start-up object to your Splash Screen form via Tools -> Startup.

HTH,

Bob

Ben
 
Old September 9th, 2003, 07:51 PM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 1,093
Thanks: 1
Thanked 12 Times in 11 Posts
Default

Hi Ben,

Sorry I didn't clean that up before posting it. Must have been debugging something and forgot to uncomment that particular block.

Regards,

Bob

 
Old September 9th, 2003, 09:52 PM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 1,093
Thanks: 1
Thanked 12 Times in 11 Posts
Default

Quote:
quote:I was having a problem getting into Design View so I could make needed changes to my Music Inventory 2001 database.
Hi Ben,

An easy way to get around this apparent problem when the Form View toolbar isn't visible is to press the F11 key. That will display your Database Toolbar and Database Window where you can select design view.

Bob






Similar Threads
Thread Thread Starter Forum Replies Last Post
A simple hello & intro Diana Alexandra Boston BOOK: Beginning CSS: Cascading Style Sheets for Web Design ISBN: 978-0-7645-7642-3 1 June 29th, 2007 08:47 AM
Nice book..but ShaneTheMaster BOOK: ASP.NET 2.0 Website Programming Problem Design Solution ISBN: 978-0-7645-8464-0 5 April 13th, 2007 10:44 AM
Nice Textbook!! juhu Pro VB 6 2 May 3rd, 2005 06:24 PM
Intro to ASP.NET 2.0 DB mar0364 ASP.NET 1.0 and 1.1 Basics 1 April 9th, 2005 11:19 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.