IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Sécurité Discussion :

Un autre moyen que les procédures pour désactiver Shift


Sujet :

Sécurité

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Août 2008
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2008
    Messages : 27
    Par défaut Un autre moyen que les procédures pour désactiver Shift
    Bonjour,

    Est ce qu'il y aurait un autre moyen que les procédures pour désactiver la touche SHIFT au démarrage sous access 2007. J'ai essayé toutes les procédures que j'ai vu mais ça ne fonctionne pas. Merci de m'aider.

  2. #2
    Membre actif
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : Côte d'Ivoire

    Informations forums :
    Inscription : Novembre 2006
    Messages : 93
    Par défaut désactiver les touches spéciales
    salut Mauna

    pour désactiver les touche Shift, alt+f11, f11 tu as 2 procédures

    par exemple dans un module standard, tu colles ce code

    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
     
    Function ChangeProperty(dbs As DAO.Database, strPropName As String, _
        varPropType As Variant, _
        varPropValue As Variant) As Integer
     
        Dim prp As Variant
        Const conPropNotFoundError = 3270
     
        'Set dbs = CurrentDb
        On Error GoTo Change_Err
        dbs.Properties(strPropName) = varPropValue
        ChangeProperty = True
     
    Change_Bye:
        Exit Function
     
    Change_Err:
        If Err = conPropNotFoundError Then ' Property not found.
            Set prp = dbs.CreateProperty(strPropName, _
                varPropType, varPropValue)
            dbs.Properties.Append prp
            Resume Next
        Else
            ' Unknown error.
            ChangeProperty = False
            Resume Change_Bye
        End If
    End Function

    ensuite à la fermeture d'un formulaire, celui ci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
        Const DB_Boolean As Long = 1
        Const ValeurProp = -1       '0 pour désactiver les touches; -1 pour les activer
        intX = ChangeProperty(curentdb, "AllowSpecialKeys", DB_Boolean, ValeurProp)
    redemarre ton appli, ça devrait marcher

    bon dev

Discussions similaires

  1. Regrouper les procédure pour appeler des boutons
    Par Nanit6 dans le forum Excel
    Réponses: 11
    Dernier message: 09/08/2007, 11h35
  2. Autres beans que les form beans
    Par jeyce dans le forum Struts 1
    Réponses: 3
    Dernier message: 12/04/2007, 16h58
  3. Autre chose que les SSII
    Par Invité dans le forum Emploi
    Réponses: 18
    Dernier message: 25/08/2006, 13h36
  4. Réponses: 3
    Dernier message: 05/01/2006, 14h11
  5. Un autre moyen que les popups ?
    Par bdaboah dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 23/03/2005, 11h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo