Accéder au contenu principal

Documenter une base Access (suite)

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.
Libellés :

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

ROW_NUMBER OVER PARTITION en Access

Ceux qui ont l'habitude de travailler avec une "grosse" base données comme SQL Server / Oracle / PostGreSQL, sont parfois frustrés face à certaines lacunes du SQL d'Access.   Prenons par exemple: ROW_NUMBER() OVER PARTITION, dont l'absence rend certaines requêtes très compliquées.   J'ai donc écrit une petite fonction VBA qui peut être appelée depuis un query Access et qui simulera assez bien ce ROW_NUMBER() OVER PARTITION.   Notez que ceci ne fonctionnera pas correctement dans une vue ou un formulaire interactif. Par contre comme source d'un rapport ou d'un export Excel, c'est impeccable.   En pratique il est préférable d'initialiser la fonction avec une chaîne de caractères "improbable" avant de lancer le rapport, comme indiqué dans le code.
Enregistrer un commentaire
Lire la suite

Calculate MAX of a list in VBA

Strangely such a function is not available in VBA. Here is one that works with any number of strings or numbers. Function Largest(ParamArray a() As Variant) As Variant 'returns the largest element of list 'List is supposed to be consistent: all nummbers, dates, strings. 'Nulls are allowed, but not in first position. Eventually provide a first low dummy value 'e.g:   largest(2,6,-9,7,3)         -> 7 '       largest("d", "z", "c", "x") -> "z" 'by Patrick Honorez --- www.idevlop.com     Dim result As Variant     Dim i As Integer          result = a(LBound(a))          For i = LBound(a) + 1 To UBound(a)         If result < Nz(a(i), result) Then             result = a(i)         End If     Next i     Largest = result End Function
Enregistrer un commentaire
Lire la suite