[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

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

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

.