Estos días se me ocurrió analizar muchas bases de datos de Access 2003 y 2007 con muchas tablas vinculadas. Necesitaba identificar la base de datos de origen para cada tabla vinculada y, por lo tanto, la ruta, las tablas del sistema y las tablas de cada base de datos.
Aquí hay un script en vba que realiza este servicio, crea un módulo en un archivo de acceso e inserta las siguientes líneas de código en la base de datos a analizar, insertando la Ventana Inmediata en el entorno VBA (Ver> Ventana Inmediata):
Sub Estrai_Tabelle () Dim db As DAO.Database Dim obj As DAO.TableDef Dim intContaTabella As Integer Set db = CurrentDb () intcontaTabelle = 0 Para cada obj En db.TableDefs intcontaTabelle = intcontaTabelle + 1 Debug.Print + Right ("00000 CStr (intcontaTabelle), 5) + _ "-" + obj.Name + "" _; String (CStr (100 - Len (Trim (obj.Name))), "-") If Left (obj.Name, 4) = "MSys" Entonces Debug.Print "Tabella di sistema" Else Debug.Print "Tabella collegata da elaborare "Debug.Print" stringa connessione = "+ obj.Connect; "" End If 'crea una riga vuota per dare più spazio Debug.Print Next obj Set obj = Nothing Set db = Nothing End Sub
