Ces jours-ci, j'ai analysé de nombreuses bases de données Access 2003 et 2007 avec de nombreuses tables liées. J'avais besoin d'identifier la base de données source pour chaque table liée et donc le chemin, les tables système et les tables de chaque base de données.
Voici un script en vba qui effectue ce service, créez un module dans un fichier d'accès et insérez les lignes de code suivantes dans la base de données à analyser, en insérant la fenêtre d'exécution dans l'environnement VBA (Affichage > Fenêtre d'exécution) :
Sub Estrai_Tabelle() Dim db As DAO.Database Dim obj As DAO.TableDef Dim intContaTabella As Integer Set db = CurrentDb() intcontaTabelle = 0 Pour chaque obj In db.TableDefs intcontaTabelle = intcontaTabelle + 1 Debug.Print Right("00000" CStr(intcontaTabelle), 5) + _ " - " + nom.obj + " " _ ; String(CStr(100 - Len(Trim(obj.Name))), "-") If Left(obj.Name, 4) = "MSys" Then Debug.Print "Tabella di sistema" Sinon 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
