Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] TC no alanı sayı olacak 11 karekter ve çift sayı olacak.Yardımcı olurmusunuz.

[FORM] TC no alanı sayı olacak 11 karekter ve çift sayı olacak.Yardımcı olurmusunuz.
cemşit
Yeni Üye 15-40

*
Kayıt Tarihi: 17.03.2010
Toplam 4 konu açtı.
Toplam 20 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
09-09-2014, 16:43 (En son düzenleme: 09-09-2014, 16:46 cemşit.)
Formun üzerinde TC alanının Özellikler sayfasında Veri kısmında yazdığım.

Geçerlilik Kuralı:[TC] Mod 2=0 And Like "???????????"
Geçerlilik Metni:TC NO 11 KAREKTER VE ÇİFT SAYI OLMALI

Ancak like "?.." 9 karakterin üstünde çalışmıyor.


Kod kullanarak ise;

Private Sub dene_BeforeUpdate(Cancel As Integer)
If Right(Me.TC, 1) Mod 2 Then ..............................Buraya And UZUNLUK gerekiyor
MsgBox "11 karekter ve çift sayı olmalı", vbCritical
Me.Undo
End If
End Sub



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#2
09-09-2014, 16:59
selam
neden çift sayı



  Bul
  Alıntı
Bu mesajı beğenenler:
cemşit
Yeni Üye 15-40

*
Kayıt Tarihi: 17.03.2010
Toplam 4 konu açtı.
Toplam 20 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#3
09-09-2014, 17:29
A.S.Son hanesi çift sayı olarak düzelteyim o halde.

Lütfen basit olarak cevaplayabilirseniz sevinirim Access'de uzunluk fonksiyonu varmı varsa bunu kullanabilirmisiniz.Veya geçerlilik kuralında veri sayı olduğunda Like "???..." şeklinde 11 karektere zorlama noktasında yardım.



  Bul
  Alıntı
Bu mesajı beğenenler:
cemşit
Yeni Üye 15-40

*
Kayıt Tarihi: 17.03.2010
Toplam 4 konu açtı.
Toplam 20 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#4
09-09-2014, 20:11
Excelde veri doğrulamadan kolaylıkla yapabiliyorum ancak accessde uzunluk fonksiyonunu bulamadım ve belki çok kolay farklı yöntemleri olabilir ancak ben kilitlendim



  Bul
  Alıntı
Bu mesajı beğenenler:
cemşit
Yeni Üye 15-40

*
Kayıt Tarihi: 17.03.2010
Toplam 4 konu açtı.
Toplam 20 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#5
10-09-2014, 12:27
Ondalık -1028ile +1028 arasında değerler içerebilen tanımlı bir ondalık duyarlığı olan 12 baytlık tamsayıdır. 0 varsayılan duyarlık değeridir. Varsayılan ölçek (görüntülenen ondalık basamak sayısı) 18'dir. Ölçeği en fazla 28'e ayarlayabilirsiniz.

11 hanelik bir sayı depolayacaksak sayıyı ONDALIK yapmak gerekiyormuş.İlgilenen arkadaşlara teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#6
10-09-2014, 13:07
selam

tablonuzun tc no ile ilgili alanınızı metin ve sayı alanını 11 yapın
formunuza alttaki kodu ekleyin
kodda adı geçen tcno alanı ile kendi tcno alanınızın adı koddaki ile değiştirin
kendi uygulamanızdaki tcno alanınızın özelliklerinden olay yordamlarını
(güncelleştirme öncesi)
(tuşa basıldığında)
olay yordamlarının aktif olduğunu kontrol edin
deneyin ve geri dönüşte bulunursanız
sevinirim
saygılarımla
Visual Basic
  1. Dim sayi As Integer
  2. Dim a As String, b, c As Integer, rakm As String
  3. Private Sub tcno_BeforeUpdate(Cancel As Integer)
  4. If IsNull(tcno) Then: Exit Sub
  5. sayi = Len(tcno)
  6. b = 11 - sayi
  7. c = sayi - 11
  8. If sayi > 11 Then
  9. rakm = "Fazla"
  10. ElseIf sayi < 11 Then
  11. rakm = "Eksik"
  12. End If
  13. If sayi <> 11 Then
  14. MsgBox "TC NO " & tcno & vbCr & vbCr & "( " & Abs(b) & " )" & " Rakam " & rakm & " Girdiniz." & vbCr & _
  15. "Maks (11) Rakam girebilirsiniz...", vbInformation, "A-Yapı"
  16. Cancel = True
  17. Else
  18. Cancel = False
  19. End If
  20. End Sub
  21. Private Sub tcno_KeyPress(KeyAscii As Integer)
  22. If KeyAscii = 286 Then: Exit Sub 'Ğ=286
  23. If KeyAscii = 287 Then: Exit Sub 'ğ=287
  24. If KeyAscii = 304 Then: Exit Sub 'İ=304
  25. If KeyAscii = 305 Then: Exit Sub 'I=305
  26. If KeyAscii = 306 Then: Exit Sub 'I=305
  27. If KeyAscii = 350 Then: Exit Sub 'Ş=350
  28. If KeyAscii = 351 Then: Exit Sub 'ş=351
  29. If KeyAscii = 8 Then
  30. Exit Sub
  31. End If
  32. If KeyAscii = 44 Then: KeyAscii = 0
  33. If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
  34. KeyAscii = 0
  35. End If
  36. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] iki sayı arasında nasıl sorgu yapılır? 26092009 3 7.657 15-12-2024, 08:42
Son Mesaj: halil.tefci
  Tablodaki Alanı Alt Tablodan Alınan Değerle Güncelleme Sorgusu Lidervet 7 637 02-12-2024, 11:20
Son Mesaj: halily
access-sql-18 [RAPOR] Kayıt Içerisindeki Miktar Alanındaki Sayı Kadar Rapora Ilgili Kaydı Rapora Kopyalama gurolk 12 935 29-07-2024, 12:01
Son Mesaj: dsezgin
  Bir Tabloda Bulunan 2 Alanı Birleştirme programmer67 10 752 25-06-2024, 11:49
Son Mesaj: halily
  Sayı Bulma evren89 1 323 16-06-2024, 01:49
Son Mesaj: dsezgin
  [SORGU] Sayı Formatı Bozulmadan Metinle Birleştirme atyaty 2 380 08-12-2023, 18:57
Son Mesaj: atyaty
  [VBA] Bir Tabloda Alan Türü Uzun Metin Olan Iki Ayrı Alanı Karşılaştırmak abkbek 13 1.186 10-11-2023, 22:26
Son Mesaj: abkbek
  [VBA] Yıl Ay Sayı Sıralama Kodu Hakkında Ahmet51 6 766 29-05-2023, 09:31
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi