[ΤΙΜΟΣ]

Καλησπέρα σε όλους,
Ζητώ την βοήθεια σας για το παρακάτω ζήτημα :
Στους σχετικούς κώδικες παρακάτω (τους εντόπισα διαβάζοντας το θέμα που άνοιξε ο dimitrisp " Η δυνατότητα "Συνημμένο" στην Access" προσπαθώ να τους προσαρμόσω να ανοίγει αρχείο pdf από συγκεκριμένο φάκελο αλλά με την δυνατότητα η βάση ανοίγοντας την σε άλλο υπολογιστή,έχοντας μεταφέρει και τον φάκελο μαζί, να μπορεί να εκτελεστεί η συγκεκριμένη εντολή.
Έτσι όπως είναι γραμμένη αντικατέστησα το "\Office Files\Pdfiles2013\" με "\ΑΠΟΘΗΚΗ\ΑΝΑΛΩΣΙΜΑ\" , όπου ΑΝΑΛΩΣΙΜΑ είναι ο φάκελος από τον οποίο θέλω να εμφανίσω το pdf, αλλά δεν δουλεύει εμφανίζοντας το μήνυμα " ο φάκελος δεν μπορεί να βρεθεί ". Να σημειώσω πως βάζοντας την διαδρομή ολόκληρη \users\ κτλ. δουλεύει.

Κώδικας:

Option Compare Database
Option Explicit

Private Const SW_SHOWNORMAL = 1

Private Declare Function ShellExecute _
Lib "shell32.dll" Alias _
"ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Εντολή152_Click()
Dim strFile As String
If Not IsNull(Me.Protokollo) Then
strFile = "C:\Office Files\Pdfiles2013\" & Me.Protokollo & ".pdf"
If Dir(strFile, vbDirectory) <> vbNullString Then
ShellExecute 0, "open", strFile, "", "C:\", SW_SHOWNORMAL
Else
MsgBox "File not Found!"
End If
Else
MsgBox "Το πεδίο είναι κενό"
End If
End Sub

Ευχαριστώ εκ των προτέρων
Τίμος
& καλή χρονιά σε όλους με υγεία