checkbox dolu olma şartı

[cem yılmaz]

Merhabalar..

userformdaki checkboxların hangisi işaretli ise ona ait commandbutton çalışsın eğer checkboxlardan biri veya hiçbiri işaretli değilse butonlar çalışmasın ben yaptım ama checkboxlar birer defa tıklayıp sonra basılırsa çalışıyor yani yapamadım,,

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
CommandButton1.Locked = True
Else
CommandButton1.Locked = False
End If
End Sub

 

[Orion1]

Dosyanız ekte.

 

[Levent Menteşoğlu]

Tüm butonları seçerek enabled özelliklerini false yaparak aşağıdaki kodu kullanabilirsiniz.

Private Sub CheckBox1_Click()
CommandButton1.Enabled = CheckBox1
End Sub

Not: Eğer checkbox sayısı fazla ise class modül kullanmanızı öneririm.

 

[cem yılmaz]

Sn Levent bey , Sn Evren hocam

Her iki çalışmada çok güzel olmuş teşekkür ederim. Umarım forumdaki diğer kullanıcılarında işine yarar.

 

[parsley2]

If CheckBox1.Value = False Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

komutları bu şekilde değiştirirsen istediğin olur

 

[cem yılmaz]

peki sadece bir checkbox seçili olma şartı için ne yapmamız gerek yani sadece bir adet checbox seçilmesine izin versin

 

[Skorpiyon]

Sayın cem yılmaz,

Checkbox'ları Optionbutton ile değıiştirerek deneyin. Optionbuttonlarda yalnızca 1 tane seçili olabilir.

 

[Skorpiyon]

... veya şöyle deneyebilirsiniz.

if checkbox1.value = true then
checkbox2.value = false
checkbox3.value = false
.....
.....
end if

gibi.

 

[cem yılmaz]

Şaban hocam inanki beceremedim yardım edebilirmisiniz?

 

[Skorpiyon]

Sayın cem yılmaz,

Yanlış anlamadı isem istediğiniz bu mudur ?
Değil ise isteğinizi biraz daha açabilir misiniz.

 

[cem yılmaz]

Evet istediğim buydu Şaban hocam teşekkür ederim