Discussion :

[tibofo]

Bonjour,
j'ai une zone texte correspondant à une qté. La base est utilisée sur un ordinateur portable sans pavé numérique. J'ai trouvé ce code dans la FAQ mais il ne marche pas dans mon cas. Je me mets en majuscule pour faire ma saisie des précédents champs, puis j'arrive dans le champs Qté (je suis donc toujours en majuscule) et je saisi mon nombre.

Exemple : je veux "12,23". 2 possibilités :
je tape 12.23 : le point apparait bien puisque je suis en majuscule mais je veux qu'il devienne une virgule
alors ce code VBA, il devient un "?" (puisque je suis en majuscule)

si je veux taper "12,23", comme je suis en majuscule, cela écrit "12?23"

Je suis avec des utilisateurs qui ne maîtrisent pas du tout l'informatique, le simple jonglage en saisie avec la touche SHIFT n'est pas une solution facile pour eux (Attention, je ne critique pas !! J'estime que c'est à la machine de s'adapter.... surtout jute pour un petit truc comme ça)

voici le code issus de la FAQ:

Code :

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

1
2
3
4
5
6
7
Private Sub QUANTITE_KeyDown(KeyCode As Integer, Shift As Integer)
 
If (KeyCode = 190) Then
    KeyCode = 188
End If
 
End Sub

Auriez-vous une solution ?

Merci

[curt]

Bonsoir Tibofo,

pourquoi ne pas utiliser le point décimal ??? Il est valide si tu es en majuscules activées.

(Il faut aller dans le panneau de configuration et les régléges régionaux.)

Curt

[LE VIEUX]

bonsoir,
si le ? ne gène pas tes utilisateurs, tu peux mettre sur un évènement le code suivant par ex:

Code :

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

1
2
3
4
5
Private Sub MonChamp_AfterUpdate()
x = Replace(Me.MonChamp, "?", ",")
Me.MonChamp = CDbl(x)
 
End Sub

[LedZeppII]

Bonjour,

Essaie avec l'événement "Sur touche activée"

Code :

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

1
2
3
4
Private Sub QUANTITE_KeyPress(KeyAscii As Integer)
   ' 46 = code ascii de "."
   ' 44 = code ascii de ","
   If KeyAscii = "46" Then KeyAscii = "44"

A+

[tibofo]

Bonsoir,
Je ne comprends pas : Access semble ne pas prendre ce code
KeyAscii.


Moi quand je presse la touche "." (sur le clavier, celle qui est en dessous du K et du L), KeyAscII= 190

et si j'enlève la majuscule, c'est le code 188 (pour la touche virgule)

Par contre, si je mets :

Code :

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

If KeyAscii = "190" Then KeyAscii = "188"

Là cela ne marche pas, car pour taper mes chiffres, je suis obligé de me mettre en majuscule. Donc qd je tape le ".", Access me met le "?"

Un truc de fou.

Y'a t-il un moyen de lui dire "passe en minuscule, affiche le "," puis repasse en majuscule ???


Merci

[LedZeppII]

Bonsoir,

Il ne s'agit pas du même événement.
Dans la faq c'est l'événement "sur touche appuyée"

Code :

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

Private Sub Controle_KeyDown(KeyCode As Integer, Shift As Integer)

Keycode est le code de la touche sur le clavier. Cette touche peut générer plus d'un caractère.


Moi je parle de l'événement "sur touche activée"

Code :

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

Private Sub Controle_KeyPress(KeyAscii As Integer)

KeyAscii est le code du caractère généré par la touche du clavier.

A+