Hallo VBA/Community,
hab das Problem eigentlich geloest, wollte den Verweis aber nicht ueber addFromFile , sondern ueber die Methode addFromGuid setzen, weiss da nicht genau was fuer paraeter ich dem ding uebergeben muss. also will den adobd 2.5 verweis setzen....
Function ueberpruefeVerweis() As Boolean
Dim strMSG As String
Dim intRef As Integer
Dim verweißgesetzt As Boolean
verweißgesetzt = False
With VBE.ActiveVBProject.References
For intRef = 1 To .Count
If InStr(.Item(intRef).Name, "ADODB") Then
verweißgesetzt = True
End If
Next intRef
End With
If verweißgesetzt = False Then
VBE.ActiveVBProject.References.AddFromFile ("C:\Programme\Gemeinsame Dateien\System\ado\msado25.tlb")
verweißgesetzt = True
End If
ueberpruefeVerweis = verweißgesetzt
End Function |