Hitung Semua Objek di Database Anda

Suatu hari perusahaan kami ditugaskan untuk mengonversi banyak database Access ke beberapa backend SQL Server. Untuk memahami tugas yang terlibat, kami membutuhkan cara untuk menghitung semua tabel, kueri, formulir, dan makro di setiap database.

Saya melakukan pencarian Internet cepat tetapi tidak menyukai potongan kode apa pun, jadi saya membuat program kecil saya sendiri yang akan mencetak statistik ke jendela langsung:
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
Untuk Setiap tdf Di CurrentDb.TableDefs
Jika Tidak Ditinggalkan(tdf.Name, 4) =“MSys” Kemudian
i =i + 1
End If
Next tdf
Debug.Print “Jumlah tabel:” &i

‘Tentukan jumlah kueri
Debug.Print “Jumlah Kueri:” &CurrentDb.QueryDefs.Count

‘Tentukan jumlah formulir
Debug.Print “Jumlah Formulir:” &CurrentProject.AllForms.Count

‘Tentukan jumlah Makro
Debug.Print “Jumlah Makro:” &CurrentProject.AllMacros.Count

‘Tentukan jumlah laporan
Debug.Print “Jumlah Laporan:” &CurrentProject.AllReports.Count

Akhir Sub
Beberapa pengamatan:

• Agar tidak menghitung tabel sistem, saya mengulangi koleksi TableDef dan mengabaikan nama tabel apa pun yang dimulai dengan MSys
• Saya tidak dapat menggunakan kumpulan Formulir untuk menghitung formulir karena anggotanya hanya terdiri dari formulir terbuka.

Selamat menikmati!