Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Εκθέσεις ] runtime error "2501" (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5527-runtime-error-2501-a.html)

gianniskar 29-04-20 07:53
runtime error "2501"
 
Καλημερα.Εχω το συγκεκριμενο σφαλμα "Η ενεργεια OpenReport ακυρωθηκε".Εχω βαλει μια μακροεντολη η οποια ακυρωνει το συμβαν οπως και εμφανιζει ενα μηνυμα οταν δεν υπαρχουν δεδομενα στην συγκεκριμενη αναφορα.Οταν παταω στο μηνυμα "οκ"για να κλεισει μετα εμφανιζεται το σφαλμα.

Tasos 01-05-20 10:21
1 Συνημμένο(α)
Καλημέρα σε όλους και καλή Πρωτομαγιά!

Γιάννη, σε περιβάλλον 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
Σε περιβάλλον σχεδίασης μακροεντολής:
  • Πρόσθεσε στην αρχή: "Με το σφάλμα" και όρισε την επιλογή "επόμενο" (βλ. εικόνα)
  • Πρόσθεσε στο τέλος: "Εκκαθάριση σφάλματος μακροεντολής"
Συνημμένο Αρχείο 10992

.

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

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


Η ώρα είναι 18:23.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2