如何用代码来更新已有的查询?

szliuyi

我想用在窗口中设置一些条件,让用户选择一些条件来组合.想用代码来更换已有的查询.不只如何编写,请各位高手指教!

Roadbeg

更改查询内容我没办法,但,你可以用代码产生一个新的同名查询来替换以前的.

szliuyi

我用.CreateQueryDef来产生一个新的查询来覆盖原来的文件，可是提示文件已经存在，不能覆盖，是否方法不对，请指教

Roadbeg

在产生新的查询之前,你应该首先执行以下操作:
1.检查该查询是否存在.
2.如果已存在该查询,则检查它是否已打开.
3.如果已打开,首先关闭它.
4.如果存在查询,且已关闭(或未打开),则删除它.
5.建立新查询.

检查对象是否已存在及检查它是否已打开的方法旧帖中有,在此略过.
以下为删除查询的实现语句:
DoCmd.SelectObject acQuery, 查询名称, True
DoCmd.RunCommand acCmdDelete

tanyiqiang

Dim stSQL As String
    stSQL = "select * from 表1"
    CurrentDb.QueryDefs("查询1").SQL = stSQL

szliuyi

谢谢！