Arama Özelliği Çalışmıyor

HERKEZE İİ AKŞAMLAR YENİ ÜYE OLDUM BİR SORUNUM VAR FORMDADA ARAŞTIRDIM AMA OLMUYOR CÖZEMİYORUM:

FORM ÜZERİNDE ARAMA YAPTIRMAK İÇİN SECENEK GRUBUNU KULLANARAK BİR KUTUCUK OLUŞTURDUM İÇERİSİNE BİR METİN KUTUSU VE BİR BUTON EKLEDİM BUTON İÇİNDE OLAY OLUŞTURDAN KOD OLUŞTUR DEDİM VE Option Compare Database

Private Sub Komut21_Click()

Dim ks As Object



    If fra_arama.Value = 1 Then

        kriter = "[sicil] = '" & Nz(txt_arama_kelimesi, "") & "'"

    ElseIf fra_arama.Value = 2 Then

        kriter = "[tc] = '" & Nz(txt_arama_kelimesi, "") & "'"

    Else

        MsgBox "Lütfen öncelikle hangi kritere göre arama yapmak istediğinizi seçiniz", vbInformation + vbOKOnly, "Kriter Belirtiniz"

    End If

        

        

        Set ks = Me.Recordset.Clone

    ks.FindFirst kriter

    If Not ks.EOF Then Me.Bookmark = ks.Bookmark

    

End Sub



Private Sub baba_adı_BeforeUpdate(Cancel As Integer)



End Sub



Private Sub TextBox2_Change()

Dim metin As String

    

    metin = TextBox2.Value

    

    ana tablo.Requery

End Sub

BUNU YAPTIM SİZCE NERDE HATA YAPIYORUM ARA BUTONUNA BASTIGIMDA ARAMA YAPMIYOR YARDIMCI OLURSANIZ SEVİNİRİM SAYGILARIMLA

Mesajlarınızı küçük harf ile yazınız ve örneğinizi ekleyin lütfen.