Sub ListTableOnDB(dbName As String)
Dim db As DAO.Database
Set db = DBEngine(0).OpenDatabase(dbName)
Dim td As DAO.TableDef
For Each td In db.TableDefs
Debug.Print td.Name
Next td
Set td = Nothing
db.Close
Set db = Nothing
End Sub
example:
ListTableOnDB "C:\Documents and Settings\Aksan\Desktop\New Files\db\db2.mdb"
result:
MSysAccessObjects
MSysACEs
MSysObjects
MSysQueries
MSysRelationships
aksan kurdin
ps. sebenarnya tetap 'membuka' tapi dari sisi programming.
2008/5/29 Muntahar <[EMAIL PROTECTED]>:
> hallo teman-temanku yang baik,
> aku ada butuh bantuan nih,
> saya lagi cari skrip yang
> bisa menampilkan daftar table yang ada di file lain , tanpa membukanya,
> ada yang punya code nya atu linknya ?
> makasih sebelumnya ....
>
> --
> ---------------------------------------------
> grapyak-semanak-cluthak
> http://djmumun.wordpress.com
> ---------------------------------------------
>
>
--
Aksan Kurdin
