多谢了!!!!!!!! 作者: zhengjialon 时间: 2004-3-9 20:42
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=15481作者: anglecupid 时间: 2004-3-9 21:35
你说的这个例子是查询不存在的情况下,
im strSQL as string
dim qdf as QueryDef
strSQL = "SELECT * from tblaa" 'tblaa为表
Set qdf = CurrentDb.CreateQueryDef("创建的查询", strSQL)
DoCmd.OpenQuery qdf.Name
如果查询已经存在,怎么处理呢??作者: anglecupid 时间: 2004-3-9 22:22
Dim qdfSQL As QueryDef
Set qdfSQL = CurrentDb.QueryDefs("已存在的查询名")
qdfSQL.Sql = "修改后SQL语句"
qdfSQL.Close
Set qdfSQL = Nothing