Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Using the OpenSchema Method to List Database Tables

Sub ListTbls2()    Dim rst As ADODB.Recordset    Set rst = CurrentProject.Connection.OpenSchema(adSchemaTables)    Do Until rst.EOF       Debug.Print rst.Fields("TABLE_TYPE") & " ->" _           & rst.Fields("TABLE_NAME")       rst.MoveNext    Loop End Sub