Πώς να χρησιμοποιήσετε το ActiveX Progress Bar στην Access 2003 Με Visual Basic

Γνωρίζοντας πώς να χρησιμοποιήσετε ένα στοιχείο ελέγχου ActiveX ProgressBar στο Microsoft Office Access να κάνετε την αίτησή σας πιο φιλικό προς το χρήστη με το να είναι σε θέση να αποδείξει σε έναν χρήστη για την πρόοδο μιας συγκεκριμένης εργασίας . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που προσφέρονται στη σουίτα Microsoft Office . Microsoft Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται στην Access για να αυτοματοποιήσουν εργασίες ρουτίνας . Ευτυχώς , VBA μπορεί να χρησιμοποιηθεί για να δημιουργήσει ένα στοιχείο ελέγχου ActiveX ProgressBar και να ορίσετε τις ιδιότητές του . Τα πράγματα που θα χρειαστείτε για Microsoft Access 2003
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Access 2003 . Δημιουργήστε μια νέα βάση δεδομένων με την επιλογή " New Database " και στη συνέχεια επιλέξτε "Δημιουργία . " Κάντε κλικ στην καρτέλα " Φόρμες" και επιλέξτε " Νέο" για να δημιουργήσετε μια νέα φόρμα . 2

Κάντε κλικ στο μενού "Εισαγωγή" , και στη συνέχεια κάντε κλικ στο κουμπί " ελέγχου ActiveX . " Κάντε διπλό κλικ στο " Microsoft ProgressBar Control" για να προσθέσετε το στοιχείο ελέγχου . Προσθέστε ένα κουμπί εντολής επιλέγοντάς το από το μενού « Εργαλεία » . Αριστερό κλικ στη φόρμα και σύρετε το ποντίκι σας, ενώ κρατώντας πατημένο το κουμπί του ποντικιού . Προσθέσετε μια ετικέτα στη φόρμα χρησιμοποιώντας την ίδια τεχνική . Κάντε δεξί κλικ στο νέο κουμπί εντολής , και στη συνέχεια επιλέξτε "Build γεγονότος . " Επιλέξτε " δόμησης κώδικα " από το παράθυρο διαλόγου " Επιλογή λειτουργίας δόμησης " . Κάντε κλικ στο " OK".
Εικόνων 3

αντιγραφή και επικόλληση του παρακάτω στο παράθυρο " Module" μέσα στην διαδικασία κουμπί εντολής για να δηλώσει τις μεταβλητές που θα χρησιμοποιήσετε :

Dim prg Όπως ProgressBar

Dim IntValue Όπως Long

Dim fmin Όπως String Dim

fmax Όπως String Dim

fstep Όπως String Dim

strComplete Όπως String
4

Πληκτρολογήστε το παρακάτω, για να ορίσετε το ελάχιστο, μέγιστο και το βήμα για την πρόοδο του ελέγχου bar σας :

fmin = 1

fmax = 20

fstep = 2
5

Πληκτρολογήστε το παρακάτω, για να καθορίσει το " prg " μεταβλητή ως τον έλεγχο γραμμή προόδου :

Set prg = Me ProgressBar0.Object

6

Πληκτρολογήστε τα ακόλουθα στο βρόχο από την τιμή min με την μέγιστη τιμή κατά την ενημέρωση για την πρόοδο του ελέγχου bar :

Do

IntValue = IntValue + fstep

Αν IntValue > = prg.Max τότε

IntValue = prg.Max

End If

prg.Value = IntValue

strComplete = Format ( ( prg.Value /prg.Max ) * 100 , " # #" ) & _

" % ολοκλήρωσης "

label1.Caption = strComplete

DoCmd.RepaintObject

Loop Ενώ IntValue Η 7

δεξιό κλικ στη φόρμα και, στη συνέχεια, κάντε κλικ στο " Προβολή φόρμας . " Κάντε κλικ στο " Button1 ", το οποίο θα εκτελέσει τον κώδικα διαδικασία για να γεμίσει το στοιχείο ελέγχου ActiveX ProgressBar .
Η
εικόνων