+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Tablo Adlarını Bulma (/konu-access-tablo-adlarini-bulma.html)
Cvp: Access Tablo Adlarını Bulma - feraz - 19/01/2020
Cvp: Access Tablo Adlarını Bulma - berduş - 20/01/2020
Aşağıdaki kodu dener mişiniz?
Dim adoRecSet As New ADODB.Recordset
Set adoRecSet = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not adoRecSet.EOF
Debug.Print adoRecSet.Fields("TABLE_NAME").Value
adoRecSet.MoveNext
Loop
adoRecSet.Close
Set adoRecSet = NothingCvp: Access Tablo Adlarını Bulma - feraz - 20/01/2020
Ben öğleden sonra deneyebilirim.Öncekiyle fark nedir kodlarda.Bu koddada openschmea yazıyor.problrm burdaydı.Siz denediniz mi?
Connection bu eklenmiş gerçi.
Cvp: Access Tablo Adlarını Bulma - feraz - 20/01/2020
(20/01/2020, 00:58)berduş yazdı: Aşağıdaki kodu dener mişiniz?
Dim adoRecSet As New ADODB.Recordset
Set adoRecSet = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do While Not adoRecSet.EOF
Debug.Print adoRecSet.Fields("TABLE_NAME").Value
adoRecSet.MoveNext
Loop
adoRecSet.Close
Set adoRecSet = Nothing
Bu kod çalıştı elinize sağlık.
Cvp: Access Tablo Adlarını Bulma - accessman - 20/01/2020
teşekkürler
TABLE_NAME yerine QUERY_NAME gibi değişkenler yazabiliyor muyuz
Cvp: Access Tablo Adlarını Bulma - feraz - 20/01/2020
(20/01/2020, 17:46)accessman yazdı: teşekkürler
TABLE_NAME yerine QUERY_NAME gibi değişkenler yazabiliyor muyuz
OpenSchema(adSchemaTables burdaki adSchemaTables alttaki gibi noktayabasınca açılır kutuda çıkmadığına göre olmaz sanki bence bilemiyorum
adSchemaFORMS
adSchemaQUERYS