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]?

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

V/r
Juan

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

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.

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.

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

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

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

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

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

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.

NULL v. Zero Length String

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

V/r
Juan