Search This Blog

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

No comments: