Mungkin bisa menggunakan prosedur seperti ini:
Private Sub Command0_Click()
Dim rbs As Recordset
Dim x_m, s_j As Variant
x_m = ""
s_j = 0
Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _
& " FROM MSysObjects WHERE MSysObjects.Type=1 And MSysObjects.Flags=0" _
& " ORDER BY MSysObjects.Name")
If Not rbs.EOF Then
Do While Not rbs.EOF
s_j = s_j + 1
x_m = x_m & vbCrLf & s_j & ". " & rbs.Fields(0)
rbs.MoveNext
Loop
End If
rbs.Close
Set rbs = Nothing
MsgBox "Jumlah tabel " & s_j & ". Terdiri dari: " & x_m
End Sub
Semoga bisa membantu..
Hariyanto (Surabaya)
--- On Thu, 10/6/10, GALIH PERSADHA <[email protected]> wrote:
From: GALIH PERSADHA <[email protected]>
Subject: [belajar-access] menampilkan nama tabel - tabel yang ada di database
To: [email protected]
Date: Thursday, 10 June, 2010, 3:12 PM
bagaimana cara menampilkan nama - nama tabel yang ada dalam seuah database yang
kita pakai di ms access project
mohon solusinya
