قبل و بعد از کد اجرای کوئری یک خط اضافه کنید

Application.SetOption "confirm action queries", False
docmd.OpenQuery "query1"
Application.SetOption "confirm action queries", True