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