Hitung Jumlah Table dan Query Access

Hitung Jumlah Table dan Query Access

 Jika anda memerlukan data jumlah tabel dan query yang terkandung dalam file Access dengan menggunakan kode program anda dapat menggunakan contoh kode program dalam posting saya kali ini.

Pada contoh ini kode program dalam event Command0_Click adalah untuk menampilkan nama-nama tabel dalam file Access dan menghitung jumlah tabel. Sedangkan event Command1_Click adalah untuk menampilkan nama-nama query dan menghitung jumlah query.

Private Sub Command0_Click()

 Dim obj As AccessObject, dbs As Object

 Set dbs = Application.CurrentData

 Dim i As Integer

 i = 0

 For Each obj In dbs.AllTables

     i = i + 1

     MsgBox obj.Name

 Next obj

 MsgBox "Jumlah table:" & i

End Sub

Private Sub Command1_Click()

 Dim obj As AccessObject, dbs As Object

 Set dbs = Application.CurrentData

 Dim i As Integer

 i = 0

 For Each obj In dbs.AllQueries

     i = i + 1

     msgbox obj.Name

 Next obj

 MsgBox " Jumlah query:" & i

End Sub