Onay Kutusu Gruplandırma

[ibaldu]

Merhaba,

3 adet onay kutusu bulunan bir çalışmam var. Burada yapmak istediğim şey 3 onay kutusunun aynı anda seçilemez olmasını sağlamak.

Örneğin: Hiçbiri seçili değilken 1 ve 2 yi seçebileyim. Üçüncü onay kutusunu seçmek istediğim zaman üçüncü seçimli olsun ama 1 veya 2 deki seçim kalksın (1 veya 2 hangisi olduğu farketmiyor.)
Yani hangi onay kutusuna tıklarsam o seçilebilsin ama aynı anda 3 tane onay kutusu seçilemez olsun. 2 tanesi seçili iken üçüncüyü seçmek istersem üçüncüyü seçsin ama diğer ikisinden birinin seçimini kaldırsın.

Böyle bir şey mümkün olabilirse çok mutlu olurum.
Desteğiniz için teşekkürler.

 

[Levent Menteşoğlu]

Onay kutusu yerine "Seçenek düğmesi (option buton)" kullanabilirsiniz.

 

[ibaldu]

Onay kutusu yerine "Seçenek düğmesi (option buton)" kullanabilirsiniz.

Hocam seçenek düğmesini bu istediğim halde yapabilmek için nasıl gruplandırabileceğimi bulamadım. Bunu yapmak için kod gerekiyorsa kod yazma bilgim de yok maalesef

 

[Muzaffer Ali]

Merhaba.
Onay kutuları formda mı, sayfada mı?
Sayfadaysa Form Denetimi mi, ActiveX denetimi mi?

Formdaysa aşağıdaki kodu deneyiniz.

Dim Kontrol As Boolean

Private Sub UserForm_Initialize()
    Kontrol = True
End Sub

Private Sub CheckBox1_Click()
    Onay CheckBox2, CheckBox3
End Sub

Private Sub CheckBox2_Click()
    Onay CheckBox1, CheckBox3
End Sub

Private Sub CheckBox3_Click()
    Onay CheckBox1, CheckBox2
End Sub

Sub Onay(Onay_1 As Variant, Onay_2 As Variant)
    If Onay_1.Value = True And Onay_2.Value = True And Kontrol Then
        Kontrol = False
        Onay_1.Value = False
        Onay_2.Value = False
        Kontrol = True
    End If
End Sub

 

[ibaldu]

Merhaba.
Onay kutuları formda mı, sayfada mı?
Sayfadaysa Form Denetimi mi, ActiveX denetimi mi?

Formdaysa aşağıdaki kodu deneyiniz.

Dim Kontrol As Boolean

Private Sub UserForm_Initialize()
    Kontrol = True
End Sub

Private Sub CheckBox1_Click()
    Onay CheckBox2, CheckBox3
End Sub

Private Sub CheckBox2_Click()
    Onay CheckBox1, CheckBox3
End Sub

Private Sub CheckBox3_Click()
    Onay CheckBox1, CheckBox2
End Sub

Sub Onay(Onay_1 As Variant, Onay_2 As Variant)
    If Onay_1.Value = True And Onay_2.Value = True And Kontrol Then
        Kontrol = False
        Onay_1.Value = False
        Onay_2.Value = False
        Kontrol = True
    End If
End Sub

Hocam sayfada ve form denetimi olarak eklendi.