Hacer una consulta para obtener solo el nombre de las tablas

José: En cualquier Formulario Inserta u Combo, que puedes llamar por ejemplo CboTablasConsultas, sin Origen de Fila. Pones éste códio, que ves, que está en el FormLoad del Formulario.

Private Sub Form_Load()
'Cargo el Cuadro Combinado CboTablasConsultas
Dim Tbl As AccessObject
Dim Qry As AccessObject
Dim dbs As DAO.Database
Set dbs = CurrentDb
Me.CboTablasConsultas.RowSourceType = "Value List"
Me.CboTablasConsultas.RowSource = ""
For Each Tbl In CurrentData.AllTables
        If Not Tbl.Name Like "MSys*" Then Me.CboTablasConsultas.AddItem Tbl.Name
Next Tbl
For Each Qry In CurrentData.AllQueries
    Me.CboTablasConsultas.AddItem Qry.Name
Next Qry
Me.BtnCierraApp.SetFocus
dbs.Close
Set dbs = Nothing
End Sub

Al desplgar el Combo. debes tener todas las Tablas y Consultas de tu BD. Saludos >> Jacinto

Hay varias formas:

1º/ Si en las opciones de access cambias para que te muestre lso objetos ocultos y de sistema, verás que hay una tabla que se llama MSysObjetcs, que entre otras cosas contiene los nombres de las tablas (las tablas son las que figuran con el campo Type=1). Por tanto puedes hacer una consulta a esa tabla, filtrando por tipo (y quitando las de sistema que empiezan por MSys...)

2º/ Hacerlo por código, con uno similar a este:

Dim Tbl As AccessObject
For Each Tbl In CurrentData.AllTables
    Msgbox Tbl.Name
Next Tbl