Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
08/12/2010 17:08
Konu Sahibi
ozmly
Yorumlar
5
Okunma
3652
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ozmly

Aktif Üye
 44
 10
 01/10/2010
0
 Ankara
 
 Ofis 2007
 12/04/2018,16:07
Çözüldü 
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



Kullanici Avatari

okileturc

Onursal Üye
OK.... VA....
 60
 966
 113
 18/03/2009
464
 İzmir
 
 Ofis 2003
 11/12/2018,23:03
Çözüldü 
Bunlar metin alanları olduğuna göre
Len () - "karakter sayısı " kullansanız ?

Visual Basic Code
Len(Vergi_Numarası) >0 Or Len (TC_Kimlik_Numarası)>0


gibi

Selamlar


okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozmly

Aktif Üye
 44
 10
 01/10/2010
0
 Ankara
 
 Ofis 2007
 12/04/2018,16:07
Çözüldü 
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?



Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 
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.



Kullanici Avatari

Puletin

Onursal Üye
 Belirtilmemiş
 1.717
 40
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
Çözüldü 

Visual Basic Code
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..


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

Kullanici Avatari

ozmly

Aktif Üye
 44
 10
 01/10/2010
0
 Ankara
 
 Ofis 2007
 12/04/2018,16:07
Çözüldü 
(09/12/2010 23:58)Puletin Adlı Kullanıcıdan Alıntı:

Visual Basic Code
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Dosya Açık mı kontrolü bibib 6 211 13/12/2018, 23:58
Son Yorum: bibib
Çözüldü Form Bilgi Girişinde Alt Satıra Üst Satırdan Girilen Alan Değeri Nasıl Kopyalanır. Oğuz Türkyılmaz 14 221 03/12/2018, 00:22
Son Yorum: Oğuz Türkyılmaz
Çözüldü Ortak Alan Access Kullanımı Hk. untouchable 2 112 21/11/2018, 11:09
Son Yorum: accessdelisi
Çözüldü Bire Çok İlişkide Alan Veri Tipi notrino 8 202 15/10/2018, 14:37
Son Yorum: Allback
Çözüldü Alan Verisine Bağlı Buton Aktivasyonu notrino 5 225 03/10/2018, 20:36
Son Yorum: notrino

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.