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:
Post a Comment