How to drop a Tools/Reference item with VBA? 1

[steve728]

Will someone please provide me a sample of how to use VBA to add / remove a reference in MS Access 2003.

Thanks in advance,

Steve728

 

[Remou]

Some notes, you will find more in Help.

Sub Rem_Ref()
    References.Remove References("DAO")
End Sub

Sub AddDAO()
    ReferenceFromFile "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"
End Sub

Function ReferenceFromFile(strFileName As String) As Boolean
    Dim ref As Reference

    On Error GoTo Error_ReferenceFromFile
    Set ref = References.AddFromFile(strFileName)
    ReferenceFromFile = True

Exit_ReferenceFromFile:
    Exit Function

Error_ReferenceFromFile:
    MsgBox Err & ": " & Err.Description
    ReferenceFromFile = False
    Resume Exit_ReferenceFromFile
End Function