title image


Smiley Re: Diese beknackten Verweise...
Function ReferenzKontrolle(ByVal strRef As String, _

Optional bMeldung As Boolean = True) As Boolean



Dim objRef As Reference



On Error Resume Next

ReferenzKontrolle = False



Set objRef = References(strRef)



If err.Number = 0 Then

' Objekt wurde erstellt

If Not objRef.IsBroken Then

If err.Number = 0 Then

' Referenz in Ordnung

ReferenzKontrolle = True

Exit Function

End If

End If

End If



If bMeldung Then

MsgBox "Verbindung zur Bibliothek " & strRef & " abgebrochen!"

End If

End Function





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: