请问能用代码修改查询里的条件吗?

siaele

请问能用代码的方式修改某个查询的条件吗?

如一个A查询: SELECT et2,et3 form [tba] where ....

如何用代码来修改 where条件,然后再执行这个查询?

Henry D. Sy

可以的！
把例子传上来！

roych

1. 
   
2. '查询SQL语句函数
   
3. Function ChangeQry(str As String)
   
4. Dim qry As DAO.QueryDef
   
5. Dim db As Database
   
6. Set db = CurrentDb
   
7. Set qry = db.QueryDefs("查询1")
   
8. qry.SQL = "SELECT 人事档案.* FROM 人事档案 WHERE " & str
   
9. End Function
   
10. 
    
11. '测试调用模块
    
12. Sub test()
    
13. ChangeQry "人事档案.学历='大专'"
    
14. End Sub
    

复制代码

以上代码的前提是必须存在这个查询：查询1