Checkboxta döngü problemi

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki döngüye Checkboxların enabled özelliği false olanları atla diye bir ifade eklemek istiyorum. Yada döngüyü form üzerinde sadece enabled özelliği true olanların value değerini true yap diye nasıl değiştirebilirim.

Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
For X = 1 To 6
Controls("CheckBox" & X).Enabled = False
Controls("CheckBox" & X).Value = True
CommandButton1.Enabled = True
Next
End If
If CheckBox7.Value = False Then
For X = 1 To 6
Controls("CheckBox" & X).Enabled = True
Controls("CheckBox" & X).Value = False
CommandButton1.Enabled = False
Next
End If
End Sub

 

[danersin]

soruyu tam anlamamış olabilirim ama bu şekildemi?

Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
For X = 1 To 6
If Controls("CheckBox" & X).Enabled = True Then Controls("CheckBox" & X).Value = True
CommandButton1.Enabled = True
Next
End If
If CheckBox7.Value = False Then
For X = 1 To 6
If Controls("CheckBox" & X).Enabled = True Then Controls("CheckBox" & X).Value = False
CommandButton1.Enabled = False
Next
End If
End Sub

 

[Korhan Ayhan]

Teşekkür ederim. :arkadas: