Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai besoin de la (très belle) librairie d'arkham46 pour accéder à TGL+.
Ici le lien :
https://arkham46.developpez.com/articles/access/libtgl/
J'ai donc mis la BD dans le répertoire de l'appli.

Mon problème est que je dois ajouter une référence
et l'emplacement pour mon développement n'est pas le même que celui de développement que mon client
qui lui même à 3 emplacements de production sur des machines différentes.
Bref j'ai 4 répertoires possibles pour la librairie.

J'ai donc écrit le code suivant qui marche très bien si :

• La librairie est là où la référence l'attend.
• La référence n'est pas encore créée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Sub AjouterReferenceLibTGL()
    'Ajoute la référence à la librarie de gestion des images
    If Not MODE_DEBUG Then
        On Error GoTo Err_AjouterReference
    End If
 
    Dim estTrouve As Boolean
    Dim infoFichier As New CInfoFichier
    infoFichier.SupportRepertoire = CurrentProject.Path
    infoFichier.NomExtension = "LibTGLplus.mdb"
 
    Dim r As Reference: For Each r In References
        Debug.Print r.Name
 
        If r.Name = "LibTGL" Then
 
                estTrouve = True
 
                If Not r.IsBroken Then
                        Debug.Print , r.FullPath
                    Else
 
                        If Dir(infoFichier.SupportRepertoireNomFichierExtension) <> "" Then
                                Call References.Remove(r) 'Supprime la référence
                                References.AddFromFile (infoFichier.SupportRepertoireNomFichierExtension)
                            Else
                                Call Err.Raise(5, , Error$(5) & " - Librairie [" & infoFichier.SupportRepertoireNomFichierExtension & "] manquante.")
                        End If
                End If
 
                Exit For
 
        End If
 
    Next r
 
    If Not estTrouve Then
 
        If Dir(infoFichier.SupportRepertoireNomFichierExtension) <> "" Then
                References.AddFromFile (infoFichier.SupportRepertoireNomFichierExtension)
            Else
                Call Err.Raise(5, , Error$(5) & " - Librairie [" & infoFichier.SupportRepertoireNomFichierExtension & "] manquante.")
        End If
 
    End If
 
Exit_AjouterReference:
    Exit Sub
 
Err_AjouterReference:
    Select Case Err.Number
        Case Else
            Call AfficherMessErrStandard(Err)
    End Select
 
    Resume Exit_AjouterReference
End Sub

MAIS Access ne l'exécute même pas si la référence est brisée !

J'aimerai vraiment que la reconfiguration se fasse automatiquement mais je ne vois pas de moyen d'y parvenir.

Quelqu'un aurait-il une idée ?

Peut-être un CreateObject mais quelle est la syntaxe pour une BD ?

A+

[Arkham46]

Salut,

Pb récurrent des références...

Quand tu parles d'emplacements differents, tu veux dire que ce n'est même pas le même dossier relatif à l'appli ?

Sinon, tu peux te faciliter la tâche de déploiement en incluant les éléments de la librairie dans ton appli.
Pas forcément besoin de tous les elements (genre si tu n'utilises pas CtrlGrid tu peux enlever 2 ou 3 modules), je peux te guider si besoin.

Pour la prochaine version, je vais documenter tout ça.

[marot_r]

Bonjour.

Quand tu parles d'emplacements differents, tu veux dire que ce n'est même pas le même dossier relatif à l'appli ?

Si c'est dans le même dossier que l'application mais l'application n'est pas installée dans le même dossier sur toutes les machines.

Pour le moment je vais voir avec mon client ce que cela représente comme travail. Il ne déplace pas ses applis tous les matins.

J'aimerai mieux ne pas charcuter ta librairie. C'est toujours délicat et quand on change de version on est obligé de tout refaire.

A+

[Arkham46]

Es tu sûr davoir besoin de ce code ?

Il me semble bien que si le chemin relatif d'une référence est identique, on n'a pas à refaire la référence.

[marot_r]

Je vais faire un test pour valider ton idée.

A+

[marot_r]

Yeah MERCI !!! Ça marche !!!

Je viens de faire le test et cela marche.
La référence a suivi le déplacement de mon appli dans un autre répertoire.

A+

[Arkham46]

Je me disais bien, c'était facile chez moi.

Ça aussi je dois ajouter à la doc.