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

   
Vista:

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

Publicado por jose (741 intervenciones) el 05/10/2011 10:23:38
'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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder