[ACCESS 2003] Macro AUTOEXEC

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.

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

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

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:

---

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:

---

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

---