+- 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ığı: 13 karaktere zorlama (/konu-13-karaktere-zorlama.html)
Sayfalar:
1
2
Cvp: 13 karaktere zorlama - yalp_92 - 09/06/2013
bu program başka biri tarafından yapıldı ben üzerinde düzeltmeler yapmaya çalışıyorum orda 13 gördüm dikkat etmedim onu düzeltim sonra. frmhastakayıt ve tblhastakayıt
Cvp: 13 karaktere zorlama - simendifer - 09/06/2013
Düzenlendi inceleyiniz
Cvp: 13 karaktere zorlama - yorum70 - 09/06/2013
Sn.SIMENDIFER; uygulamınızı indirdim.Lakin, g.sonrasına yazdığınız kod 11 den az karakter girince devam ediyor..YANLIŞ YERE Mİ BAKIYORUM !
Özür, tamam buldum-hallettim.
Tşk.
Cvp: 13 karaktere zorlama - sonerdursun - 11/06/2013
Bende birşeyler yapmaya çalıştım sen ihtiyaına göre düzene koyarsın artık.
Öncelik olarak veri girişi 11 karekterle sınırladım 10 veya 12 girişe izin vermeyecek 2.olarak aynıt tc numarasını tekrar kaydetme ihtimaline karşılık eğer daha önce tc kayıtlı ise filtreleme yaparak eski kaydı getirmesini sağladım.
Tc no geçerlilik kuralına
Len([tcno])=11Geçerlilik Metni (İstediğini yazabilirsin)
Tc Kimlik Numarası 11 haneli olarak girilmelidir.tcno alanının güncelleştirme sonrasına
Private Sub Metin7_AfterUpdate()
If Metin7 = Dlookup ("[tcno]", "[tblhstakayıt]", "[tcno]=forms![FRMHASTAKAYIT]!Metin7") Then
Dim str As String
str = Me.Metin7
Undo
Me.Filter = "tcno = '" & str & "' "
Me.FilterOn = True
End If
End Sub