iDevlop blog

J'ai déjà traité de la question en utilisant uniquement des fonctions de la feuille de calcul. Mais on peut se faciliter la vie au moyen d'une petite fonction VBA qui retournera le nom de dossier du document actif. Voici cette fonction: Public Function DocPath() As String 'renvoie le chemin du document actif     DocPath = ThisWorkbook.Path End Function

Nouveau rapport dans dbDocu.mdb: liste des requêtes enregistrées. Ce rapport inclut entre autres: liste des tables source liste des champs et expressions en sortie ordre de tri clause(s) WHERE Group By Idéal pour documenter vos requêtes, ou pour en discuter avec un utilisateur. Téléchargement: cliquez  ici Utilisation: comme pour les autres rapports inclus, il suffit d'importer le rapport dans votre MDB et de l'ouvrir.

Edit 31/10/2012: nouvelle version du rapport, incluant les objets cachés, et incluant la table cible pour les requêtes DELETE. Que l'on récupère un base existante, ou que l'on veuille documenter ses propres réalisations, il est souvent utile de pouvoir imprimer une synthèse des objets d'une base données Access. Pour ce faire, voici un rapport qu'il suffit d'importer dans votre base de données et de lancer, et qui affiche la liste de tous les objets de la base courante, avec un certain nombre d'informations supplémentaires: table cible pour les requêtes d'action nombre d'enregistrements pour les tables Access locales ou liées. Ce point est optionnel, via une boîte de dialogue au lancement du rapport. En effet pour les grosses bases ou les réseaux lents, cela peut ralentir l'exécution du rapport. détails des DSN pour les tables liées ODBC Les détails des DSN permettent de vérifier que toutes les tables appartenant au même serveur possèdent bie...

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;