Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Administration - Désactiver le Shift

Désactiver et activer la touche Shift d'une base de données

Pour désactiver la touche Shift :

  • Créer une Macro nommée impérativement "Autoexec"
  • Choisir l'action "ExécuterCode"
  • Ecrire dans Nom fonction "DesactiveShift()"
  • Créer un module nommé par exemple "ModShift" contenant


Option Compare Database
Option Explicit


Function DesactiveShift()

On Error GoTo errProperty

Dim Dbs As DAO.Database

Dim Prp As DAO.Property

Set Dbs = CurrentDb()

Dbs.Properties("AllowByPassKey") = False


okProperty:

Set Prp = Nothing

Dbs.Close

Set Dbs = Nothing

Exit Function

errProperty:

Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False)

Dbs.Properties.Append Prp

Resume okProperty

End Function



Note :

Lors de la première ouverture, l'option de démarrage "Utiliser les touches spéciales d'accès" est décochée, interdisant ainsi l'usage de la touche Shift.


Pour réactiver la touche Shift :

- Dans une nouvelle base de données, copier/coller et exécuter la fonction ci-dessous :

Function ReactiverShift()

Dim bds As Dao.Database

Dim prp As Dao.Property

Set bds = DBEngine.OpenDatabase("C:\CheminBase_a_Deverrouiller.mdb")

bds.Properties("AllowBypassKey") = True

MsgBox bds.Name & " est de nouveau accessible."

Set prp = Nothing

bds.Close

Set bds = Nothing

End Function

 

Nota : Ces deux routines sont des Function xx() afin d'être appelables depuis une macro Autoexec. Comme on ne retourne aucune valeur, on aurait tout aussi bien pu les appeler Sub xx()

 

Date de création : 31/10/2005 : 17:47
Dernière modification : 13/11/2007 : 16:54
Catégorie : Administration
Page lue 10290 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut