J'ai une appli qui vérifie les tables attachées d'une base.
Pour cela, je récupère le nom de la base et de la table attachée avecJ'ai besoin de récupérer, à la fois, le nom de la table affiché (.Name) et celui de la table réélle (.SourTableName) car les noms affichés peuvent avoir été modifiés.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim CurTDef as TableDef For Each CurTDef In CurrentDb.TableDefs With CurTDef 'Mémorisation des données de l'attache NomBase = ExtraireNomBase(.Connect) 'Extrait le nom de la base NomTable = .Name NomTableAtt = .SourceTableName End With Next CurTDef
Or les noms de SourceTableName sont tronqués à 32 caractères
Y a t-il un moyen de récupérer le nom complet de la table attaché. :
Partager