ms-access - 通过 Access VBA 代码保存查询

Question

我需要通过 VBA 代码“物理地”创建 SQL 查询。我知道如何在 VBA 中执行查询，但我需要将其保存在菜单中。如果可以的话，我会张贴照片。我会试着让你想象。

在 MS Access 的主屏幕中，左侧有一个栏。

为了清楚起见，“Consulta”是葡萄牙语中的查询。

如果你不明白我的意思，请原谅我缺乏解释。我很乐意再次解释。

Answer 1

我想你想要:

If Not IsNull(DLookup("Type", "MSYSObjects", "Name='MyNewQuery'")) Then
    MsgBox "An object already exists with this name"
Else
    CurrentDb.CreateQueryDef "MyNewQuery", "SELECT * FROM Table1"
End If

编辑评论

Sub UpdateQuery(QueryName, SQL)
    ''Using a query name and sql string, if the query does not exist, ...
    If IsNull(DLookup("Name", "MsysObjects", "Name='" & QueryName & "'")) Then
        ''create it, ...
        CurrentDb.CreateQueryDef QueryName, SQL
    Else
        ''Other wise, update the sql.
        CurrentDb.QueryDefs(QueryName).SQL = SQL
    End If

End Sub

请注意，删除不存在的查询会导致错误。

 DoCmd.DeleteObject acQuery, "NewQuery"