Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Εκθέσεις ] Εξαγωγή αρχείου σε μορφή pdf με προειδοποίηση ύπαρξης με ίδιου όνομα

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 03-12-15, 17:53
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή Εξαγωγή αρχείου σε μορφή 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

Ευχαριστώ εκ των προτέρων
Τίμος
Απάντηση με παράθεση
  #2  
Παλιά 03-12-15, 20:34
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.573
Προεπιλογή

Καλησπέρα

Τίμο, δοκίμασε τον κώδικα:
Κώδικας:
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
Φιλικά/Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 04-12-15, 08:44
Όνομα: Τίμος
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 13-03-2015
Μηνύματα: 44
Προεπιλογή

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

Τίμος
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Εξαγωγή αρχείου σε .asc Nasia Access - Ερωτήσεις / Απαντήσεις 5 01-06-14 23:16
Εξαγωγή πινάκα σε αρχείο asci με συγκεκριμένη μορφή Nasia Access - Ερωτήσεις / Απαντήσεις 2 13-04-14 00:13
[Γενικά] Ταυτόχρονη χρήση ίδιου αρχείου απο δύο χρήστες στο ίδιο τοπικό δίκτυο Βασίλης Καραχάλιος Excel - Ερωτήσεις / Απαντήσεις 5 03-04-14 08:47
Προειδοποίηση ασφάλειας gaz_manos Access - Ερωτήσεις / Απαντήσεις 2 23-03-14 15:46
[ Πίνακες ] Εξαγωγή Πίνακα σε Excel με όνομα Ημερομηνία και Τρέχουσα ώρα Χρήστος Access - Ερωτήσεις / Απαντήσεις 6 30-06-13 23:22


Η ώρα είναι 17:12.