Dateien suchen

[Ron]

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?

[derArb]

Hallo,
bist du Dir sicher mit der Zeile ?

Code [Auswählen] Erweitern

HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname .pdf"
Erstens ist hinter Me.Dateiname ein Leerzeichen (versehentlich?)
und zweitens muss es lauten:

Code [Auswählen] Erweitern

HypLink1Var = "G:\Belegsammlung der PDF Dateien\" & Me!Mandant & "\" & Me!Dateiname & ".pdf"

[Ron]

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.... :-(

[Lachtaube]

Hi,

ich gehe von aus, dass Code an anderer Dtelle fehlerhaft ist oder fehlerhafte Verweise beeinhaltet.