Đếm tất cả các đối tượng trong cơ sở dữ liệu của bạn

Một ngày nọ, công ty của chúng tôi được giao nhiệm vụ chuyển đổi rất nhiều cơ sở dữ liệu Access sang nhiều phụ trợ SQL Server. Để hiểu rõ về các tác vụ liên quan, chúng tôi cần một cách để đếm tất cả các bảng, truy vấn, biểu mẫu và macro trong mỗi cơ sở dữ liệu.

Tôi đã tìm kiếm nhanh trên Internet nhưng không thích bất kỳ đoạn mã nào, vì vậy tôi đã tạo chương trình nhỏ của riêng mình để in ra các số liệu thống kê ra cửa sổ ngay lập tức:
Public Sub CountObjects()
Dim qdf As DAO.QueryDef
Dim obj As Object
Dim tdf As DAO.TableDef
Dim i As Long

i =0
Debug.Print CurrentDb.TableDefs.Count
Cho mỗi tdf Trong CurrentDb.TableDefs
If Not Left (tdf.Name, 4) =“MSys” Then
i =i + 1
End If
Tiếp theo tdf
Gỡ lỗi. In “Số bảng:” &i

‘Xác định số lượng truy vấn
Debug.Print“ Number of Queries:”&CurrentDb.QueryDefs.Count

‘Xác định số biểu mẫu
Gỡ lỗi.Print“ Số biểu mẫu:”&CurrentProject.AllForms.Count

‘Xác định số lượng Macro
Debug.Print“ Số lượng Macro:”&CurrentProject.AllMacros.Count

‘Xác định số lượng báo cáo
Debug.Print“ Số lượng báo cáo:”&CurrentProject.AllReports.Count

End Sub
Một vài nhận xét:

• Để không đếm các bảng hệ thống, tôi lặp qua bộ sưu tập TableDef và bỏ qua bất kỳ tên bảng nào bắt đầu bằng MSys
• Tôi không thể sử dụng bộ sưu tập Biểu mẫu để đếm biểu mẫu vì các thành viên của nó chỉ bao gồm các biểu mẫu mở.

Hãy tận hưởng!