Access - Tips & Tricks Εκμεταλλευτείτε τις δυνατότητες της Microsoft Access. Παρακαλούμε μην εισάγετε εδώ ερωτήσεις! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Εκτύπωση τυχαίων Εγγραφών και αριθμών
Χρήση της συνάρτησης Rnd() της VBA Access. Δημιουργούμε μία συνάρτηση Από - Έως (Ελάχιστος αριθμός - Μέγιστος αριθμός ) κώδικας: Function Randomize(Min,Max as integer) as integer Randomize=Int ((Max-Min + 1) * Rnd + Min) End function Η παραπάνω συνάρτηση επιστρέφει μία τιμή μέσα στο εύρος Min,Max.Μετά σε έναν πίνακα (TblQuestions) ο οποίος πρέπει να έχει και ένα πεδίο (RandomizeID) και αυτό το πεδίο θα ενημερώνεται με τις τιμές που θα επιστρέφει το Randomize για κάθε εγγραφή ξεχωριστά (Με Χρήση RecordSets γεμίζει κάθε εγγραφή ξεχωριστά). Έτσι θα έχετε το πεδίο RandomizeID με τιμές από Min,Max. [Παραθέτoυμε αποσπασματικά μέρος κώδικα] κώδικας: set RcdSetRand=currentdb.OpenRecordset("Select * From TblQuestions") RcdSetRand.Fields("RandomizeID")=Randomize(100,150) Ενημέρωνεται το SQL String σε ένα κενό ερώτημα ("QryQuestions") ή στην σχεδίαση του ερωτήματος, επιλέγετε Προβολή SQL. Currentdb.QueryDefs("QryQuestions").SQL="SELECT TOP " & RecordNo &" TblQuestions.* FROM TblQuestions ORDER BY TblQuestions.RandomizeID DESC" Τελευταία επεξεργασία από το χρήστη Ms-Office-Development Team : 23-11-09 στις 01:06. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Παραγωγή τυχαίων αριθμών και εκτύπωση | pm4698 | Access - Ερωτήσεις / Απαντήσεις | 1 | 03-11-14 20:38 |
Δημιουργία μοναδικών τυχαίων αριθμών | kapetang | Access samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 20-10-13 18:22 |
[ Φόρμες ] Δημιουργία τυχαίων αριθμών | mgeorge | Access - Ερωτήσεις / Απαντήσεις | 6 | 14-10-13 00:30 |
Εύρεση τυχαίων αριθμών από συγκεκριμένο πεδίο | dimogerontas | Access - Ερωτήσεις / Απαντήσεις | 5 | 10-04-12 18:06 |
Εκτύπωση τυχαίων Εγγραφών και αριθμών | kon73 | Access - Ερωτήσεις / Απαντήσεις | 0 | 06-02-09 12:53 |
Η ώρα είναι 20:08.