Seçenek Gruplama-If Komutu
Tarih
31/05/2011 14:38
Konu Sahibi
sally
Yorumlar
4
Okunma
1412
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



sally
Bana balık tutmayı öğret
Kullanici Avatari
Üye
26
8
29/12/2010
10
İstanbul
Ofis 2007
23/02/2012,18:13
Çözüldü 
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
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Çözüldü 
inceleyin ve kendinize göre geliştirebilirsiniz


Ek Dosyalar
.rar   Satış Destek-celoyce.rar (Dosya Boyutu: 47,51 KB / İndirme Sayısı: 18)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.011
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:03
Çözüldü 
Mevzuyu tam anlayamadım ama "Çerçeve111"'in günceştirme sonrasında olayına aşağıraki kodu yazınız.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.Img-grin
Cevapla


sally
Bana balık tutmayı öğret
Kullanici Avatari
Üye
26
8
29/12/2010
10
İstanbul
Ofis 2007
23/02/2012,18:13
Çözüldü 
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.
Cevapla


Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
Çözüldü 
Sayın sally Açılan kutuda evet veya belki seçildiğinde

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
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?

Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü IIF komutu saityazar 4 998 22/08/2016, 12:01 atoz112
  Kaydetme Komutu notrino 6 311 17/05/2016, 10:40 atoz112
  Teminat İlave formunda ki seçenek butonları eyupakdas 2 191 14/05/2016, 00:26 eyupakdas
  Süzme Komutu Dadadu 2 267 08/05/2016, 11:54 atoz112
Çözüldü Çalışma Günleri Ve İzinleri gruplama-Toplama yorum70 2 262 14/04/2016, 19:24 yorum70


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya