AccessTr.neT
Cinsiyet Erkek ise giriş yapılamasın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Cinsiyet Erkek ise giriş yapılamasın (/konu-cinsiyet-erkek-ise-giris-yapilamasin.html)

Sayfalar: 1 2


Cinsiyet Erkek ise giriş yapılamasın - lokosit40 - 07/03/2009

Ç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..


Cvp: Cinsiyet Erkek ise giriş yapılamasın - Nurullah_Serdar - 07/03/2009

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


Cvp: Cinsiyet Erkek ise giriş yapılamasın - lokosit40 - 07/03/2009

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?


Cvp: Cinsiyet Erkek ise giriş yapılamasın - Nurullah_Serdar - 07/03/2009

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 KalabilirImg-grin": Me.Açılan_Kutu120 = ""


Cvp: Cinsiyet Erkek ise giriş yapılamasın - lokosit40 - 07/03/2009

böylesi daha güzel oldu... Img-grin


Cvp: Cinsiyet Erkek ise giriş yapılamasın - lokosit40 - 07/03/2009

(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 KalabilirImg-grin": Me.Açılan_Kutu120 = ""

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?