vba - 如果查询已存在则删除整个查询

Question

我有一个表单，它创建两个查询，将它们导出到 Excel，然后删除它们。但是，当我在导出时遇到错误时，它不会被删除。我将如何检查它们是否已经存在？如果存在，请将其删除，以便我可以使用新的/更新的数据重新创建它们？

到目前为止的代码:

Dim qdfNewQry As Object
Dim qdfNewWS As Object

'//----- qdfNewQry
If Not IsNull(DLookup("myExportQry", "MSysObjects", "Name='myExportQry'")) Then
    CurrentDb.QueryDefs.Delete qdfNewQry.Name
    Set qdfNewQry = CurrentDb.CreateQueryDef("myExportQry", exportQry)
Else
    Set qdfNewQry = CurrentDb.CreateQueryDef("myExportQry", exportQry)
End If

'//----- qdfNewWS
If Not IsNull(DLookup("myExportWS", "MSysObjects", "Name='myExportWS'")) Then
    CurrentDb.QueryDefs.Delete qdfNewWS.Name
    Set qdfNewWS = CurrentDb.CreateQueryDef("myExportWS", exportWS)
Else
    Set qdfNewWS = CurrentDb.CreateQueryDef("myExportWS", exportWS)
End If

我在 If Not IsNull(DLookup("myExportQry", "MSysObjects", "Name=' 行上输入的作为查询参数的表达式产生了此错误:'myExportQry'"错误myExportQry'")) 然后

看来我很迷茫。任何帮助/建议/更正将不胜感激!

编辑1:

为了澄清起见，我想删除整个查询。也欢迎其他替代解决方案!

Answer 1

我不会为此使用 Dlookup 函数!

Private Sub Command1_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb()
For Each qdf In db.QueryDefs
  Debug.Print qdf.Name
       If qdf.Name = "strQry" Then
          CurrentDb.QueryDefs.Delete "strQry"
          CurrentDb.QueryDefs.Refresh
          Exit For
       End If
Next qdf
Set qdf = Nothing
Set db = Nothing
End Sub