Εμποδίζουν το άνοιγμα της έκθεσης, αν υπάρχουν στοιχεία που να δείχνουν
Τετάρτη 20 Μαΐου, 2009Μπορούμε να αποτρέψει μια ανοικτή έκθεση, εάν υπάρχουν στοιχεία που να δείχνουν, και γι 'αυτό χρησιμοποιούμε δύο μορφές ανάλογα με την έκδοση της Access:
1 - Όλες οι εκδόσεις της Access
Τοποθετήστε τον κώδικα κάτω από τις ιδιότητες της έκθεσης, «Δυνατότητα» της διοργάνωσης
Χρησιμοποιήστε τον εξουσιοδοτικό περίπτωση (Ενεργοποίηση) Έκθεση:
Private Sub Report_Activate ()
Αν DCount ("*", Me.RecordSource) = 0 Στη συνέχεια,
MsgBox "Δεν υπάρχουν αρχεία για να εμφανιστεί" vbDefaultButton1, "Σφάλμα!"
AcReport DoCmd.Close, "όνομα έκθεση"
End If
Sub End
2 - Από την έκδοση 7 (Access 95) προστέθηκε η περίπτωση «εάν δεν υπάρχουν στοιχεία», τότε μπορούμε να urilizar τον ακόλουθο κώδικα:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Δεν υπάρχουν στοιχεία στην έκθεση.", VbInformation, "Σφάλμα!"
Cancel = True
Sub End
Για να δείτε τρέχει κατεβάσετε το παράδειγμα: Αποτροπή έκθεση άνοιγμα
