PDA

Vollständige Version anzeigen : DLL-Verweise


JatJat
02.08.2001, 14:23
Hallo allerseits,

um einen Verweis auf irgendeine DLL (Access Object Library 9.0) beispielsweise herzustellen, muß ich im VB Fenster den Verweis manuell über den Menübefehl Extras/Verweise einstellen.

Gibt es hierfür einen VB Befehl ?

marmic55
02.08.2001, 14:36
Hallo,

hier ein Beispiel, dass ich einer Seite von Microsoft entnommen habe (Thema Verweise/Veriuosnkonflikt - A 97 !! - ):

Sub FixUpRefs()
Dim r As Reference, r1 As Reference
Dim S As String

' Sucht die erste Referenz in der Datenbank, die weder
' Access noch Visual Basic for Aplications ist.
For Each r In Application.References
If r.NAME <> "Access" And r.NAME <> "VBA" Then
Set r1 = r
Exit For
End If
Next
S = r1.FullPath

' Entfernt den Verweis und setzt ihn wieder ein.
References.Remove r1
References.AddFromFile S

' Ruft einen versteckten SysCmd-Befehl auf, um alle Module der
' Datenbank zu kompilieren bzw. zu speichern.
Call SysCmd(504, 16483)

End Sub

Es ist natürlich auch möglich, den Verweis, also die Datei, beispielsweise über den FileDialog u. a. suchen zu lassen.

Gruß

Michael