Seçenek Gruplama-If Komutu

Merhaba;

Ekteki örneğin Günlük Ziyaretler formundaki Büyüme Potansiyeli seçenek grubundan Evet veya Belki seçildiğinde yanalrındaki metin kutularına yüzde olarak sayı girişini zorunlu kılmaya çalışıyorum. Aynı formun Kiralama kısmında evet - hayırlı seçenek için kod yazmıştık ancak buna uyarlayamadım. Aşağıdaki kod çalışmadı. Yardımcı olursanız çok sevinirim. İyi çalışmalar.
NOT: Evet veya belki seçenekleri seçildiğinde yüzdeler yazılması zorunlu olacak; ancak eğer yanlışlıkla seçilmişse işaretlemenin kaldırılmasına da imkan sağlanacak. Aynı kiralama bölümündeki tarih giriş zorunluluğu gibi.

Private Sub Metin120_Exit(Cancel As Integer)
If IsNull(Metin120) Or Metin120 = "" Then
MsgBox ("Cevabınız Evet ise büyüme olasılığını yüzde olarak belirtiniz")
Onay114.SetFocus
ExitSub
End If
End If
End Sub

inceleyin ve kendinize göre geliştirebilirsiniz

Mevzuyu tam anlayamadım ama "Çerçeve111"'in günceştirme sonrasında olayına aşağıraki kodu yazınız.

If IsNull(Metin120) And Çerçeve111 = "1" Then

If MsgBox("büyüme olasılığını yüzde olarak belirtiniz?", 36, "Büyüme Olasılığı...") = vbYes Then

Me.Metin120.SetFocus

 Else

Me.Çerçeve111 = ""

End If



End If

If IsNull(Metin122) And Çerçeve111 = "3" Then

If MsgBox("büyüme olasılığını yüzde olarak belirtiniz?", 36, "Büyüme Olasılığı...") = vbYes Then

Me.Metin122.SetFocus

 Else

Me.Çerçeve111 = ""

End If

End If

---

Cevabını görmedim Mevlüt hocam.

Her iki kodu da deneyerek bilgi vereceğim. Celoyce nin gönderdiği koda biraz bakma fırsatım oldu. Yalnzı evet seçildiğinde iki ayrı metin kutusu açılıyor. Bunlardan kod yazılmamış olanı kaldıracağım. Aynı uygulamayı belki seçeneği için de geliştirmeye çalışacağım. Diğerini henüz denemedim. Teşekkürler.
Sledgeab acaba çerçeve 111 nerede yer alıyor? Tasarım modunda açıp baktığımda sadece onay kutuları ve metinler bulunmakta.
Yapmak istediğimi de tekrar açıklayayım. Belki anlaşılırsa daha net olur.
Gruplandırma yaptığım kutucuklarda "evet" ya da "belki" seçeneği işaretlendiğinde yanalrındaki metin kutularına olasılığın girimesini zorunlu kılmak istiyorum. Aynı zamanda yanlışlıkla bu seçeneklerin işaretlenmesi de olabileceğinden kullanıcı örneğin hayırı işaretleyecekken eveti işaretlemişse bir kere yüzdeyi giriniz uyarısını alsın ama daha sonra geri dönüp işaretleyi "hayır" olarak değiştirebilsin diyorum.

Sayın sally Açılan kutuda evet veya belki seçildiğinde

Private Sub Açılan_Kutu128_Change()

If Açılan_Kutu128.Value = "Evet" Or Açılan_Kutu128.Value = "Belki" Then

Me.Metin120.Visible = True

Me.Metin120.SetFocus

Me.Metin122.Visible = True

ElseIf Açılan_Kutu128.Value = "Hayır" Then

Me.Metin120.Visible = False

Me.Metin122.Visible = False

End If

End Sub

Bu şekilde denediniz mi?