13 karaktere zorlama

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

Düzenlendi inceleyiniz

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.

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])=11

Geç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