如何使用代码来修改一个已经存在的选择查询

已经存在选择查询"查询1"

google_ad_width = 250; google_ad_height = 250; google_ad_format = "250x250_as"; google_color_url = "000000";

查询条件

年龄字段>6

如何在窗体里的代码中修改这个查询条件

修改成年龄字段>10

第2楼. 由 wangtiecheng 于 2007-6-27 13:09:19 发表

"引用DAO

Dim qry As QueryDef

Set qry = CurrentDb.QueryDefs("查询1")

qry.SQL = "select * from 表名 where 年龄>10"

第3楼. 由 wangtiecheng 于 2007-6-27 13:10:08 发表

Access使用的是Jet-SQL。

JET SQL 帮助(jet4 access2000)下载地址

http://www.access911.net/index.asp?board=8&recordid=75FAB71E&tt=

第4楼. 由 wangtiecheng 于 2007-6-27 13:12:14 发表

"添加DAO引用

"-->VBA代码窗口

"-->“工具”菜单

"-->引用

"-->选中“Microsoft DAO 3.6 Object Library”

Public Sub Test()

Dim qry As QueryDef

Set qry = CurrentDb.QueryDefs("查询1")

qry.SQL = "select * from 表名 where 年龄>10"