技术要点:遍历数据库所有的表及查询,将表及查询以一变量存之,在立即窗口中输出.

据此可以自定义某表或某查询是否存在的函数.

Public Sub AllTables()

    Dim db As Database

    Dim i As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)

     For i = 0 To db.TableDefs.Count - 1

        a = db.TableDefs(i).Name

        Debug.Print a

    Next

    Set db = Nothing

End Sub

 

Public Sub AllQuery()

    Dim db As Database

    Dim i As Integer

    Set db = DBEngine.Workspaces(0).Databases(0)

    For i = 0 To db.QueryDefs.Count - 1

        a = db.QueryDefs(i).Name

        Debug.Print a

    Next

    Set db = Nothing

End Sub