KayitBul isimli butonun tıklandığında olayına aşağıdaki kodları yazınız.

If IsNull([ISYERIUNVANI]) Then

   MsgBox "Lütfen aramak istediğiniz Firma adı yazınız....!."

   Me.ISYERIUNVANI.SetFocus

   Else



 

Dim rs As Object



    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ISYERIUNVANI] Like '*" & Me.ISYERIUNVANI & "*'"

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

    



    End If