[AccessD] Progress Bar

ok, create a form and add the progress bar control call it ProgressBar add a cmdbutton and on the click event of the button add the following code

    Dim intIncrementBar As Integer
    Dim intDelay As Integer
    
    Me.ProgressBar0.Value = 0
    
    For intIncrementBar = 1 To 100
        Me.ProgressBar0.Value = intIncrementBar
    
        For intDelay = 0 To 50000
        
        Next intDelay
    
    Next intIncrementBar

This should get you started, if you need any more help let me know.....
Paul





Message date : Feb 26 2004, 03:37 PM
>From : rsmethurst at UK.EY.COM
To : "Access Developers discussion and problem solving" 
Copy to : 
Subject : Re: [AccessD] Progress Bar
Thanks Paul,

I'd appreciate that.

Ryan



This e-mail and any attachment are confidential and contain proprietary information, some or all of which may be legally privileged. It is intended solely for the use of the individual or entity to which it is addressed. If you are not the intended recipient, please notify the author immediately by telephone or by replying to this e-mail, and then delete all copies of the e-mail on your system. If you are not the intended recipient, you must not use, disclose, distribute, copy, print or rely on this e-mail.

Whilst we have taken reasonable precautions to ensure that this e-mail and any attachment has been checked for viruses, we cannot guarantee that they are virus free and we cannot accept liability for any damage sustained as a result of software viruses. We would advise that you carry out your own virus checks, especially before opening an attachment.

The UK firm Ernst & Young LLP is a limited liability partnership registered in England and Wales with registered number OC300001 and is a member practice of Ernst & Young Global. A list of members? names is available for inspection at 1 More London Place, London, SE1 2AF, the firm?s principal place of business and its registered office.
--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
Freeserve AnyTime - HALF PRICE for the first 3 months - Save £7.50 a month 
www.freeserve.com/anytime