iDevlop blog

Il peut arriver, lorsque vous créez une application Access "splittée", d'annoter les tables dans le back-end avant de les lier dans l'application à proprement parler. Mais une fois les tables liées, les descriptions sont restées de l'autre côté ! Voici un script à faire tourner pour les récupérer. Sub getBackEndDescriptions() 'retrieve table descriptions from Back End for linked tables 'and assigns them to local (Front End) links 'by Patrick Honorez - www.idevlop.com Dim td As TableDef, db2 As Database Dim strDesc As String On Error Resume Next For Each td In CurrentDb.TableDefs If Left(td.Connect, 6) = ";DATAB" Then 'look for ";DATABASE" Set db2 = OpenDatabase(Mid(td.Connect, 11), , True ) strDesc = "" strDesc = db2.TableDefs(td.SourceTableName).Properties( "Description" ) If Len(strDesc) > 0 Then ...

Je cherchais récemment à nettoyer une base de données de ses tables inutilisées, et je suis tombé sur cette petite  requête géniale, qui permet d'afficher les dépendences d'une table: SELECT MSysObjects.Name, MSysQueries.Name1 FROM MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id GROUP BY MSysObjects.Name, MSysQueries.Name1 HAVING (((MSysQueries.Name1)=[ Search text:])) ORDER BY MSysObjects.Name;