Discussion :

[ashurai]

Bonjour à tous,

J'ai une application access 2003, et je souhaiterais disposer du code et de la base.
Hors, lorsque j'ouvre mon .mdb, il éxécute automatiquement la macro autoexec, et l'appli se lance...
D'ordinaire, il suffit de laisser MAJ enfoncer pour éviter cette activation, mais, la ca ne marche pas..

Quelqu'un a une idée ?

Merci d'avance.

[ashurai]

Bon, j'ai trouvé que cela est lié à la propriété "AllowBypassKey", il me faudrait la remettre à TRUE...

Mais... je ne sais pas comment faire ...

Pliz, i need hailpe

[Tofalu]

Peut être que la touche Maj a été inhiber. Regarde la FAQ pour trouver un code qui t'aidera à la réactiver

[ashurai]

J'ai finis par trouver, je le post au cas ou ca aide, par ce que ce n'ai pas si évident à trouver :

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

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
23
24
25
26
 
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
Set Prp = Nothing
Dbs.Close
Set Dbs = Nothing
 
okProperty:
Exit Function
 
errProperty:
 
Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False)
Dbs.Properties.Append Prp
Resume okProperty
 
End Function

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 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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