求助! 如何根据查询生成另一个查询

siaele

近日遇到一个问题,希望高手们能指点一下

窗体中有一个查询,根据输入关键词进行模糊查询,假设模糊查询出来的记录集为A, 如何根据A生成一个新的查询B?
如下图如何将" 搜索后" 的记录生成一个新的查询???

我希望能将记录集A打印出来,所以要先一步生成一个新的查询,才能去设计报表.





附件在此:

siaele

回复 roych 的帖子

谢谢Rouch!!! 我研究一下

roych

创建查询需要引用DAO库，但是你的附件有些东西我没怎么理解，所以也不好说。这里给个实例你勒个琢磨下，先贴上代码：

1. 
   
2. Private Sub CmdCreateQry_Click()
   
3. '定义当前数据库
   
4. Dim db As DAO.Database
   
5. Set db = CurrentDb
   
6. '删除旧查询，错误时跳到下一行代码
   
7. On Error Resume Next
   
8. db.QueryDefs.Delete "DAO_查询"
   
9. Dim qry As DAO.QueryDef
   
10. '有输入时创建新查询
    
11. If Not IsNull(Me.输入项目) Then
    
12. ’关键在这里，你需要把它改成你所需要的SQL语句。
    
13. '如果不知道怎么整的话，可以在QBE查询设计上先设置好查询，再右键\SQL视图即可看到SQL语句。
    
14. '当然，涉及到窗体控件时，则把它改为me.控件之类（需要注意子窗体和父窗体的引用问题）。
    
15. ssql = "SELECT " & Me.输入项目 & ".*,仓库地址.[WR ADDRESS],仓库地址.[WH Card Revision],仓库地址.[WH WR GRID] FROM " & Me.输入项目 & " INNER JOIN 仓库地址 ON " & Me.输入项目 & ".[P/N] = 仓库地址.[WH P/N]"
    
16. '生成查询，命名为DAO_查询，并关闭数据集和清空内存。
    
17. Set qry = db.CreateQueryDef("DAO_查询", ssql)
    
18. db.Close
    
19. Set db = Nothing
    
20. MsgBox "查询创建完毕"
    
21. Else
    
22. Exit Sub
    
23. End If
    
24. End Sub

复制代码