![Çözüldü](images/icons/cozuldu.png)
frm_listeogrenci formunda bulunan metin kutusuna girilen değere göre arama yapması lazım ama yapmıyor . neden acaba
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