Alle checkboxen aanvinken voordat men naar volgende formulier kan

[SjonR]

Goedendag allemaal,

Ik heb een userform met een vijftal checkboxen. Ik wil dat men pas naar het volgende formulier kan als al deze checkboxen zijn aangevinkt.

Als ze op de knop "verder" drukken en dit is niet het geval, dan wil ik een msgbox met een melding dat niet alles is aangevinkt.

Een IF statement met 1 checkbox ken ik, maar hoe doe ik het met vijf.

Gr.

Sjon

 

[edmoor]

Plaats een voorbeeld document.

 

[OctaFish]

Selectievakjes hebben een waarde als je ze aanklikt. Als een gebruiker niet verder mag voordat ze allemaal zijn aangevinkt, kun je een check doen door de waarden op te tellen. Tot die tijd is de knop <Verder> uitgeschakeld bijvoorbeeld.

If ABS([Checkbox1] + [Checkbox2] + [Checkbox3] + [Checkbox4] + [Checkbox5]) = 5 Then Me.cmdVerder.Enabled=True

Deze formule zet je dan in de Click Event van de 5 checkboxen, en als de 5e is geselecteerd wordt de knop actief.

 

[SjonR]

dank voor je antwoord Octafish.

De code werkt, al moest ik eerst nog wel even de knop deactiveren met:

Private Sub UserForm_Initialize()
Me.CommandButton1.Enabled = False
End Sub

Maar nu doet het helemaal wat ik voor ogen had.

gr.

Sjon