Discussion :

[tofflower]

Bonjour,

J'ai une application sous ACCESS qui marche très bien sous Windows 7.

Quand je désir la lire sur un Windows XP on m'indique un problème de bibliothèque.

Je sais que je dois décocher la référence manquante (l'application marche parfaitement), ce que je voudrais c'est faire un code en VBA permettant de décocher la référence manquante, j'ai trouvé plusieurs code comme :

Code :

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

1
2
3
4
5
6
7
8
Private Sub References_RemoveMissing()
Dim theRef As Reference
 
For Each theRef In Application.References
    If theRef.IsBroken Then
    Application.References.Remove theRef
    End If
Next theRef

Je voudrais savoir si le code est correcte et également savoir pourquoi lorsqu'il se lance j'ai un problème de DLL qui apparait ? Ce message n'apparait pas lorsqu'on désactive la référence manquante manuellement.

Cordialement

[tofflower]

Bonjour,

J'ai réussi à trouver la réponse à ma question

Je met le bout de code qui m'a permi de pouvoir retirer la référence manquante entre access sur un windows 7 et access sur un windows XP.

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
Public Function GetReferences()
 
DoCmd.SetWarnings False
Dim ref As Reference
Dim orst As DAO.Recordset
Dim oDb As DAO.Database
DoCmd.RunSQL "DELETE *.* FROM Références;"
   Set orst = CurrentDb.OpenRecordset("Références")
For Each ref In Application.References
orst.AddNew
orst!Nom = ref.Name
orst!Version = ref.Major & "." & ref.Minor
orst!Chemin = ref.FullPath
orst.Update
Next ref
orst.Close
Set orst = Nothing
DoCmd.SetWarnings True
 
 
End Function

On créait une routine qui liste toutes les références utilisées dans la base et qui remplit une table (Références) avec le nom, la version et le chemin complet.

Merci