Inhiber la touche MAJ au démarrage

**cassidy** · 12/06/2006, 17h17

salut ,

je souhaite empecher l'accès à ma bd access aux utilisateurs qui appuye sur la touche schift au lancement de l'application. j'ai trouvé dans les FAQ le sujet "Inhiber la touche MAJ au démarrage" qui contient le code pour faire cela, mais je ne vois pas comment utilisé ce code!!!
Quelqu'un peut il m'aider?

**temar** · 12/06/2006, 19h50

Salut,

J'utilise une fonction bien sympatique, que j'ai récupéré de mon prof de TP (je sais pas s'il la écrit ou récupéré ailleurs, mais je sais qu'il a déja puisé sur ce forum

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function DefinirToucheMAJ(strBaseDeDonnees As String, blnEtat As Boolean)
Dim db As DAO.Database
Dim prp As DAO.Property
Dim blnResultat As Boolean
Const PROPRIETE_NON_TROUVEE = 3270
'Ouvrir la base de données
If Dir(strBaseDeDonnees) = "" Then
MsgBox "Base de données introuvable", vbExclamation
Exit Function
End If
Set db = opendatabase(strBaseDeDonnees)
'Définir la propriété
On Error Resume Next
db.Properties("AllowByPasskey") = blnEtat
If Err.Number = PROPRIETE_NON_TROUVEE Then
Set prp = db.createproperty("allowbypasskey", dbboolean, blnEtat)
db.Properties.Append prp
End If
'Libérer les objets
db.Close
Set db = Nothing
End Function

Donc, t'aurais un formulaire, avec un bouton parcourir pour choisir la BDD à protéger, deux boutons radio de choix (activer MAJ ou désactiver MAJ).
Un bouton d'action, sur lequel tu appelles la fonction ci-dessus (moi je l'ai mise dans un module)...

Bon courage

A+

**FreeAccess** · 12/06/2006, 19h53

Bonjour,
Si mes souvenirs sont encore bons

Tu tape tout le code donné en exemple dans un module, et dans une macro autoexec tu appelle la fonction par:
Action : ExécuterCode
Nom Fonction : SetBypassProperty()

Voila en gros le principe

Maintenant, si tu veux vraiment empêcher l'accés à ta base, pour en protéger le code, tourne toi plutôt vers un fichier mde
Bonne continuation

**cassidy** · 13/06/2006, 17h31

salut,
j'ai copié le code proposé dans la FAQ dans un module et lorsque je crée la macro autoexec : à "nom de la fonction" je ne que la fonction "ChangeProperty()" peut être que "SetBypassProperty()" et "UnSetBypassProperty()" ne s'affiche pas là bas par ce que se sont des procedures et non des fonctions.

2- j'ai essayé autre chose en declarant dans le module "SetBypassProperty()" et "UnSetBypassProperty()"plutot comme des functions et non des procedures, et dès lors ,dans la conception de la macro autoexec,après avoir choir "executercode" à nom function je vois les 3 functions SetBypassProperty()" , "UnSetBypassProperty()" et ChangeProperty()" .et je peux selectionner enfin "SetBypassProperty()" . mais au relancement de mon application j'ai le message d'erreur suivant: " Erreur de compilation : type nom defini" et la fonction ChangeProperty() ets marquée en jaune.

pouvez vous m'aidez avec les etapes à suivre pour appliquer le code spacifier dans la faq pour inhiber la touche maj!!!

**FreeAccess** · 13/06/2006, 20h07

Bonjour,
Ci dessous un code trouvé je ne sais plus très bien ou

Tape ce code dans un module et appelle la fonction dans ta base au démarrage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function DesactiveShift()
    On Error GoTo errdesactiveshift
    Dim DB As Database
    Dim prop As Property
    Const conPropPasTrouve = 3270
    Set DB = CurrentDb()
    DB.Properties("AllowByPassKey") = False
    Exit Function
errdesactiveshift:
    If Err.Number = conPropPasTrouve Then
        Set prop = DB.CreateProperty("AllowbypassKey", dbBoolean, False)
        DB.Properties.Append prop
        Resume Next
    Else
        MsgBox "Erreur: " & Err.Description
        Exit Function
    End If
End Function

Ce code fonctionne, l'ayant déjà utilisé dans plusieurs applications.

Bonne continuation et au passage merci à celui qui avais mis ce code à disposition

**cassidy** · 14/06/2006, 12h53

salut,
freeAccess, j'ai tapé ton code dans un module et j'ai appeler la fonction dans la macro autoexec car je ne sais pas dans quelle partie du code je vais l'appeler? peut être au load de mon 1ere formulaire? en tout cas en appelant dans la macro autoexec,au demarrage de l'application j'ai ce message d'erreur:
"type non defini" et la ligne "Dim DB As Database " est mise en subrillance bleue

que faire?