bir buton koyun ve aşağıdaki kodu ekleyin

   On Error GoTo Hatada:

   Dim ObjQry As DAO.QueryDef

   Dim Sql As String

 

   Sql = "SELECT * FROM cari WHERE bakiye" & Me.sec.Column(0)

   QryName = "BakiyeYeni"

   Set ObjQry = CurrentDb.CreateQueryDef(QryName, SQL)



Hatada:

   

   If Err.Number = 3012 Then

      CurrentDb.QueryDefs.Delete (QryName)

      Resume

   End If

   

    ObjQry.Close

    DoCmd.OpenQuery QryName, acNormal, acEdit