[ Εκθέσεις ] Όταν δεν υπάρχουν δεδομένα...

[Meteora]

Καλησπέρα ...
Σε μια έκθεση, τα κριτήρια που έχουμε, είναι δυνατόν να 'στραγγαλίζουν' όλα τα δεδομένα και έτσι η έκθεση να εμφανίζεται στην οθόνη μας ή στον εκτυπωτή χωρίς στοιχεία. Αυτή την εικόνα θέλω να απαλείψω !
Ο κώδικας που ακολουθεί δίνει το μήνυμα -όταν δεν υπάρχουν δεδομένα ...
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Δεν υπάρχουν δεδομένα !"
End Sub
...αλλά μετά το ok εμφανίζει την άδεια έκθεση.
Μπορούμε να κάνουμε κάτι εδώ ;
Σχόλιο : Μέχρι τώρα δεν έχω χρησιμοποιήσει το συμβάν NoData, αλλά με μια Dcount(...) ελέγχω αν έχω ή όχι εγγραφές προς εκτύπωση και εφόσον έχω πάω στην εντολή είτε εμφάνισης είτε εκτύπωσης.
Παιδιά σας ευχαριστώ
Φιλικά / Νίκος

[Tasos]

Καλησπέρα φίλε μου Νίκο!

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Δεν υπάρχουν δεδομένα !"
End Sub

Η όρισμα "Cancel As Integer" μας παρέχει τη δυνατότητα να ακυρώσουμε τη διαδικασία όπου περιέχεται.

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
MsgBox "Δεν υπάρχουν δεδομένα !" ',....
End Sub

Τα λέμε

Τάσος

[editolis]

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Δεν υπάρχουν δεδομένα!", vbinformation, "Microsoft Access"
cancel = -1
End Sub

Τασο με προλαβες...

Τάσος: Η κεκτημένη ταχύτητα βλέπεις

[nisgia]

Ως συμπλήρωση των παραπάνω...

Θα πρέπει να να έχουμε υπόψη μας πως η ακύρωση του ανοίγματος μιας έκθεσης
εγείρει ένα σφάλμα χρόνου εκτέλεσης στη διαδικασία που προσπαθεί να την ανοίξει.
Γι' αυτό ο κώδικας χειρισμού αυτού του σφάλματος στη καλούσα διαδικασία είναι απαραίτητος.

Γιάννης

[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

Τάσος

[Meteora]

Καλησπέρα ...
Θερμά ευχαριστώ Τόλη, Γιάννη και Τάσο !
Καλή συνέχεια απο καρδιάς. Συνέχεια σε κάθε τομέα που συμμετέχει στο 'μόρφωμα' που λέμε ζωή...(πνεύμα, υγεία, εργασία, οικογένεια,φιλία,...)
Φιλικά / Νίκος