+- 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ığı: Giriş Maskesi ve Boş Alan Kontrolü (/konu-giris-maskesi-ve-bos-alan-kontrolu.html)
Giriş Maskesi ve Boş Alan Kontrolü - ozmly - 08/12/2010
Arkadaşlar,
Aşağıda belirtilen kod ile kullandığım formda boş alan kontrolü yapıyorum. Boş alan kontrolünde vergi numarası veya TC kimlik numarası bilgilerini en az birinin girilmesi zorunludur. Ancak ElseIf (IsNull((Vergi_Numarası) Or (TC_Kimlik_Numarası))) Then
komutu giriş maskesi nedeni ile hata vermekte idi. Giriş maskelrini kaldırdığımda kodların doğru çalıştığını gördüm. Acaba hem giriş maskesi kullanıp hem bu kontrolü yapmam mümkün mü?
Private Sub btn_ileri_Click()
On Error GoTo Err_btn_ileri_Click
If IsNull(Vergi_Dairesi_Adı) Then
MsgBox "Satışı talep eden vergi dairesini belirtiniz..!", vbCritical, "Eksik Bilgi"
Vergi_Dairesi_Adı.SetFocus
DoCmd.CancelEvent
Exit Sub
ElseIf (IsNull((Vergi_Numarası) Or (TC_Kimlik_Numarası))) Then
MsgBox ("Vergi Numarası veya TC Kimlik Numarası alanlarından birini mutlaka dodurmalısınız..")
Vergi_Numarası.SetFocus
ElseIf IsNull(Adı_Soyadı_Ünvanı) Then
MsgBox "Borçlu mükellefin Adı Soyadı/Ünvanı'nı belirtiniz..!", vbCritical, "Eksik Bilgi"
Adı_Soyadı_Ünvanı.SetFocus
DoCmd.CancelEvent
Exit Sub
Else
tab_2.Visible = True
tab_2.SetFocus
End If
Exit_btn_ileri_Click:
Exit Sub
Err_btn_ileri_Click:
MsgBox Err.Description
Resume Exit_btn_ileri_Click
End Sub
Not:Veri tabanı kişisel bilgiler içerdiği için ekleyemiyorum
Cvp: Giriş Maskesi ve Boş Alan Kontrolü - okileturc - 08/12/2010
Bunlar metin alanları olduğuna göre
Len () - "karakter sayısı " kullansanız ?
Len(Vergi_Numarası) >0 Or Len (TC_Kimlik_Numarası)>0
gibi
Selamlar
Cvp: Giriş Maskesi ve Boş Alan Kontrolü - ozmly - 08/12/2010
Hocam
vergi numarasında \ 000\ 000\ 0000;0;_
TC Kimlikde 00000000000;;_ giriş maskelerini kullanmak istiyorum.
ElseIf (Len(Vergi_Numarası) > 0 Or Len(TC_Kimlik_Numarası) > 0) Then
MsgBox "Vergi Numarası veya TC Kimlik Numarası alanlarından birini mutlaka dodurmalısınız..", vbCritical, "Eksik Bilgi"
Vergi_Numarası.SetFocus
Exit Sub
Len in kullanımına baktım ama verdiğiniz kodu uygulayamadım daha açıklayıcı bir bilgi verebilirmisiniz. Bu kodu nereye yazacağım ve başına sonuna eklemem gereken birşey varmı acaba?
Cvp: Giriş Maskesi ve Boş Alan Kontrolü - ercansahin - 09/12/2010
Sn ozmly; not ile belirtmişsiniz Oktay hocamda sağolsun bir cevap vermiş, ancak şunu söylemeliyim ki burada yardımcı olmaya çalışan arkadaşların bu kodları denemeden cevap vermesi pek sağlıklı olmayacaktır. Dolayısıyla örnek hazırlayıp denemek gerekli, takdir edersiniz ki bunun içinde bir zaman sarfı söz konusu. Sonuç olarak demem o ki örneğinizdeki kişisel verieri siliniz ve örneğinizin ilgili alanını ekleyerek yardım talep ediniz.
Cvp: Giriş Maskesi ve Boş Alan Kontrolü - Puletin - 09/12/2010
If IsNull(Me.Vergi_Numarası)= True Or IsNull(Me.Tc_Kimlik_Numarası)= True ThenKodlarınızı tam olarak yazmaya özen gösteriniz. Hataların giriş maskesi ile ilgisi olduğunu sanmıyorum..
Cvp: Giriş Maskesi ve Boş Alan Kontrolü - ozmly - 14/12/2010
(09/12/2010, 23:58)Puletin yazdı:If IsNull(Me.Vergi_Numarası)= True Or IsNull(Me.Tc_Kimlik_Numarası)= True Then
Kodlarınızı tam olarak yazmaya özen gösteriniz. Hataların giriş maskesi ile ilgisi olduğunu sanmıyorum..
Hocam bu kod butona basıldığında ikisininde dolu olması halinde çalışıyor (her ikisininde dolu olmasını arıyor). Kodda ki or ifadesini and ile değiştirdim. Herhangibiri dolu ise kayıt tamamlanıyor. Sorun çözüldü. İlginize teşekkürler