|
Microsoft Access est livré avec la suite bureautique Microsoft Office . Lors de l'exécution du logiciel, si vous appuyez sur la touche "Shift ", vous pouvez contourner les différentes options de démarrage qui , autrement, seraient utiles . Cette capacité d'éviter ces options peut entraver les progrès de votre projet , de gaspiller un temps précieux. Les utilisateurs peuvent supprimer cette option de sorte qu'ils sont tenus d'effectuer les options start -up à chaque fois. Le processus exige un peu de codage et est différente selon s'il s'agit d'un projet Access ou base de données. Instructions
Désactivation de la touche Shift pour les projets Access ( fichier. Adp)
1 libre accès.
2 Ouvrez votre fichier de projet en allant dans "Fichier " puis sur «Ouvrir ».
3 Appuyez sur la touche "Alt " et la touche "F11" de votre clavier. Cela permettra d'ouvrir le " Visual Basic Editor. "
4 Cliquez sur "Voir ", puis " Fenêtre Exécution . "
5 Tapez le code suivant, fourni par Microsoft , dans la fenêtre " immédiate: " . " Entrée".
CurrentProject.Properties.Add " AllowBypassKey " , Faux
Hit
6 Fermez l'éditeur
7 Enregistrez votre travail et redémarrez Access.
Désactivation de la touche Shift pour base de données Access ( . mdb ou . accdb )
8 open Access .
9 Créer un nouveau module en allant dans " Objets ", puis "Modules" dans la fenêtre "Base de données " .
10 Ajouter cette fonction , à condition par Microsoft , dans le module:
ap_DisableShift de fonction ( )
'Cette fonction désactive le décalage au démarrage. Cette action provoque
« le macro Autoexec et les propriétés de démarrage à toujours être exécutés.
On Error GoTo errDisableShift
db As DAO.Database
Dim soutenir que DAO.Property
Const conPropNotFound = 3270 Photos Set db = CurrentDb ()
'Cette ligne suivante désactive la touche Maj au démarrage.
db.properties ( " AllowBypassKey " ) = Faux
' La fonction est réussie
sortie de Fonction: errDisableShift : .
« La première partie de cette routine d'erreur crée " propriété AllowBypassKey
" si elle n'existe pas.
Si Err = conPropNotFound Puis
Set prop = db.CreateProperty ( " le AllowBypassKey ", _
dbBoolean , Faux )
db.Properties.Append prop
Resume Next
Else
MsgBox « ap_DisableShift ' Function n'a pas compléter avec succès. "
sortie de Fonction: End If End Function
11 Ajouter cette deuxième fonction immédiatement après celle que vous avez inséré dans le Dernière étape:
ap_EnableShift de fonction ( )
». Cette fonction permet la touche MAJ enfoncée au démarrage Cette action provoque
« le macro Autoexec et les propriétés de démarrage à contourner
' si l'utilisateur maintient la touche MAJ enfoncée lorsque l'utilisateur ouvre la base de données .
On Error GoTo errEnableShift
db As DAO.Database
Dim soutenir que DAO.Property
Const conPropNotFound = 3270 Photos Set db = CurrentDb ()
' Cette ligne de code suivante désactive la touche MAJ enfoncée au démarrage.
< p> db.properties ( " AllowBypassKey " ) = ' fonction réussie
sortie de Fonction: errEnableShift :
«Vrai
La première partie de cette erreur routine crée un «bien AllowBypassKey
" si elle n'existe pas.
Si Err = conPropNotFound Puis
Set prop = db.CreateProperty ( " le AllowBypassKey ", _ < br > dbBoolean , True)
db.Properties.Append prop
Resume Next
Else
MsgBox « ap_DisableShift ' Function n'a pas terminé avec succès. "
sortie de Fonction: End If End Function
12 Ouvrez Visual Basic Editor en appuyant sur la touche" ALT " et les touches "F11" de votre clavier à nouveau.
13 cliquez sur «Afficher », puis « fenêtre Exécution. "
14 type " ap_DisableShift " dans la fenêtre " immédiate " pour désactiver l'utilisation de la touche" Shift " .
|
