Πώς να αλλάξετε τη γραμματοσειρά σε Access VBA

γλώσσα προγραμματισμού Microsoft Access , Visual Basic for Applications ( VBA ) , επιτρέπει στην Access 2010 χρήστες να αλλάξετε οποιαδήποτε πτυχή της εμφάνισης της Access . Αυτό περιλαμβάνει τη δυνατότητα να αλλάξετε ονόματα των γραμματοσειρών και άλλες ιδιότητες για όλους τους πίνακες και τις εκθέσεις . Ένα βήμα που εμπλέκονται στην αλλαγή μιας γραμματοσειράς με την Access VBA εντοπίζει τις ιδιότητες γραμματοσειράς που σχετίζονται με το μοντέλο αντικειμένου VBA. Με τη χρήση της VBA για να αλλάξετε μια γραμματοσειρά στην Access , μπορείτε να δώσετε τις αναφορές σας και άλλα στοιχεία Access μια χαρακτηριστική εμφάνιση με το κείμενο που είναι εύκολο να το διαβάσετε . Οδηγίες
Η 1

Ανοικτής Πρόσβασης . Κάντε κλικ στο εικονίδιο " Ο πίνακας " στην καρτέλα " Δημιουργία " . 2

Πληκτρολογήστε μερικούς χαρακτήρες στο κελί στα δεξιά του "ID " πεδίο . Οι χαρακτήρες που πληκτρολογείτε θα εμφανιστεί στην προεπιλεγμένη γραμματοσειρά Access , η Calibri . Το πρόγραμμα VBA θα εισέλθουν επόμενο θα αλλάξει τη συγκεκριμένη γραμματοσειρά .
Εικόνων 3

Πατήστε το " Alt " και " F11 " ταυτόχρονα για να εισέλθουν στην VBA ολοκληρωμένο περιβάλλον ανάπτυξης , η οποία είναι περισσότερο γνωστή ως IDE .
Η

4 Κάντε κλικ στο "Εισαγωγή" τίτλο μενού και στη συνέχεια κάντε κλικ στο " Ενότητα " στοιχείο. Αυτό κάνει ένα νέο παράθυρο για την εισαγωγή δηλώσεις προγράμματος σας VBA
5

Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο κώδικα : .

SetDefaultFont Public Sub ( )

SetOption " προεπιλεγμένο όνομα γραμματοσειράς " , " arial "

SetOption " προεπιλεγμένο μέγεθος γραμματοσειράς " , " 16 "

End Sub
Η 6

Τρέξτε αυτό το πρόγραμμα πατώντας οποιοδήποτε από τα δηλώσεις και πατώντας "F5 ".
Η 7

Επιστροφή στην πρόσβαση πατώντας το πλήκτρο " Alt " και " F11 " και πάλι ταυτόχρονα . Δημιουργήστε ένα νέο πίνακα , ακολουθώντας τα βήματα 1 και 2 . Αυτή τη φορά , οι χαρακτήρες που πληκτρολογείτε θα είναι στη γραμματοσειρά που καθορίζεται στο πρόγραμμα VBA - . Arial , μέγεθος 16 πόντους
8

Κάντε κλικ σε οποιαδήποτε υπάρχοντα πίνακα στο παράθυρο πλοήγησης στην οθόνη προς τα αριστερά , και στη συνέχεια κάντε κλικ στο κουμπί "Δημιουργία " τίτλο του μενού .
Η

9 Κάντε κλικ στο εικονίδιο " έκθεση " στη γραμμή εργαλείων για να κάνει μια νέα έκθεση με βάση τον πίνακα που επιλέξατε στο βήμα 8 . Θα χρησιμοποιήσετε ένα άλλο πρόγραμμα VBA για να αλλάξετε μια γραμματοσειρά στην έκθεση .
Η 10

Κάντε κλικ σε οποιαδήποτε κενή περιοχή στην ενότητα " Λεπτομέρειες " της νέας έκθεσης , και στη συνέχεια κάντε κλικ στο " Ιδιότητες".

11

Κάντε κλικ στο "Down" βέλος στο "On Format " περίπτωση "Ιδιότητες " παράθυρο στα δεξιά της οθόνης . Κάντε κλικ στο " διαδικασία συμβάντος ", το οποίο ενημερώνει την Access για να δημιουργήσετε μια νέα λειτουργική μονάδα κώδικα για να κρατήσει το πρόγραμμά σας VBA . Κάντε κλικ στο κουμπί δίπλα από το κάτω βέλος για να εισέλθουν στην ενότητα .
Η 12

Αντιγράψτε τις ακόλουθες δηλώσεις στο εσωτερικό του " Detail_Format " ρουτίνα που φέρνει Access να . Αυτές οι δηλώσεις που το όνομα της γραμματοσειράς του ελέγχου έκθεση με τίτλο " Πεδίο1 " σε " Courier " και να αλλάξετε το μέγεθος της γραμματοσειράς σε 18 σημεία .

Field1.FontName = " Courier "

Field1.FontSize = 18
Η 13

Πληκτρολογήστε πάνω από το " Πεδίο1 " κείμενο με το όνομα του ελέγχου που εμφανίζεται στην έκθεσή σας . Μπορείτε να βρείτε ένα όνομα τομέα , εξετάζοντας την κορυφή του κάθε στήλη του πίνακα που επιλέξατε στο βήμα 8 για να κάνει μια έκθεση . Για παράδειγμα , για έναν πίνακα των πωλητών , ένα από τα ονόματα των στηλών μπορεί να είναι " Όνομα ", και άλλοι μπορεί να είναι " Επώνυμο " ή " AvgSalesPerMonth . "

14

Πατήστε το πλήκτρο " Alt " και " F11 " ταυτόχρονα για να επιστρέψετε στην πρόσβαση , και στη συνέχεια εκτελέστε τον κωδικό σας VBA κάνοντας δεξί κλικ και επιλέγοντας την καρτέλα της έκθεσης "προβολή αναφοράς . " Η έκθεση θα εμφανιστεί και θα εμφανίσει το " Courier " font στον τομέα που αναφέρεται στο βήμα 12 .
Η
εικόνων