Sayın hocam, Gizli metin kutusundan yapıyorum zaten.

Private Sub txtogrenciara_Change()

Dim aranan As String

If aracerceve = 1 Then

aranan = Forms!frm_listeogrenci!txtogrenciara.Text

Forms!frm_listeogrenci!txt_ad_ara_gizli = aranan

listeogrenci.Requery

ElseIf aracerceve = 2 Then

aranan = Forms!frm_listeogrenci!txtogrenciara.Text

Forms!frm_listeogrenci!txt_num_ara_gizli = aranan

listeogrenci.Requery

Else



aranan = Forms!frm_listeogrenci!txtogrenciara.Text

Forms!frm_listeogrenci!txt_snf_ara_gizli = aranan

listeogrenci.Requery

End If

End Sub