Πώς να αποκτήσετε πρόσβαση σε VBA Αλλαγή Δρομέας

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

Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Office Access και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και επιλέξτε " Visual Basic ". " . Ενότητα " Κάντε κλικ στο μενού "Εισαγωγή" και επιλέξτε 2

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

Private Sub changeCursor ( )

Τύπου " . Enter "
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να καλέσετε τον " " λειτουργία και να αλλάξετε το δρομέα σε μια " assignCursorVal I Beam " :

assignCursorVal ( 3 )
Φτηνές 4

Πληκτρολογήστε το παρακάτω, για να καλέσετε τη λειτουργία " assignCursorVal " και να αλλάξετε το δρομέα σε μια " Κάθετη Double Arrow " :

assignCursorVal ( 7 )
5

Τύπος τα παρακάτω για να καλέσετε τη λειτουργία " assignCursorVal " και να αλλάξετε το δρομέα σε μια « οριζόντια Double Arrow " :

assignCursorVal ( 9 )
Η 6

Πληκτρολογήστε το παρακάτω, για να καλέσετε τον " assignCursorVal " λειτουργία και να αλλάξετε το δρομέα σε μια " Hour Glass " :

assignCursorVal ( 11 )
Η 7

Πληκτρολογήστε το παρακάτω, για να καλέσετε τη λειτουργία " assignCursorVal " και να αλλάξετε το δρομέα σε ένα πρότυπο δείκτη :

assignCursorVal ( 1 )
8

Πληκτρολογήστε τα εξής για τη δημιουργία του « assignCursorVal " υπορουτίνα :

Private Sub assignCursorVal ( pntrNum As Integer )

Screen.MousePointer = pntrNum

End Sub

Πατήστε το πλήκτρο " F5 " για να εκτελέσει την υπορουτίνα .
Η
εικόνων