Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

lister les références d'une base

3 réponses
Avatar
le Nordiste
Bonjour,

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

Public Sub ListeReferences()
'Lister les r=E9f=E9rences des tables li=E9es dans debug (Ctrl+G)
'accessible par Ctrl+G apr=E9s lancement de la proc=E9dure

Dim accRef As Access.Reference

For Each accRef In Application.References
With accRef
If (.IsBroken =3D 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=E9f=E9rences telles qu'elles apparaissent
dans la fen=EAtre
outils / r=E9f=E9rence

Merci de votre aide et bon week-end

Le Nordiste

3 réponses

Avatar
3stone
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)
Avatar
le Nordiste
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 ?
Avatar
3stone
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)