VBA penceresinde menüde Tools - Database Properties'e tıkla, açılan pencerede, General sekmesinde veritabanı ismi Database ise bu ismi değiştir.

(19/01/2020, 19:53)ozanakkaya yazdı: VBA penceresinde menüde Tools - Database Properties'e tıkla, açılan pencerede, General sekmesinde veritabanı ismi Database ise bu ismi değiştir.

Resim olarak ekleyebilirmisiniz dediklerinizi.
Bulamam sanırım oraları

(19/01/2020, 19:53)ozanakkaya yazdı: VBA penceresinde menüde Tools - Database Properties'e tıkla, açılan pencerede, General sekmesinde veritabanı ismi Database ise bu ismi değiştir.

Dediklerinizi yaptım sonuç olumlu lakin Mys olan gizli tablo adlarıda çıkyor ve çıkmaması gerek.

Alttaki kodAdo schmea ile Tablo adlarını muazzam buluyor .Bazende hata veriyor CurrentProject.FullName bundan dolayı.Yani kendi kendini açamıyor.

Artık Schemea yöntminede razı oldum başka yöntem yoksa.

Sub TableAdlar()



    Dim adoRecSet As New ADODB.Recordset

    Dim connDB As New ADODB.Connection

    

    connDB.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source= " & CurrentProject.FullName

    Set adoRecSet = connDB.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

    

    Do While Not adoRecSet.EOF

        MsgBox adoRecSet.Fields("TABLE_NAME").Value

        adoRecSet.MoveNext

    Loop

    adoRecSet.Close

    

    connDB.Close

    

    Set adoRecSet = Nothing

    Set connDB = Nothing

    

End Sub

Aynı VT için connectiona gerek var mı ki
Sadece recordseti tanımlayıp currentdb.OpenSchema.... şeklinde deneseniz

Sub TableAdlar()



    Dim adoRecSet As New ADODB.Recordset

            Set adoRecSet = currentdb.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

    

    Do While Not adoRecSet.EOF

        MsgBox adoRecSet.Fields("TABLE_NAME").Value

        adoRecSet.MoveNext

    Loop

    adoRecSet.Close

       

    Set adoRecSet = Nothing

End Sub