[ Εκθέσεις ] Εξαγωγή αρχείου σε μορφή pdf με προειδοποίηση ύπαρξης με ίδιου όνομα

[ΤΙΜΟΣ]

Καλησπέρα σ' όλους,
Για άλλη μία φορά θα χρειαστώ βοήθεια από τα μέλη του φόρουμ. Με τον κώδικα που παραθέτω κάνω εξαγωγή συγκεκριμένης έκθεσης σε μορφή pdf σε καθορισμένη θέση , με προκαθορισμένο όνομα και δουλεύει άψογα. Το πρόβλημά μου είναι πως θέλω πριν την δημιουργία του pdf να γίνεται έλεγχος εάν υπάρχει ήδη αρχείο με αυτό το όνομα και με εμφάνιση μηνύματος ή να καθιστά αδύνατη την δημιουργία νέου pdf με το ίδιο όνομα ή να υπάρχει η επιλογή " Θέλεις να δημιουργηθεί ι - "Ναί" - "Όχι" "
Ο κώδικας :
Private Sub Εντολή482_Click()
DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, "C:\Users\" & "ΔΠ." & _
CStr(ΚωδΔελτίουπαραγγελίας) & "_κ.κ.." & CStr(Κείμενο218) & "_" & Format((Κείμενο194), "yyyymmdd") & ".pdf", True
End Sub

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

[kapetang]

Καλησπέρα

Τίμο, δοκίμασε τον κώδικα:

Private Sub Εντολή482_Click()
    Dim FileName As String

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

    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
End Sub

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

[ΤΙΜΟΣ]

Καλημέρα σ' όλους,
Γιώργο ευχαριστώ δουλεύει άψογα!!!!

Τίμος