Visual Basic - References

Kan du vise koden ?

Jeg fandt lige denne her...

Den skriver alle referencer i dit kodemodul til debug boxen, og angiver om de er intakte eller ej.

--------------------------------
Sub RemoveAGivenReference()
Dim ref As Object
Dim colRef As Object

Set colRef = ThisWorkbook.VBProject.References
'gives the number of set references
Debug.Print colRef.Count
'gives a list of all references, as well as the path of the associated file
'checks the link(IsBroken=False)
For Each ref In colRef
    Debug.Print ref.Name & vbTab & ref.isbroken & vbTab & ref.fullpath
Next ref
'traps the error in case the link has already been removed, and
'remove the link to fm20.dll
On Error Resume Next
'colRef.Remove "c:\winnt\system32\fm20.dll"

End Sub
--------------------

Hvis du vil fjerne referencen til Forms 2.0 kan du fjerne kommentaren fra linien.
'colRef.Remove "c:\winnt\system32\fm20.dll"

Stien skal måske rettes til.

Er du sikker på du ikke bruger referencen? Så vidt jeg lige ved, så er det også i denne reference du finder knapper, combobokse, textbokse osv. Så måske er der en god grund til at referencen ikke kan slettes. Det er ikke noget jeg ved, men blot et gæt fra min side. :-)

Prøv at se på nedenstående

http://support.microsoft.com/default.aspx?scid=kb;en-us;155207

Ok, tak for hjælpen, referencen skulle selvfølgelig anvendes via min knapper, men det var filen : fm20.dll der ikke virkede og er nu blevet erstattet !!!