Kod:
Private Sub Ara_Click()
Me.Filter = "[T C Kimlik No]= '" & Me.kimlikno_goster & "'"
Me.FilterOn = True
End Sub
önceki mesajımdan farklı bir yöntem kullandım
dilerim işinize yarar,
iyi çalışmalar
Güncellenmiş Dosya
Private Sub Ara_Click()
Me.Filter = "[T C Kimlik No]= '" & Me.kimlikno_goster & "'"
Me.FilterOn = True
End Sub