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

Ben öğleden sonra deneyebilirim.Öncekiyle fark nedir kodlarda.Bu koddada openschmea yazıyor.problrm burdaydı.Siz denediniz mi?

Connection bu eklenmiş gerçi.

(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.

teşekkürler
TABLE_NAME yerine QUERY_NAME gibi değişkenler yazabiliyor muyuz 

(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