Ανανέωση ιστοσελίδας

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 29-04-20, 08:53
Όνομα: ΙΩΑΝΝΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-01-2020
Μηνύματα: 83
Προεπιλογή runtime error "2501"

Καλημερα.Εχω το συγκεκριμενο σφαλμα "Η ενεργεια OpenReport ακυρωθηκε".Εχω βαλει μια μακροεντολη η οποια ακυρωνει το συμβαν οπως και εμφανιζει ενα μηνυμα οταν δεν υπαρχουν δεδομενα στην συγκεκριμενη αναφορα.Οταν παταω στο μηνυμα "οκ"για να κλεισει μετα εμφανιζεται το σφαλμα.
Απάντηση με παράθεση
  #2  
Παλιά 01-05-20, 11:21
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλημέρα σε όλους και καλή Πρωτομαγιά!

Γιάννη, σε περιβάλλον Visual Basic θα πρέπει να χρησιμοποιήσεις κάτι όπως αυτό:

Κώδικας:
Private Sub Command11_Click()
    On Error Resume Next
    DoCmd.OpenReport "Reportname"    ', acViewPreview
    If Err <> 2501 Then
        MsgBox Err & vbLf & Err.Description
    End If
    Err.Clear
End Sub
Σε περιβάλλον σχεδίασης μακροεντολής:
  • Πρόσθεσε στην αρχή: "Με το σφάλμα" και όρισε την επιλογή "επόμενο" (βλ. εικόνα)
  • Πρόσθεσε στο τέλος: "Εκκαθάριση σφάλματος μακροεντολής"
runtime error "2501"-image2.png

.
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 04-05-20, 08:26
Όνομα: ΙΩΑΝΝΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 27-01-2020
Μηνύματα: 83
Προεπιλογή

Καλημερα Τασο.Ναι ειχα βαλει το "error resume next"αλλα δεν ηξερα αν ηταν σωστο.Επισης αν το αφησω χωρις την εντολη <<If Err <> 2501 Then
MsgBox Err & vbLf & Err.Description
End If
Err.Clear>> υπαρχει θεμα?

Eπισης ξεχασα να αναφερω οτι εχω την εντολη στο "οταν δεν υπαρχουν δεδομενα"Επομενως οταν δεν εχει δεδομενα η αναφορα βγαζει ενα πλασιο μηνυματος και μετα πατωντας το "οκ" μου βγαζει αυτο το error

Τελευταία επεξεργασία από το χρήστη gianniskar : 04-05-20 στις 13:12.
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] Error κατά το άνοιγμα "...δεν είναι δυνατή η ανάγνωση.." jockey17 Excel - Ερωτήσεις / Απαντήσεις 2 23-05-14 16:15
Εμφανιση "Μηνός" και "Έτους" σε πίνακα και ερώτημα antonib Access - Ερωτήσεις / Απαντήσεις 4 24-09-12 21:58
[ Πίνακες ] Εμφάνιση πίνακα "παρασκηνίου" στο "προσκήνιο" PanosPan Access - Ερωτήσεις / Απαντήσεις 6 12-10-10 16:33
[ Εκθέσεις ] Άθροισμα "σε μεταφορά" στο υποσέλιδο και "από μεταφορά" στην κεφαλίδα prokopino Access - Ερωτήσεις / Απαντήσεις 4 25-06-10 17:24


Η ώρα είναι 20:28.