Verify that all toggles are switched before completing

[dcdimon]

Greetings,

I have a script I found on the 'net that verifies that all the toggle buttons on a form have been pressed. If not then a message pops up. However, while I understand what it's doing, I'm not sure how it's doing it. I was hoping that someone here could explain the syntax and what things are calling/refering to. My code is below.

Private Sub Command16_Click()
    Dim ctl As Control
    
    For Each ctl In Controls
        If ctl.ControlType = acToggleButton Then
            If ctl.Name <> "Toggle1" Then
                If ctl.Value = 0 Then
                    MsgBox "Not all areas have been checked."
                    ctl.SetFocus
                    Exit Sub
                End If
            End If
        End If
    Next
End Sub

I understand that it's checking the status of each control that's a togglebutton, but I don't get what the second if statement, If ctl.Name <> "Toggle1" Then, is really doing.



I know I should be happy I found something that works, but without knowing how it's working I won't be able to modify it to fit my application. Or, rather, I'm afraid to modify it for fear of totally messing it up.

If someone could either point me to a resource on the 'net I could use, or explain the script, I would be very grateful.

Thanks,

DD

[Dal Jeanis]

It's ignoring the control named Toggle1 - every other togglebutton will be verified except that one.

And, I must congratulate you on your desire to understand how and why the code is working. You'll get a lot farther in life with that attitude, and you'll leave less land mines lying around for people to stumble into - including yourself in "people".

[pbaldy]

That line is exempting a toggle with that name from the test. In essence, all toggles except "Toggle1" must be pressed.

[dcdimon]

Okay, so it's looking for all toggles except for 'Toggle1'. In essence it's looking at all the toggles because there is no 'toggle1'? If I had a toggle called 'toggle1' it wouldn't check that, correct.

So what that if statement is really for is to set it up so that it's looking for something that doesn't exist, which forces the script to check all of the toggles until it runs out of toggle controls to check.

What about the ctl.setfocus - why is that being set as the focus?

Thanks Dal and pbaldy for the info.

DD

[ItsMe]

When it finds a control that does not meet the criteria, it sets focus on that control. Hopefully this helps the user understand which control needs attention

[dcdimon]

Okay, cool.. I didn't even notice it was doing that on my test bed.

Last question: What would be the best vba reference source for someone diving into vba scripting? I'd like something that not only explains not only the basics, but give some examples or some higher end stuff - like this checkbox check script. Or how to nest if statments, or boolean expressions. Basically something that tells what vba is, the commands and how to do some intricate scripting - including modules.

If there is more than one source I should be looking for that's fine.

Thanks all for the help and clarity. It's much appreciated.

DD

[Dal Jeanis]

Start with post #5 in this thread https://www.accessforums.net/access/...ess-38592.html

[dcdimon]

Thanks for the pointers.

DD