Obtención de tablas

¿Cómo puedo conseguir que al abrir un formulario me aparezcan en un cuadro combinado o en una lista las tablas contenidas en la base de datos activa?
Saludos y gracias
1

1 Respuesta

42.975 pts.
El siguiente código te dará
Public Sub MyTables()
Dim i As Integer
Dim DB As Database
' Asignem la variable DB a la base de dades actual
Set DB = CurrentDb
For i = 0 To DB.TableDefs.Count - 1
' Descartamos las tablas que empiecen por "MSys" (Sistema)
If Left(DB.TableDefs(i).Name, 4) <> "MSys"
' Muestra en la ventana de 'immediato' el nombre de las tablas
debug.print DB.TableDefs(i).Name
End If
Next
DB.Close
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas