[ΤΙΜΟΣ]

Γιώργο,
Τελικά μετά από αρκετές δοκιμές ανακάλυψα πως έχει πρόβλημα ο κώδικας που παραθέτω. Μου τον έστειλες σε προηγούμενο θέμα που είχα ζητήσει βοήθεια και παρόλου που απάντησα ότι δουλεύει, αλλά λόγω φόρτου εργασίας δεν είχα παρατηρήσει ότι δεν κάνει αντικατάσταση του αρχείου. Σήμερα το πρόσεξα από την ώρα στην ημερομηνία τροποποίησης του αρχείου στις ιδιότητες, παραμένει η αρχική και δεν αλλάζει εκτελώντας την εντολή κατά την διάρκεια της ίδιας μέρας.
Εάν μπορείς να βοηθήσεις θα ήταν χρήσιμο.

Private Sub Εντολή482_Click()
    Dim FileName As String
    FileName = "C:\Users\" & "ΔΠ." & CStr(ΚωδΔελτίουπαραγγελίας) & _
                "_κ.κ.." & CStr(Κείμενο218) & "_" & Format((Κείμενο194),_
                "yyyymmdd") & ".pdf"

    DoCmd.OpenReport "RptΔελτία παραγγελίας", acViewPreview, , _
                    "[ΟΝΟΜΑ_ΠΡΟΜΗΘΕΥΤΗ]=" & "'" & [ΟΝΟΜΑ_ΠΡΟΜΗΘΕΥΤΗ] & "'"

    If Dir(FileName) <> "" Then
        If MsgBox("Το αρχείο:" & vbCrLf & FileName & vbCrLf & _
                  "Υπάρχει. Να αντικατασταθεί;", vbCritical + vbYesNo) = vbOK Then
            DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, _
               FileName, True
        End If
    Else
           DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, _
            FileName, True
    End If
           DoCmd.Close acReport, "RptΔελτία παραγγελίας", acSaveNo
End Sub

Ευχαριστώ εκ των προτέρων
Τίμος