Werken met checkbox

[buckeru]

Hallo,

Ik heb 8 checkboxen op een blad staan.
Daarvan mag je er maar 1 aanvinken.
Dus als je de 1e aanklikt komt er een vinkje, en als je de 6e aanklikt komt
daar een vinkje. En dan moet de 1e weer verdwijnen.

wie weet hoe dat moet?

grtn buck

 

[SjonR]

Dan denk ik dat je beter een (ActiveX) Optionbutton kan gebruiken ipv een checkbox. Bij de optionbutton kan je bij de eigenschappen in de VB-Editor een groepsnaam invullen. Dan kan er maar 1 van dezelfde groep worden aangeklikt.

 

[buckeru]

ok, ga ik eens onderzoeken.
thanks

 

[buckeru]

Ja, dat werkt ook.
Maar ik wou geen rondjes maar een vierkantje.
Ik heb nu de checkboxes in een groep gegooid, kan je dan bij eigenschappen het zo instellen
als de optionbuttons?

 

[SjonR]

het groeperen met checkboxen werkt niet gelijk aan die van een optionbutton. Ik zou eigenlijk niet weten wat het wel doet.

Als je ActiveX-checkboxes hebt kan je ze wel afhankelijk van elkaar maken met een beetje vba-code. Hieronder een voorbeeld met 3 checkboxes

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then CheckBox2.Value = False
If CheckBox1.Value = True Then CheckBox3.Value = False
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then CheckBox1.Value = False
If CheckBox2.Value = True Then CheckBox3.Value = False
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then CheckBox1.Value = False
If CheckBox3.Value = True Then CheckBox2.Value = False
End Sub

 

[edmoor]

Of:

Private Sub CheckBox1_Click()
    If Not CheckBox1 Then Exit Sub
    CheckBox2 = Not CheckBox1
    CheckBox3 = Not CheckBox1
End Sub

Private Sub CheckBox2_Click()
    If Not CheckBox2 Then Exit Sub
    CheckBox1 = Not CheckBox2
    CheckBox3 = Not CheckBox2
End Sub

Private Sub CheckBox3_Click()
    If Not CheckBox3 Then Exit Sub
    CheckBox1 = Not CheckBox3
    CheckBox2 = Not CheckBox3
End Sub

 

[route99]

Yep, prima oplossingen, zo gebruik ik het onder Access met VB ook...

 

[buckeru]

Thanks allen, het is opgelost:thumb: