获取Access数据库的全部对象

作者:枕善居主 / 查看次数: 6379 / 评论: 4

'一个函数，获取Access数据库的全部对象。

Public Function GetAllinDB()
    Dim i As Integer, tdf As TableDef, qdf As QueryDef
    Debug.Print "--------------------所有表-------------"

    For i = 0 To CurrentDb.TableDefs.Count - 1
        Debug.Print CurrentDb.TableDefs(i).Name
    Next i
    Debug.Print "--------------------所有查询-------------"

    For i = 0 To CurrentDb.QueryDefs.Count - 1
        Debug.Print CurrentDb.QueryDefs(i).Name
    Next i
    Debug.Print "--------------------所有窗口-------------"

    For i = 0 To CurrentProject.AllForms.Count - 1
        Debug.Print CurrentProject.AllForms.Item(i).Name
    Next i
    Debug.Print "--------------------所有模块-------------"

    For i = 0 To CurrentProject.AllModules.Count - 1
        Debug.Print CurrentProject.AllModules.Item(i).Name
    Next i
    Debug.Print "--------------------所有报表-------------"

    For i = 0 To CurrentProject.AllReports.Count - 1
        Debug.Print CurrentProject.AllReports.Item(i).Name
    Next i
End Function