Tilføj Reff. via kode (VBA)

Her er et eksempel med en reference til Outlook:

Private Sub UpdateOutlookRef()
    On Error Resume Next
    References.Remove References("Outlook")
    References.AddFromFile "C:\Program Files\Microsoft Office\Office\msoutl8.olb"
    On Error Goto 0
End Sub

Bemærk at for at fjerne reference, skal referencens navn bruges, og for tilføje en reference skal hele stien kendes. Hvis du ikke kender disse ting kan du få dem oplyst ved hjælp af følgende funktion

Private Sub ListRefs()
    Dim Ref As Reference
    For Each Ref In Application.References
          Debug.Print Ref.Name
          Debug.Print Ref.FullPath
    Next
End Sub

Hej sjap, tak for indlægget, jeg tester lige og vender tilbage

Okay nu har jeg testet jeg bruger nedenstående kode som kaldes via en Autoexec-makro når db åbnes, og det virker fint.

Function AddLstRef()
On Error Resume Next
References.AddFromFile "C:\Windows\System32\MSCOMCTL.OCX"
On Error GoTo 0
End Function

Det ser ud til at virker efter hensigten, mange tak for hjælpen her er point :o)

mvh Anders.

Du kan også bruge denne (hvis det er outlook 2003). Så behøver du ikke at kende stien:

Application.References.AddFromGuid  {00062FFF-0000-0000-C000-000000000046},5

Hej Thomas, tak for tippet,i første omgang var det MSCOMCTL.OCX der var i søgelyset. det træls når man tager sin db med at rundt at den altid fejler på en manglende reff. når db starter op første gang, så jeg tænker at dette nok kan løse det :o)