Πώς να αποτρέψει μια ανοιχτή φόρμα, εάν υπάρχουν αρχεία που αποδεικνύουν;
Μερικές φορές είναι απαραίτητο για να αποφευχθεί η φόρμα ανοιχτή, εάν υπάρχουν αρχεία που αποδεικνύουν, για παράδειγμα, όταν κάνει ένα ερώτημα και δεν υπάρχει εγγραφή δεν απαιτείται, δεν πρέπει να είναι ανοικτή μορφή αφού δεν έχουμε στοιχεία για την εμφάνιση. Αυτό λοιπόν που πρέπει να ελέγξετε αν υπάρχουν αρχεία που αποδεικνύουν και αν δεν υπάρχει δείχνουν ένα μήνυμα και να εμποδίζουν τη μορφή ανοικτού. Πώς;
Είναι εύκολο να βάλετε μόνο τον κώδικα κάτω από τις ιδιότητες φόρμας σε περίπτωση «να ανοίξει»:
= 0, τότε Εάν Form.RecordsetClone.RecordCount
MsgBox "Δεν βρέθηκαν καταχωρήσεις.", VbExclamation, "Σφάλμα!"
DoCmd.Close acForm, "βρείτε τα δεδομένα"
Έξοδος Υπο
End If
Για να δείτε ένα παράδειγμα κατεβάσετε: Αποτροπή Έντυπο Ανοικτή
Το παράδειγμα που παρουσιάζονται είναι εξαιρετική.
Συμφωνώ με την προηγούμενη αναθεώρηση!
Απλή και αποτελεσματική!
Σας ευχαριστούμε!