Inhiber la touche shift à l'ouverture d'une base

**faiglon** · 12/07/2006, 16h45

Bonjour à tous

J'ai lu avec attention le tutoriel pour inhiber/aciver la touche "shift" au démarrage (le code est ci-dessous).

Cependant, quelqu'un peut-il m'expliquer où placer ce code pour qu'effectivement, la touche soit désactivée ? Je ne maitrise pas très bien cet outil.

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
27
28
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Sub UnSetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub
 
Function ChangeProperty(strPropName As String, varPropType As Long, varPropValue As Variant) As Integer
    Dim dbs As Database, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Propriété non trouvée.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
Else
  ' --Erreur inconnue.
  Resume Change_Bye
End If
End Function

Je vous remercie bien

et vous souhaite à tous une agréable après midi....!

F AIGLON

**chrifo** · 12/07/2006, 17h02

Bonjour,
J'ai essayé en lançant le code depuis la macro autoexec, ça à l'air de fonctionner.

**faiglon** · 12/07/2006, 17h06

comment créer-t-on la macro autoexec ?

**faiglon** · 12/07/2006, 17h12

en fait j'arrive à créer une macro appelée "autoexec" mais quelle est la fonction pour lui faire exécuter du code ?

merci pour votre aide

**chrifo** · 13/07/2006, 09h13

Dans la macro, vous devez ajouter une instruction "ExecuterCode", et en nom de fonction mettre "SetBypassProperty()".

Nota : Dans votre code, SetBypassProperty() est une "sub", il vous faut en faire une fonction (concrètement, remplacez "sub" par "function")

**torNAdE** · 13/07/2006, 09h28

voila j ai essayé ce code en changeant le sub en function le probleme c est que qd j'ouvre la base tout en maintenant la touche shift enfoncé rien ne se passe c est a dire que y a pas de plus lors de l execution de cette fonction.

je penses que la touche shift reste encore non inhibée.

**chrifo** · 13/07/2006, 09h39

Je peux vous assurer que ça fonctionne avec Access 2003, simplement en lançant la fonction dans l'autoexec.
Lance ta macro 1 fois manuellement, puis sors de l'appli et essaye de l'ouvrir avec shift ...
torNAdE : Peux-tu essayer et me confirmer ?

**torNAdE** · 13/07/2006, 09h48

eh bien j ai fermé et j ai ouvert la base mais pas de changements,
Question:normalement la fonction shift + entrée ouvre la base de données tout en affichant la fenetre des données celle ou il y a l'ajout des tables etc...
c'est ca non ?

**chrifo** · 13/07/2006, 09h53

Oui, ça inhibe qq trucs comme la commande "MasquerFenêtre" au démarrage
Tu as bien lancé la macro manuellement 1 fois ?

**torNAdE** · 13/07/2006, 09h57

Bon voila finalement ce que je peux en couclure,
j ai creer deux bases de données la premiere j ai desactiver l'affichage de la fenetre de la base de données par Options-->demarrage
dans la deuxieme j ai fait la meme chose et j ai ajouter le macro Autoexec contenant l'action executerCode et dont le dernier pointe sur une module contenant la fonction d'inhibation de la touche shift.

j ai ouvert chaque base avec shift+entrée
resultat:
la premiere base est ouvrte en affichant la fenetre de base de données quand a la deuxieme elle est restée cachée.

DONC CETTE FONCTION MARCHE TRES BIEN.

Desolé chrifo t'as raison elle est nickel et en plus j'en avais besoin de cette fonction. Merci encore.

**torNAdE** · 13/07/2006, 10h32

voila un autre prob si je desactive la fenetre de base de données par Options-->demarrage quand un utilisateur ouvre la base il peut reactiver cette option et reouvrir la base avec la touche shift et blouf la fenetre reapparait.
donc je penses que c est pas tres commode cette fonction d'inhibation.