title image


Smiley Re: verweise in MDE auf anderem Rechner gehen verloren
Public Function VerweisSetzen(refFile As String) As String

'Verweis auf die übergebene Bibliothek setzen

'gibt True zurück wenn der Verweis erfolgreich gesetzt

'wurde oder bereits gesetzt war (Error-Nr. 32813



On Error GoTo VerweisSetzenErr



VerweisSetzen = False

Application.References.AddFromFile (refFile)

VerweisSetzen = "Verweis gesetzt"



VerweisSetzenExit:

Exit Function



VerweisSetzenErr:

If Err.Number = 32813 Then

VerweisSetzen = "Verweis gesetzt"

Else

VerweisSetzen = "Verweis konnte nicht gesetzt werden!"

End If



Resume VerweisSetzenExit



End Function



bzw. hier schauen: FAQ7.1
Gruß

Wolli     danke für eure Fragen, so weiß ich, daß ich nichts weiß...

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: