Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Bonjour aussi,
David
Est il possible, sous access 97, d'ajouter une référence par le code ....
Function AjouterRéférence() As Boolean Dim ref As Reference, chFichier As String
On Error GoTo Erreur_AjouterRéférence chFichier = "C:WindowsSystemMaPreferee.dll" ' Crée une référence Set ref = References.AddFromFile(chFichier) AjouterRéférence = True
Sortie_AjouterRéférence: Exit Function
Erreur_AjouterRéférence: MsgBox Err & ": " & Err.Description AjouterRéférence = False Resume Sortie_AjouterRéférence End Function
Cela t'inspire ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Bonjour aussi,
David <sp-informatique@wanadoo.fr>
Est il possible, sous access 97, d'ajouter une référence par le code ....
Function AjouterRéférence() As Boolean
Dim ref As Reference, chFichier As String
On Error GoTo Erreur_AjouterRéférence
chFichier = "C:WindowsSystemMaPreferee.dll"
' Crée une référence
Set ref = References.AddFromFile(chFichier)
AjouterRéférence = True
Sortie_AjouterRéférence:
Exit Function
Erreur_AjouterRéférence:
MsgBox Err & ": " & Err.Description
AjouterRéférence = False
Resume Sortie_AjouterRéférence
End Function
Cela t'inspire ?
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Est il possible, sous access 97, d'ajouter une référence par le code ....
Function AjouterRéférence() As Boolean Dim ref As Reference, chFichier As String
On Error GoTo Erreur_AjouterRéférence chFichier = "C:WindowsSystemMaPreferee.dll" ' Crée une référence Set ref = References.AddFromFile(chFichier) AjouterRéférence = True
Sortie_AjouterRéférence: Exit Function
Erreur_AjouterRéférence: MsgBox Err & ": " & Err.Description AjouterRéférence = False Resume Sortie_AjouterRéférence End Function
Cela t'inspire ?
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
