Seçili (aktif) olan Checkboxların (seçili ise) pasif olması hk.

[sendtohakan]

Arkadaşlar

6 Adet checkbox'ın seçili olanların deaktif olması için nasıl bir kod yazabiliriz. Seçili olanlar var ise tiki kaldırmasını amaçlıyoruz. Teşekkürler...

Aşağıdaki kod tek başına yazıldığında (yani sadece checkbox6 için) çalışıyor, sanırım If mantığından dolayı yanlış yazıyorum.

If Me.CheckBox6.Value = False Then
Else
Me.CheckBox6.Value = 0


If Me.CheckBox7.Value = False Then
Else
Me.CheckBox7.Value = 0


If Me.CheckBox8.Value = False Then
Else
Me.CheckBox8.Value = 0


If Me.CheckBox9.Value = False Then
Else
Me.CheckBox9.Value = 0


If Me.CheckBox10.Value = False Then
Else
Me.CheckBox10.Value = 0

End If

 

[hamitcan]

Bir butona aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "CheckBox" Then
         ctrl.Value = False
        End If
    Next
End Sub