Discussion :

[loutsky]

Bonjour,
Je cherche à ce que quand dans une zone de texte on appuie sur la touche ". Suppr" du clavier numérique, cela affiche un point et non une virgule.

J'ai le code suivant (à compléter) :

Code :

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

1
2
3
If (KeyCode = vbKeyDecimal) Then
KeyCode = ...
End If

Je n'arrive pas à trouver la constante pour le "." ou faire la combinaison de touche "Shift + ;"

Merci de votre aide

[stéphane_ais2]

Salut,

Regarde ça :
http://access.developpez.com/faq/?pa...lacerVirgPoint

a contrario... :

[loutsky]

Merci de ta réponse,
J'avais vu ce code mais en fait ce sont les codes des touches.
Pour faire un point dans une zone de texte, on est obligé d'appuyer sur "Shift + ;"
Le contraire du code précédent ne fonctionne donc pas.

[random]

le code du point est 046
celui du point 044
regarde tes paramètres régionaux

[loutsky]

Quand je met le code 44, il se passe rien
Le code 46 est comme si j'appuyais sur la touche "Suppr"
Faut regarder quoi dans les paramètres régionnaux? J'ai le clavier français. Tu les trouves où ces codes?

[snoopy69]

Tu les trouves où ces codes?

C'est le code Ascii ...

Bonne journée ...

[keita]

Essai ceci pour voir:

Code :

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

1
2
3
If (KeyCode = vbKeyDecimal) Then
    SendKeys "+"
End If

j'espere que ça marchera.
ps:ne me demende pas pourqoi? :

[argyronet]

Bonjour,

Bonjour,
Je cherche à ce que quand dans une zone de texte on appuie sur la touche ". Suppr" du clavier numérique, cela affiche un point et non une virgule....

Il suffit d'intercepter l'événement KeyPress de ta zone de texte:

Code :

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

1
2
3
4
5
Private Sub txtTest_KeyPress(KeyAscii As Integer)
Const VIRGULE = 44
Const POINT = 46
  If KeyAscii = POINT Then KeyAscii = VIRGULE
End Sub

En //, il faut mettre "Aperçu des Touches" à Oui dans les propriétés du formulaire

Argy

[loutsky]

Merci à tous les 2
Ca fonctionne.

[sabotage]

Bonjour,

Je me permets de faire remonter ce sujet car je ne parviens pas à ce que l'appui sur le point du verrouillage numerique donne un "." et non une ",".

En effet l'appui sur le point du pavé numérique renvoi le code caractere 46, tout comme l'appui sur shift+"."

Je ne vois donc pas bien comment les intervertir.

J'ai essayé d'utiliser sendkeys mais access s'affole et remplis ma zone en continu.