[ Εκθέσεις ] runtime error "2501"

[gianniskar]

Καλημερα.Εχω το συγκεκριμενο σφαλμα "Η ενεργεια OpenReport ακυρωθηκε".Εχω βαλει μια μακροεντολη η οποια ακυρωνει το συμβαν οπως και εμφανιζει ενα μηνυμα οταν δεν υπαρχουν δεδομενα στην συγκεκριμενη αναφορα.Οταν παταω στο μηνυμα "οκ"για να κλεισει μετα εμφανιζεται το σφαλμα.

[Tasos]

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

Γιάννη, σε περιβάλλον 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

Σε περιβάλλον σχεδίασης μακροεντολής:

• Πρόσθεσε στην αρχή: "Με το σφάλμα" και όρισε την επιλογή "επόμενο" (βλ. εικόνα)
• Πρόσθεσε στο τέλος: "Εκκαθάριση σφάλματος μακροεντολής"

Image2.png

.

[gianniskar]

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

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