Cómo obtener acceso VBA consulta a la lista de las tablas en una base de datos

Microsoft Access es un sistema de gestión de base de datos para las personas para crear sus propias bases de datos , informes y formularios de usuario . Access contiene todos los elementos básicos para el desarrollo de pequeñas aplicaciones . Puede crear tablas de datos , procedimientos almacenados, funciones definidas por el usuario y macros , además de informes y formularios . Todos estos componentes tienen sus propios punteros o definiciones de registros almacenados en una tabla de sistema oculto . Acceso mantiene un registro de todas las mesas , el informe , la forma, etc se crea y almacena información, como cuando se crea o se actualiza y los indicadores del sistema. Instrucciones
Obtener una Lista de tablas
1

crear una consulta para ejecutar el comando SQL siguiente . Esta consulta recupera una lista de todas las tablas de la base de datos de Access actual . La cláusula where utiliza el número 1 para indicar que sólo queremos las tablas devueltas.

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

DE MSysObjects

DONDE MSysObjects.Type = 1
2

Devuelve una lista de sólo las tablas no son del sistema en la base de datos con el ejemplo dado :

SELECCIONAR MSysObjects . Nombre, MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

DE MSysObjects

DONDE MSysObjects.Type = 1 Y MSysObjects.Name Not Like " MSys * "

3

Devuelve una lista de sólo las tablas no están ocultos en la base de datos mediante la ejecución de la consulta a

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects . Tipo , MSysObjects.Flags

dE MSysObjects

DONDE MSysObjects.Type = 1 Y MSysObjects.Flags < > 8
4

Ordenar la lista de no - , tablas no ocultos del sistema utilizando el código SQL a

SELECT MSysObjects.Name , MSysObjects.DateCreate , MSysObjects.DateUpdate , MSysObjects.Type , MSysObjects.Flags

DE MSysObjects
< p> DONDE MSysObjects.Type = 1 Y MSysObjects.Flags < > 8 Y MSysObjects.Name Not Like " MSys * "

ORDER BY MSysObjects.Name
utilizar la lista de tablas en VBA
5

carga tu lista de tablas en un objeto de conjunto de registros utilizando el código VBA se muestra a continuación :

rsMyTables dévil como DAO.Recordset

set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery ")
6

Recorrer cada registro devuelto en la consulta.

rsMyTables dévil como DAO.Recordset

Set rsMyTables = CurrentDb.OpenRecordset ( " MyQuery " )

¿ Mientras código No rsMyTables.EOF

' para manipular de datos