Hyperlink gültig?

Sprache / Programm: Access ab Version 97

Beschreibung

Die Funktion prüft, ob die in einem Text- oder Hyperlink-Feld gespeicherte Adresse lokal vorhanden ist und gibt einen Wahrheitswert zurück.

Auf diese Art kann z.B. eine Abfrage erstellt werden, die eine Liste aller Datensätze ausgibt, deren Adressen lokal nicht (mehr) existieren

VBA-Quelltext

Public Function DateiVorhanden(Pfad)
If IsNull(Pfad) Then Exit Function
Pfad = CStr(Pfad)
If Left(Pfad, 1) = "#" Then Pfad = Mid(Pfad, 2, Len(Pfad) - 2)
DateiVorhanden = (Dir$(Pfad) <> vbNullString)
End Function

Argumente der Funktion/Prozedur

Pfad: Adresse als Text oder Hyperlink