Remplacer "," par un "." dans textbox

**Chtulus** · 15/10/2009, 14h36

Bonjour,

Non, non, on ne rigole pas, je vais craquer là je crois

J'ai essayé tout ce qui mets passé par la tête mais là, voilà la dernière mouture, en plus ça doit être c** comme la lune :

Code :

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

1
2
3
Private Sub CLIENT_MAIL_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "," Or KeyAscii = 46 Then Chr(KeyAscii) = "."
End Sub

J'obtiens le message d'erreur

Erreur d'execution '424'

Objet requis

J'ai mis le num dot (46) car le point du clavier numérique m'affiche une virgule et me retourne la valeur 46 (Vu avec espion)

Sachant que je ne peux modifier les options régionales !

**lvz00** · 15/10/2009, 16h24

Salut

J'ai peut être une solution, pas très élégante, en deux temps:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Texte1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDecimal Then
      KeyCode = 0
      SendKeys "."
  End If
End Sub
 
Private Sub Texte1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 44 Then KeyAscii = 46
End Sub

L'évenement KeyDown intercepte un appui sur la virgule du numpad et le remplace par un point.

Le KeyPress change la virgule en point.

Mais il doit y avoir une feinte pour faire ça plus proprement en une seule passe...

Bonne chance

**Amani Roland** · 15/10/2009, 17h26

Bonjour,

Fonction te permettant de saisir l'email

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function AlphaNumeric(I As Integer) As Integer 'AlphaNumeric sans guillemets ni apostrophe mais espace possible
    Select Case I
        Case 8, 32, 37, 38, 40 To 43, 45 To 57, 64 To 122, 160
 
            strI = Chr(I)
 
            AlphaNumeric = Asc(UCase(strI))
        Case 44
            AlphaNumeric = 46
        Case Else
            DoCmd.CancelEvent
    End Select
End Function

Appel de la fonction

Code :

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

1
2
3
4
 
Private Sub CLIENT_MAIL_KeyPress(KeyAscii As Integer)
    KeyAscii = AlphaNumeric(KeyAscii)
End Sub

**jj4822** · 15/10/2009, 17h42

Bonjour.

Est-ce que je suis sur la bonne longueur d'onde ?

S'agit il de pouvoir saisir un . ou une , dans un champ textbox en tapant le separateur qui se trouve sur le clavier numerique ?

Je pense qu'en rajoutant du code VBA modifiant le format windows afin que le separateur decimal soit un '.' dans Windows, on resout le probleme. Il suffit de le faire avant d'ouvrir le formulaire.

Ainsi, plus de modif necessaire de signe.

Cdlt