Access - ver todas las tablas - y sus vinculaciones , por si os sirve

'como recorrer la base de datos para localizar el nombre de todas las tablas


''ambien podemos modificar la conexión, es decir cambiar la vinculacion

'en una etiqueta, en este caso llamada etiqueta30 al hacer clic



Private Sub Etiqueta30_Click()
Dim base As Database
Dim Tabla As TableDef


Set base = CurrentDb()

For Each Tabla In base.TableDefs
MsgBox Tabla.Name & " --- " & Tabla.Connect

Next Tabla






End Sub