Access vba动态创建查询

在Access中，我们一般都是通过菜单栏的创建=》查询=》查询设计来新建一个查询的。

但是有的时候。我们希望有VBA 动态创建一个查询，方便我们临时调用这个查询，比如导出这个新创建的查询的数据，然后删除之

详细函数：

Public Sub createqry(strsql As String, strName As String) 
    CurrentDb.CreateQueryDef strName, strsql                      'create querydef

End Sub


Public Sub deleteqry(strName As String) 
  CurrentProject.Application.DoCmd.DeleteObject acQuery, strName             'delete querydef
End Sub

在窗体放置两个按钮，一个“创建查询”，一个“删除查询”。

“创建查询”按钮的单击事件代码，效果如下图

Private Sub Command0_Click()
    Call createqry("select * from tbl1 where 水果='苹果'", "查询苹果")
End Sub

“删除查询”按钮的单击事件代码，效果如下图

Private Sub Command1_Click()
    deleteqry "查询苹果"
End Sub