Progress Bar
By Richard Rost

10 months ago

Display a Custom Progress Bar

In this Microsoft Access tutorial, I will teach you how to use the Microsoft ActiveX ProgressBar control that comes with Access. I don't like using external controls, however. So, I'll teach you how to create your own custom progress bar using a text box.

Melissa from San Diego, CA (A Learning Connection Member) asks: I have a monthly report that I run which requires a series of action queries, imports, and exports that takes forever. Is there any way I can show some kind of a progress bar so I know how far along it is?

Members

I'll show you how to create a cool-looking 3D progress bar with shadowing, the percent complete, and an ABORT button to cancel the loop.

Extended Cut Video - Silver
Database Template Download - Gold

Silver Members and up get access to an Extended Cut of this video. Gold Members can download the database template from class plus get access to the Code Vault. If you signed up on YouTube you have to contact me so I can set up your account here on my web site. If you're not a member, Join Today!

Links

Sleep VBA: https://599cd.com/sleep
Developer 18: https://599cd.com/acd18

Learn More

FREE Access Beginner Level 1
Access Level 2 for $1.00

Free Templates

TechHelp Free Templates
Blank Template
Contact Management
Order Entry & Invoicing
More Access Templates

Resources

Mailing List - Get Emails When New Videos Released!
Consulting - Need Help with Your Database?

Questions?

Please feel free to post your questions or comments below or submit them via the TechHelp page.

Progress Bar w Check Boxes Upload Images Link
Juan C Rivera
6 months ago

Hi Y'all TGIF , trying to set up a loop with checkmarks box
I added Perc to the Tag and was expecting the status bar to move up in %. I got no results. Does CalcPBar include checkbox or are checkbox not controls? How can I add them to the status bar? Read More...

Richard Rost
6 months ago

So you want to use a line of check boxes for your progress bar? Like [x][x][x][x][x][x][x][x][x][x][x][x]?

Juan C Rivera
6 months ago

Yup ok Jedi master what you got up you sleave. LOL

V/r
Juan

Show 11 More Replies...

Adam Schwanz
6 months ago

Jedi?! :O You're in for it now LOL

Richard Rost
6 months ago

I'll take Jedi Master as a compliment. I do love Star Wars... but only the first 2 movies. The original was one of the best movies made for its day, and Empire is in my Top 10 all-time favorite movies. The rest of them are absolute crap, however. I won't even watch the prequels again, and the newest trilogy is just rehashed hogwash. Aside from cool effects, they're crap. I don't consider Star Wars to be "science fiction." It's space fantasy. Pure and simple. They don't try to be scientific about stuff, and that's OK. Star TREK is science fiction. They actually make an attempt to be scientific.

Richard Rost
6 months ago

In any case, making a progress bar out of check boxes is certainly doable. I took a quick 5 minute stab at it. Here's what I put together: progress-bar-with-checkboxes.zip. It's a very inefficient way to do things, but it works.

Juan C Rivera
6 months ago

Thats diffrent nice approach I will add it in to my form and see what it looks like. might have you guys try it and get feed back.

BIG THANKS GOT TEAM!
V/r
Juan

Juan C Rivera
6 months ago

Ok did a seperate progress bar just for checkboxes look confusing so I reverted back to progress bar showing how much of a form is completed.  I added a filed caled top3checkbox.  in the if statement added if checkbox = true the top3checks = "X"
I added the Perc to the tag on the fied also did the afterupdate CalcPbar, no luck % only updates if I do it manually.  So said to self - Self, how about on change?  good thought self I tried it no luck.  So my question id I do I get the Status bar to update from with in the If statement?
       top3Checks = "X"
      If ([CraneNearMissCheck]) = False Then
        If ([RiggingNearMisscheck]) = False Then
            If ([UnplannedOccurrenceCheck]) = False Then
              NearMissBackBox.Visible = True
                  RdyToSend = False
                  top3Checks.SetFocus
                  top3Checks = ""
                  CalcPbar
                  Me.Refresh
              End If
          End If
        End If
Top3Checks_AfterUpdate

Juan C Rivera
6 months ago

Oh wow so rude of me appoligies to all
Good Morning.
Anyone out there like to drop a hint to what I'm doing wrong? I am thinking that afetrupdate and afterchange has to be done at the form level and not with in VBA.

V/r
Juan

Juan C Rivera
6 months ago

Richard, the code you gave is awsome I will add it for sure to the checklist form, with hopethat when I look at the log I will see how much of the checklist is done I will get a %. Having fun with leggos

Big Thanks
V/r
Juan

Juan C Rivera
6 months ago

I got smacked in th ehead WOW I was setting the field to ="" when someone said why? I asked because it needs to be empty.
Well when I set to "" it still has a value. =Null has no value and it all works fine.
Thank You all for putting up with me I learned a valuable lesson today.

V/r
Juan

Adam Schwanz
6 months ago

Yea blanks seem to act different every time you run into them. There's times in queries I've had to put Is Null, Then sometimes I have to put "", then sometimes I have to put not like "*". It's one of those fun access things :D.

Maybe I should just setup an after update event to check if the field = "" then change it to Null and fix all my problems lol.

Alex Hedley
6 months ago

NULL v. Zero Length String

Juan C Rivera
6 months ago

Alex good reading. I think this is one I iwll never forget.

V/r
Juan