クエリ存在確認関数

qdf = db.CreateQueryDef("Sample", "SELECT * FROM Wk WHERE (Wk.Seq=" & lngPiyo & ")")

Public Function ExistQ(strQuery As String) As Boolean
    Dim defQ As DAO.QueryDef
    
    ExistQ = False
    
    For Each defQ In CurrentDb.QueryDefs
        If defQ.Name = strQuery Then
            ExistQ = True
            Exit For
        End If
    Next defQ
    
    Set defQ = Nothing
End Function