FredixBlog


Just my log about anything I could find enjoyable.



AddReference()

author Posted by: fredometro on date Jan 1st, 2004 | filed Filed under: MS-Access

This function creates a reference to the specific library.
Function AddReference(chNomFichier As String) As Boolean
Dim ref As Reference

     On Error GoTo Erreur_AddReference
     Set ref = References.AddFromFile(chNomFichier)
     AddReference = True

    Sortie_AddReference:
     Exit Function

    Erreur_AddReference:
     MsgBox Err & “: ” & Err.Description
     AddReference = False
     Resume Sortie_AddReference
End Function

tags