[ Συναρτήσεις ] Άνοιγμα αρχείων pdf στον "C:\" .

[dimitrisp]

Καλημέρα!

Ο Τάσος Φιλοξενιδης ανέβασε προσφάτως ένα χρησιμότατο και συνάμα εξαιρετικά λειτουργικό παραδειγματικό αρχείο:
http://www.ms-office.gr/forum/access...n-pelaton.html.
Γιά το αρχείο που ανέβασα, θα ήθελα τη βοήθειά σας στο εξής:
Ας υποθέσουμε ότι,
1) Στη φόρμα [frmMain] επιλέγουμε το κουμπί [Kεντρικός φάκελος...]
και δημιουργούμε στον C:\ το φάκελο [FilesΧ]. Αυτόματα δημιουργείται και υποφάκελος με το όνομα του [AFM].
2) Αποθηκεύουμε στο φάκελο [Orders] όλα τα αρχεία μας (pdf) με βάση το πεδίο [KODIKOS], ως [KODIKOS.PDF].
(Ο [KODIKOS] είναι μοναδικός γιά κάθε [ID])

Με αυτά τα δεδομένα, και προκειμένου να ανοίξουμε το επιλεγμένο αρχείο pdf, τοποθετούμε στο πεδίο [KODIKOS] τον ακόλουθο κώδικα
(http://www.ms-office.gr/forum/access...xeioy-pdf.html), με το κλικ:

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 KODIKOS_Click()
Dim strFile As String
If Not IsNull(Me.KODIKOS) Then
strFile = "C:\FilesX\AFM\Orders\" & Me.KODIKOS & ".pdf"
If Dir(strFile, vbDirectory) <> vbNullString Then
ShellExecute 0, "open", strFile, "", "C:\", SW_SHOWNORMAL
Else
MsgBox "File not Found!"
End If
End If
End Sub

Ομως, κάποιο λάθος κάνω στο [strFile] και δεν ανοίγει το αρχείο!

Όταν βάζω αντί για AFM το [AFM =123456789], που είναι και το AFM για το [ID=1] στο παράδειγμά μας, δηλαδή,
strFile = "C:\FilesΧ\123456789\Orders\" & Me.KODIKOS & ".pdf",
τότε το αρχείο ανοίγει κανονικά!

Ερώτημα: Πώς μπορούμε να γενικεύσουμε τον παραπάνω κώδικα έτσι ώστε να έχουμε το ζητούμενο?

Σημείωση: Παρόμοιο ερώτημα είχα ανεβάσει και προσφάτως αλλά, επανέρχομαι με [Νέο θέμα] επειδή θεώρησα ότι,
ενδεχομένως να υπήρχε κάποια ασάφεια σε αυτό και χρειαζόταν διαφορετική διατύπωση!

Σας ευχαριστώ εκ των προτέρων