lister les références d'une base

Le
le Nordiste
Bonjour,

voici mon code ( en fait je ne sais plus à qui l'attribuer) :

Public Sub ListeReferences()
'Lister les références des tables liées dans debug (Ctrl+G)
'accessible par Ctrl+G aprés lancement de la procédure

Dim accRef As Access.Reference

For Each accRef In Application.References
With accRef
If (.IsBroken = False) Then
Debug.Print .Name, .Guid, .FullPath
Else
Debug.Print .Guid
End If
End With
Next accRef
End Sub

J'aimerais qu'il me donne les références telles qu'elles apparaissent
dans la fenêtre
outils / référence

Merci de votre aide et bon week-end

Le Nordiste
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #20602661
Salut,

le Nordiste wrote:
voici mon code ( en fait je ne sais plus à qui l'attribuer) :




Peut être ici ;-)
http://www.3stone.be/access/articles.php?lng=fr&pg6



Public Sub ListeReferences()
'Lister les références des tables liées dans debug (Ctrl+G)
'accessible par Ctrl+G aprés lancement de la procédure


[...]

J'aimerais qu'il me donne les références telles qu'elles apparaissent
dans la fenêtre outils / référence



Oui... mais...
tu connais la poub****, heu... je veux dire la BDR de Windows ?

En fait, avec le code indiqué "ListeReferences()" tu obtiens
le nom, le guid et le chemin complet.

Par exemple, pour le VBA tu obtiens: Nom, Guid, Chemin
VBA
{000204EF-0000-0000-C000-000000000046}
C:Program FilesFichiers communsMicrosoft SharedVBAVBA6VBE6.DLL

L'information recherchée s'obtient via le GUID !
(Globally Unique Identifier)

Pour vérifier, ouvre l'éditeur de la base de registre...
=> Démarrer, Exécuter: Regedit

Rappel: toutes les clés sont rangées aphabétiquement!

- Déplie la branche "HKEY_CLASSES_ROOT"
- recherche la clé "TypeLib"
- puis la sous-clé représentant le GUID (l'exemple ci-dessus)
- tu obtiens la liste des numéros de version
- en sélectionnant un numéro de version, tu verras enfin apparaître
dans la fenêtre de droite la valeur recherchée :
=> "Visual Basic For Applications"

On pourrait maintenant penser à écrire une fonction qui récolterait
les GUID et irait lire les infos dans la BDR :-/

Heureusement, pour cela, il existe une... ben oui... une library ;-)

Dès que je l'aurait mis en place, tu pourras trouver le code ici:
http://www.3stone.be/access/articles.php?lng=fr&pg88

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
le Nordiste
Le #20619471
Bonjour Pierre,


Dès que je l'aurait mis en place, tu pourras trouver le code ici:http:/ /www.3stone.be/access/articles.php?lng=fr&pg88



Claire et nette comme explication.
Pb ma machine ne dispose pas du fameux TLBIN.dll, curieux ?
3stone
Le #20621861
Salut,

le Nordiste wrote:
Bonjour Pierre,


Dès que je l'aurait mis en place, tu pourras trouver le code
ici:http://www.3stone.be/access/articles.php?lng=fr&pg88



Claire et nette comme explication.
Pb ma machine ne dispose pas du fameux TLBIN.dll, curieux ?




M***e !!!

Je viens de voir que cette dll est fournie par VB6 :-/
http://support.microsoft.com/kb/224331/fr

Mais, on la "trouve" très facilement...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme