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

[kapetang]

Καλησπέρα

1) Ο κώδικας, δε δοκιμάστηκε αφού δε διαθέτω τη ΒΔ.

2) Δε θα ξαναγράψεις τον κώδικα.

3) Μετά το μήνυμα πρόσθεσε τον κώδικα: Kill FileName και ξαναδοκίμασε.

Κανονικά πρέπει να διαγράφεται το παλιό αρχείο και να αποθηκεύεται το νέο.

4) Ο φάκελος στον οποίο αποθηκεύεται το αρχείο θα πρέπει να επιτρέπει αλλαγές

[kapetang]

Τώρα το είδα άλλαξε το vbOk με το vbYes

[ΤΙΜΟΣ]

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

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

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

[ΤΙΜΟΣ]

Καλησπέρα γιώργο,
Και εγώ μόλις έστειλα την τελευταία ανάρτηση είδα την απάντηση σου :

Τώρα το είδα άλλαξε το vbOk με το vbYes

Έκανα την αντικατάσταση και τώρα δουλεύει, οπότε αγνόησε την τελευταία μου ανάρτηση.
Θα κάνω και τις αλλαγές στους προηγούμενους κώδικες και θα επανέλθω με απάντηση.

Ευχαριστώ για τον χρόνο σου

Τίμος

[ΤΙΜΟΣ]

Γιώργο,
Κάνοντας αντικατάσταση του vbOk με το vbYes δουλεύει τώρα και η εντολή με τον συνδιασμό των τριών κωδικών. Κάτι τελευταίο για να κλείσει το θέμα, το "Kill FileName" σε ποιο σημείο του κώδικα Public Sub Exists θα πρέπει να το προσθέσω ώστε να είναι εφαρμόσιμος και σε άλλες εντολές.

Public Sub Exists(FileName As String)
    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

Ευχαριστώ
Τίμος

[kapetang]

Αφού δουλεύει δε χρειάζεται να προστεθεί η εντολή Kill.