Buda başka yoldan yapılmış hali.

Option Compare Database



Private Sub ARA_Click()

    Dim Sql As String

    Dim rs As DAO.Recordset

    Sql = "SELECT * FROM Veritabani WHERE LCase(ÜLKE)=""" & LCase(Me.Arama.Value) & """"

    Set rs = CurrentDb.OpenRecordset(sql)

    CurrentDb.QueryDefs("Veritabani Query").sql = sql

    On Error Resume Next

    DoCmd.Close acQuery, "Veritabani Query"

    DoCmd.OpenQuery "Veritabani Query"

    rs.Close

    Set rs = Nothing

End Sub