![Çözüldü](images/icons/cozuldu.png)
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
Len([tcno])=11
Tc Kimlik Numarası 11 haneli olarak girilmelidir.
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