Seçenek Gruplama-If Komutu

31/05/2011, 14:38

sally

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
31/05/2011, 19:05

C*e*l*o*y*c*e

inceleyin ve kendinize göre geliştirebilirsiniz
31/05/2011, 19:17

ozanakkaya

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.
01/06/2011, 15:44

sally

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.
09/07/2011, 13:32

Puletin

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?