[dimitrisp]

Γειά σας

Νίκο, σ` ευχαριστώ για την απάντησή σου. Η πρότασή σου φαίνεται ότι δε με εξυπηρετεί ή,
τουλάχιστον, δεν μπορώ να την προσαρμόσω στην ως άνω δειγματική βάση.

Ο κώδικας που χρησιμοποιώ για την προβολή αρχείων .pdf από τον τελικό φακελο είναι ο ακόλουθος:

Private Sub cmdViewingFile_Click()
Dim strFolderName As String
Dim strPath As String

strFolderName = MakeNameFolder
If strFolderName <> "" Then
strPath = SetFindBasicPath
If strPath <> "" Then
strFolderName = strPath & "\" & strFolderName & "\" & Me.ID & ".pdf"
If Dir(strFolderName, vbDirectory) <> "" Then

ShellExecute 0, "open", strFolderName, "", "C:\", SW_SHOWNORMAL

Else
MsgBox "Ο φάκελος είναι κενός ή δεν υπάρχει φάκελος"
End If

End If
End If
End Sub

Πατώντας το κουμπί " Προβολή .pdf " ανοίγει το pdf αρχείο που έχει την ίδια τιμή με το τρέχον id (" & Me.ID & ").
Όμως, μέσα στον ίδιο φάκελο υπάρχουν πρόσθετα αρχεία με διαφορετικά id.

Θέλω,λοιπόν, να τροποποιήσω τον παραπάνω κώδικα προκειμένου, πατώντας το κουμπί
" Προβολή .pdf " να ανοίγει το .pdf αρχείο που βρίσκεται στο βασικό φάκελο και που έχει τη μεγαλύτερη τιμή ID.

Για παράδειγμα, αν μέσα στο συγκεκριμένο φάκελο έχω τα αρχεία 10.pdf, 15.pdf,19.pdf,40.pdf, πατώντας το κουμπί
" Προβολή .pdf " να ανοίξει το αρχείο 40.pdf