Ö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