[Tasos]

Καλημέρα!

Έχει δίκιο ο Γιάννης.

Σε περιπτώσεις που ανοίγουμε κάποια έκθεση με προγραμματιστικό τρόπο,
πχ. DoCmd.OpenReport, η εφαρμογή δεν εντοπίζει το αντικείμενο της έκθεσης
(φυσικό αφού λόγω ακύρωσης δεν είναι ανοιχτό) κι έτσι εμφανίζει το ανάλογο μήνυμα σφάλματος.

Ο κώδικας που δημιουργείται αυτόματα από τον οδηγό στοιχείων ελέγχου,
περιέχει ήδη διαδικασίες για γενική αντιμετώπιση σφαλμάτων.

Αν κριθεί αναγκαίο ένας τέτοιος κώδικας θα μπορούσε να μετατραπεί όπως το παράδειγμα:

Private Sub CmdOpenreport_Click()
    On Error GoTo ErrH
    DoCmd.OpenReport "Report1", acPreview
ExitProc:
    Exit Sub
ErrH:
    If Err = 2103 Then
        MsgBox "No printable Data!", vbInformation, Me.Caption
        Resume ExitProc
    Else
        MsgBox Err.Description, vbExclamation, Me.Caption
    End If
    Resume ExitProc
End Sub

Τάσος