Access Librarys einbinden

[redline]

Hallo Zusammen,

ich habe folgendes Problem, wo ich leider mit googln nicht weiter komme und nicht gerade ein Profi bin.

Ich muss für einen Kunden verschiedene Librarys unter Extras --> Verweise einbinden. Habe einige auch schon gefunden und einbinden können, allerdings fehlt mir die folgende noch:

Microsoft ActiveX Data Objects Recordset 2.7 Library

Ich hoffe mir kann hier jemand von euch weiterhelfen und mir sagen, wie ich die einbinden kann.

Vielen Dank schon einmal für eure Hilfe.

Viele Grüße

Florian

[IceNight]

einfach die Datei die du Einbinden magst ungefähr so automatisch einbinden lassen:

1. Modul erstellen mit folgenden Code, natürlich für deine Zwecke abgewandelt:

Function Autostart()

Dim ref As Access.Reference

Dim strDateiPfad(2) As String 'gilt für 2 Verweise (klar!)

strDateiPfad(1) = "C:\Programme\Gemeinsame Dateien\System\ADO\msado25.tlb"

strDateiPfad(2) = "C:\Progra~1\Gemein~1\Micros~1\dao\dao360.dll"

On Error GoTo fehler

'Hier werden die Verweise zugewiesen.

'Falls ein Verweis schon existiert, wird ein Fehler 32813 ausgeworfen,

'der in der Fehlerbehandlung abgefangen wird.

For i = 1 To 2

Application.References.AddFromFile strDateiPfad(i)

Next i

Exit Function

fehler:

If Err.Number = 32813 Then Resume Next

End Function

2. Schritt

Makro mit dem Namen autoexec erstellen und Autostart() ausführen lassen, dann wird das Modul, wenn es nicht eingebunden sein sollte, automatisch auf dem Rechner eingebunden.

Hinweis:

Der Pfad zu deiner ActiveX Data Object Libary wäre c:\programme\gemeinsame dateien\system\ado\msado27.tlb

Alles klar :confused: :confused:

Bearbeitet 23. Oktober 2008 von IceNight