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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Εκθέσεις ] Εξαγωγή αρχείου σε μορφή pdf με προειδοποίηση ύπαρξης με ίδιου όνομα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3943-eksagogi-arxeioy-se-morfi-pdf-me-proeidopoiisi-iparksis-me-idioy-onoma.html)

Εξαγωγή αρχείου σε μορφή 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

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

Καλησπέρα

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

Κώδικας:

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

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

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

Τίμος