Discussion :

[chuspyto]

bonjour,

y a t'il une fonction qui permet d'activer ou de desactiver un clavier( tout le clavier)? pour info j' ai un lecteur de badge qui me rempli une zone texte et en fonction de sa valeur, cela m'activerai le clavier ou le desactiverai.

merci

[LedZeppII]

Bonjour,

Pour un formulaire, tu peux utiliser l'aperçu des touches et la procédure événementielle "Sur touche activée" de ce formulaire.

Dans les propriétés du formulaire, onglet Evénements ...
Aperçu des touches : Oui
Sur touche activée : [Procédure événementielle]
A droite de [Procédure événementielle], cliquer sur [...]

Code :

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

1
2
3
Private Sub Form_KeyPress(KeyAscii As Integer)
If blnBloquerClavier Then KeyAscii = 0
End Sub

Déclarer la variable blnBloquerClavier dans la section Déclarations.

Code :

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

Dim blnBloquerClavier As Boolean

Ensuite tu bloques/debloques les touches en affectant True/False à la variable blnBloquerClavier.

A+

[chuspyto]

merci,que veux tu dire de declarer dans la section declaration le code n'est pas comme cela:

Code :

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

1
2
3
4
5
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim blnBloquerClavier As Boolean
If blnBloquerClavier Then KeyAscii = 0
end if
End Sub

merci

[LedZeppII]

Non, il faut que la variable ait une portée globale.
On la déclare donc dans la section Déclarations du module de code du formulaire.
Cet comme ça qu'on déclare une variable globale dans un module de code.

La section Déclarations s'étend du début d'un module de code jusqu'à la première Sub ou Function rencontrée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
 
' ________ Section Déclarations _________________
'
Dim blnBloquerClavier As Boolean
'
' ________ Fin Section Déclarations _____________
 
Private Sub Form_KeyPress(KeyAscii As Integer)
If blnBloquerClavier Then KeyAscii = 0
End Sub

A+

[chuspyto]

merci pour ton aide,est il faisable de l'inclure comme cela sachant que le remplissage de la zone texte se fait par un lecteur de badge magnetique.ce que j'aimerai c'est des la presence du badge ,mon clavier devient actif

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub zone_texte_AfterUpdate()
blnBloquerClavier = false
Select Case monLogin1.Value       
       Case Is = "A", "B", "C"                 
                 DoCmd.OpenForm "FORM1"
       Case Else
blnBloquerClavier = true
End Select
END SUB

merci

[LedZeppII]

Je ne suis sûr de comprendre précisément ce que tu veux faire.

Juste pour être sûr que nous nous comprenons ...
Ce que je t'ai donné n'est valable que pour un formulaire donné.
L'aperçu des touches permet d'intercepter les événements clavier, au niveau du formulaire,
avant que ces événements ne soient envoyés à un contrôle de ce même formulaire.
Cela n'aura aucun effet sur "FORM1" par exemple.

Questions pour mieux cerner ton but :
Comment le lecteur de badge écrit-il dans la zone de texte ?
J'espère qu'il ne simule pas des touches appuyées (comme avec SendKeys).

A quoi te sert de bloquer le clavier ? Que veux-tu protéger ?

A+