[kapetang]

Καλησπέρα

Το βασικό πρόβλημα είναι εύρεση του μέγιστου ID.

Στον παρακάτω κώδικα δίνονται 2 συναρτήσεις για τον προσδιορισμό του.

Public Function MaxIDTable(strTable As String) As Long
    'Επιστρέφει το μέγιστο ID του πίνακα strTable
    'Εάν ο πίνακας είναι κενός επιστρέφει 0
    
    MaxIDTable = Nz(DMax("ID", "[" & strTable & "]"), 0)

End Function


Public Function MaxIDFolder(ByVal fullNameFolder As String) As Long
    'Επιστρέφει το μέγιστο ID των αρχείων ID.pdf του φακέλου fullNameFolder
    'Εάν ο φάκελος δεν περιέχει αρχεία ID.pdf επιστρέφει 0

    Dim strPDF  As String, max As Long, k As Long
    
    If Right(fullNameFolder, 1) <> "\" Then
        fullNameFolder = fullNameFolder & "\"
    End If
    strPDF = Dir(fullNameFolder & "*.pdf")
    Do While strPDF <> ""
        k = Val(Replace(strPDF, fullNameFolder, ""))
        If max < k Then
            max = k
        End If
        strPDF = Dir
    Loop
    MaxIDFolder = max
    
End Function

1) Αν στο φάκελο υπάρχουν αρχεία *pdf για όλα τα ID του πίνακα (πίνακσς1), τότε μπορούμε να προσδιορίσουμε το μέγιστο ID από τον πίνακα (συνάρτηση MaxIDTable).

Είναι η λύση που πρότεινε ο Νίκος.

2) Διαφορετικά θα πρέπει να χρησιμοποιήσουμε τη συνάρτηση MaxIDFolder.

Με άλλα λόγια, στον κώδικα, το Me.ID θα αντικατασταθεί από την κατάλληλη συνάρτηση.

Καλή συνέχεια

Φιλικά/Γιώργος