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
Saludos y gracias
1 Respuesta
Respuesta de amallolm
1
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
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
