Hoje em dia, analisei muitos bancos de dados do Access 2003 e 2007 com muitos tabelas vinculadas. Eu precisava identificar o banco de dados de origem para cada tabela vinculada e, portanto, o caminho, as tabelas do sistema e as tabelas de cada banco de dados.
Aqui está um script em vba que realiza este serviço, crie um módulo em um arquivo de acesso e insira as seguintes linhas de código no banco de dados a ser analisado, inserindo a Janela Imediata no ambiente VBA (Ver> Janela Imediata):
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 In db.TableDefs intcontaTabelle = intcontaTabelle + 1 Debug.Print Right ("00000" + CStr (intcontaTabelle), 5) + _ "-" + obj.Nome + "" _; 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
