Παραδείγματα Πρόσβασης

Εμποδίζουν το άνοιγμα της έκθεσης, αν υπάρχουν στοιχεία που να δείχνουν

Τετάρτη 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

Για να δείτε τρέχει κατεβάσετε το παράδειγμα: Αποτροπή έκθεση άνοιγμα

Καταχωρήθηκε στο Uncategorized | 13 Σχόλια »

Πώς να αποτρέψει μια ανοιχτή φόρμα, εάν υπάρχουν αρχεία που αποδεικνύουν;

Σάββατο, 2 Μαΐου του 2009

Μερικές φορές είναι απαραίτητο για να αποφευχθεί η φόρμα ανοιχτή, εάν υπάρχουν αρχεία που αποδεικνύουν, για παράδειγμα, όταν κάνει ένα ερώτημα και δεν υπάρχει εγγραφή δεν απαιτείται, δεν πρέπει να είναι ανοικτή μορφή αφού δεν έχουμε στοιχεία για την εμφάνιση. Αυτό λοιπόν που πρέπει να ελέγξετε αν υπάρχουν αρχεία που αποδεικνύουν και αν δεν υπάρχει δείχνουν ένα μήνυμα και να εμποδίζουν τη μορφή ανοικτού. Πώς;

Είναι εύκολο να βάλετε μόνο τον κώδικα κάτω από τις ιδιότητες φόρμας σε περίπτωση «να ανοίξει»:

= 0, τότε Εάν Form.RecordsetClone.RecordCount
MsgBox "Δεν βρέθηκαν καταχωρήσεις.", VbExclamation, "Σφάλμα!"
DoCmd.Close acForm, "βρείτε τα δεδομένα"
Έξοδος Υπο
End If

Για να δείτε ένα παράδειγμα κατεβάσετε: Αποτροπή Έντυπο Ανοικτή

Καταχωρήθηκε στο Παραδείγματα , Έντυπα , Ενότητες | 2 Σχόλια »