获取查询的类型

andymark

以下代码示例确定的查询类型，需要一个引用以 Microsoft DAO 3.6 对象库

Sub printQueries()

    Dim dbs As Database, qdf As QueryDef
   
    ' Return the reference to the current database.
    Set dbs = CurrentDb
    ' Update the QueryDefs collection.
    dbs.QueryDefs.Refresh
    For Each qdf In dbs.QueryDefs
        If Left(qdf.Name, 1) <> "~" Then
            Debug.Print qdf.Name & ": "
            
            Select Case qdf.Type   ' Evaluate the type of query.
                Case 0    ' 0 = Select query.
                    Debug.Print "     Select query"
                Case 16   ' 16 = Crosstab query
                    Debug.Print "     Crosstab query"
                Case 32   ' 32 = Delete query.
                    Debug.Print "     Delete query"
                Case 64   ' 64 = Append query
                    Debug.Print "     Append query"
                Case 128  ' 128 = Union query
                    Debug.Print "     Union query"
                Case Else    ' Other values
                    Debug.Print "     Other type of query: Type is: " & qdf.Type
                    
End Select
'            Debug.Print qdf.Type
        End If
                  
            Next qdf
    Set dbs = Nothing

End Sub

ly_19811105

看不懂，但要顶

snowflying163

我也不懂,看起来真的很深奥呢,努力学习!

cenzhuohua

很深奥的东西

chaojianan

谢谢，慢慢消化。

XHK

不明白