CULTURA

Encuentre la ruta de las tablas vinculadas en Access con VBA

En 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.

acceso Microsoft

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
For Each obj In 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" Then
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

Si quieres seguir las publicaciones de www.informarea.it puedes suscribirte a su RSS Feed.

Publicaciones relacionadas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Botón volver arriba
Cerrar