Πώς να αφαιρέσει Shift στην Access 2007

Microsoft Access έρχεται πακέτο με τη σουίτα Microsoft Office παραγωγικότητα . Κατά την εκτέλεση του λογισμικού , εάν πατήσετε το πλήκτρο " Shift" , μπορείτε να παρακάμψετε διάφορες επιλογές εκκίνησης που διαφορετικά θα ήταν χρήσιμη. Αυτή η ικανότητα να αποφευχθούν αυτές οι επιλογές ενδέχεται να παρεμποδίσουν την πρόοδο στο έργο σας , να χάσουμε πολύτιμο χρόνο . Οι χρήστες μπορούν να αφαιρέστε αυτήν την επιλογή , έτσι ώστε να καλούνται να επιτελέσουν τις επιλογές εκκίνησης κάθε φορά . Η διαδικασία απαιτεί ένα κομμάτι της κωδικοποίησης και είναι διαφορετική ανάλογα με το αν πρόκειται για ένα έργο της Access ή μια βάση δεδομένων . Οδηγίες
απενεργοποίηση το πλήκτρο Shift για έργα της Access ( . Adp αρχείου)
Η 1

Ανοικτής Πρόσβασης . 2

Ανοίξτε το αρχείο έργου σας πηγαίνοντας στο "Αρχείο " στη συνέχεια
Η Πιέστε το πλήκτρο Φτηνές 3

" ALT " και το πλήκτρο " F11 " στο πληκτρολόγιό σας " Open". . Αυτό θα ανοίξει το " Visual Basic. "
Η

4 Κάντε κλικ στο κουμπί "Προβολή " και στη συνέχεια " Άμεση παράθυρο . "
5

Πληκτρολογήστε τον ακόλουθο κώδικα , που παρέχονται από τη Microsoft , στο πλαίσιο της "άμεσης Window : " " . Enter"

CurrentProject.Properties.Add " AllowBypassKey " , False

Hit
Η

6 Κλείστε τον επεξεργαστή <. br > Σελίδα 7

Αποθηκεύστε την εργασία σας και να κάνετε επανεκκίνηση του Access.
εικόνων απενεργοποίηση το πλήκτρο Shift για την βάση δεδομένων της Access ( . mdb ή . accdb αρχεία )
8

ανοικτή Πρόσβαση .
Η 9

Δημιουργήστε μια νέα λειτουργική μονάδα με τη μετάβαση σε " αντικείμενα " τότε " Modules " στο παράθυρο " Βάση δεδομένων " .
Η 10

Προσθέστε αυτή τη λειτουργία , υπό την προϋπόθεση από τη Microsoft , στην ενότητα :

ap_DisableShift Function ( )

'Αυτή η λειτουργία απενεργοποιήσετε τη μετατόπιση κατά την εκκίνηση . Η ενέργεια αυτή προκαλεί

«οι Autoexec macro και εκκίνηση ιδιότητες που πρέπει να εκτελεστούν πάντα .

On Error GoTo errDisableShift

Dim db Όπως DAO.Database

Dim prop όπως DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ( )

« Αυτή η επόμενη γραμμή απενεργοποιεί το πλήκτρο Shift κατά την εκκίνηση .

db.Properties ( " AllowByPassKey " ) = False

«Η λειτουργία είναι επιτυχής

Exit Function

errDisableShift : .

« Το πρώτο μέρος αυτής της ρουτίνα σφάλματος δημιουργεί το " AllowByPassKey

« περιουσία , αν δεν υπάρχει .

Εάν Err = conPropNotFound τότε

Set prop = db.CreateProperty ( " AllowByPassKey " , _

dbBoolean , False )

db.Properties.Append προπ

Resume Next

Else

MsgBox " Λειτουργία " ap_DisableShift »δεν έκανε ολοκληρωθεί με επιτυχία. "

λειτουργία Έξοδος

End If

Function End

11

Προσθέστε αυτή τη δεύτερη λειτουργία αμέσως μετά από αυτό που εισάγεται στο τελευταίο βήμα :

ap_EnableShift Function ( )

» . Αυτή η λειτουργία επιτρέπει το πλήκτρο SHIFT κατά την εκκίνηση η δράση αυτή προκαλεί

« η Autoexec macro και οι ιδιότητες εκκίνησης για να παρακαμφθεί

«αν ο χρήστης κρατά πατημένο το πλήκτρο SHIFT , όταν ο χρήστης ανοίγει τη βάση δεδομένων .

On Error GoTo errEnableShift

Dim db ως DAO.Database

Dim prop όπως DAO.Property

Const conPropNotFound = 3270

Set db = CurrentDb ( )

« Αυτή η επόμενη γραμμή κώδικα απενεργοποιεί το πλήκτρο SHIFT κατά την εκκίνηση .

db.Properties ( " AllowByPassKey " ) = True

«λειτουργία επιτυχή λειτουργία

Έξοδος

errEnableShift :

« Το πρώτο μέρος αυτού του λάθους ρουτίνα δημιουργεί το " AllowByPassKey

« περιουσία , αν δεν υπάρχει .

Εάν Err = conPropNotFound τότε

Set prop = db.CreateProperty ( " AllowByPassKey " , _

dbBoolean , True )

db.Properties.Append προπ

Resume Next

Else

MsgBox " Λειτουργία " ap_DisableShift » δεν ολοκληρώθηκε με επιτυχία . "

Λειτουργία Έξοδος

End If

Function End

12

Ανοίξτε το Visual Basic Editor πιέζοντας το πλήκτρο" ALT " και τα πλήκτρα " F11 " στο πληκτρολόγιό σας και πάλι .
Η 13

Κάντε κλικ στο " Προβολή " και στη συνέχεια " Άμεση Παράθυρο ".

14

Τύπος " ap_DisableShift " στο " παράθυρο άμεσης "για να απενεργοποιήσετε τη χρήση του " πλήκτρο Shift " .
Η
εικόνων