Hallo zusammen,
ich hoffe, hier kann mir jemand helfen. Seit fast zwei Wochen bin ich am suchen und testen und jetzt am verzweifeln.
Ich habe eine DB mit der ich Dokumente verwalten kann. Es werden Verzeichnisse angelegt, in die die gescannten Dokumente abgelegt werden können. Gleichzeitig kann über die DB nach verschiedenen Selektionskriterien gefiltert werden.
In 2017 startete ich zuerst das Projekt und verwendete, um die im Windowsverzeichnis hinterlegten Dateien, zumeist PDF-Dateien zu öffnen.
Hier verwendete ich folgenden Script:
Dim HypLinkVar As String
Dim HypLink1Var As String
HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname .pdf"
If Dir(HypLink1Var) = "" Then
MsgBox "Datei '" & HypLink1Var & "' nicht gefunden"
Else
Application.FollowHyperlink (HypLink1Var), SW_MAXIMIZE
End If
In dieser Datenbank funktioniert dies einwandfrei.
Jetzt in der Neuen überhaupt nicht mehr. Mit Dir und CreateObjekt usw alles versucht, was ich im Netz finden konnte.
Die Meldung kommt immer, dass die Datei nicht gefunden wird. Teste ich dies jedoch alles in VBA im Direktfenster, wird mir der Pfad und die Datei ordnungsgemäß angezeigt.
Habt Ihr eine Idee, was ich falsch mache?
Hallo,
bist du Dir sicher mit der Zeile ?
HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname .pdf"
Erstens ist hinter Me.Dateiname ein Leerzeichen (versehentlich?)
und zweitens muss es lauten:
HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname & ".pdf"
Ja, richtig was Du schreibst. Das ist von mir hier falsch geschrieben. Das Feld "Dateiname" beinhaltet auch die Extension der Datei. Das ist ein Schreibfehler.
HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname
Problem ist desto trotz vorhanden.... :-(
Hi,
ich gehe von aus, dass Code an anderer Dtelle fehlerhaft ist oder fehlerhafte Verweise beeinhaltet.