Cinsiyet Erkek ise giriş yapılamasın

1 2
07/03/2009, 14:11

lokosit40

Çalışmamdaki Hasta giriş alanına Cinsiyet erkek olarak belirlenmiş ise Gebelik Testi bölümüne giriş yapılamasın istiyorum.Fikirlerinizi bekliyorum.İyi çalışmalar..
07/03/2009, 14:38

Nurullah_Serdar

cinsiyet alanının güncelleştirme sonrasına şu kodu ekle
If Me.CINSIYET = "ERKEK" Then Me.Gebelik_Testi.Enabled = False Else Me.Gebelik_Testi.Enabled = True
07/03/2009, 14:44

lokosit40

Sayın n_serdar,
Çok teşekkür ederimm.Saolun ...Birde merak ettiğim için soruyorum.Alanı giriş yapmaya engellemeden Erkek hastaya bu girişi yapamazsınınz şeklinde hata mesajı ile nasıl yaparız?
07/03/2009, 14:53

Nurullah_Serdar

idrar gebelik testi alanı güncelleştirme sonrası olayına bunu yapıştır.
If Me.CINSIYET = "ERKEK" Then MsgBox "Bu Alanı Erkek Hastalar İçin Kullanamazsınız", vbCritical, "Erkek Adam Hamilemi Kalabilir": Me.Açılan_Kutu120 = ""
07/03/2009, 15:02

lokosit40

böylesi daha güzel oldu...
07/03/2009, 17:06

lokosit40

(07/03/2009, 14:53)n_serdar yazdı: idrar gebelik testi alanı güncelleştirme sonrası olayına bunu yapıştır.
If Me.CINSIYET = "ERKEK" Then MsgBox "Bu Alanı Erkek Hastalar İçin Kullanamazsınız", vbCritical, "Erkek Adam Hamilemi Kalabilir Konu ile ilgili bişey daha sorcam aynı işlemi İdrar Açılır kutusunda da yapmak istiyorum:İdrar Açılır kutusu Hayır ise İdrar incelemesi alanına giriş yapılamasın.Bunu yapıyorum

If Me.İDRAR = "HAYIR" Then Me.İdrar_İncelemesi.Enabled = False Else Me.İdrar_İncelemesi.Enabled = True
fakat giriş yapılmamışsa yani boşsa olmuyor null yazıyorum ama olmuyor.
Eğer açılır kutu boşsa ne yapmam gerekiyor?
1 2