Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
31/05/2011 14:38
Konu Sahibi
sally
Yorumlar
4
Okunma
1772
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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,20:24
Çözüldü 
inceleyin ve kendinize göre geliştirebilirsiniz


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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.789
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,20:24
Çö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


Kullanici Avatari
Altın Üye
1.715
01/11/2008
416
-
Ofis 2003
24/12/2016,00:18
Çö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ü Upper Komutu sameDeveloper 1 140 19/07/2017, 15:44 ozanakkaya
Çözüldü Formda Butona Say Komutu Ekleme ramazanemrullah 7 425 23/06/2017, 21:21 ramazanemrullah
Çözüldü Seçenek Düğmesi Hk. serkan1985 5 251 07/05/2017, 13:34 serkan1985
Çözüldü Seçenek Gurubunda Yapılan Seçimlerin Raporda İstenilen Değeri Göstermemesi murat dikme 4 376 02/03/2017, 15:49 murat dikme
Çözüldü Form İçindeki Seçenek Guruplarını Boş Getirme murat dikme 2 239 01/03/2017, 21:23 murat dikme

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.