Probleme erreur d'exécution

Question

Bonjour,
je cherchais un code pour pouvoir separer, les nombres entrés dans un textbox, par centaines et j'ai eu le code suivant : 
PrivateSub Text1_KeyPress(KeyAscii AsInteger)
Dim filtre AsString, toto AsString
If KeyAscii = 8ThenExitSub
 toto = Chr(KeyAscii)
 KeyAscii = 0
IfNot IsNumeric(toto)ThenExitSub
 filtre = "# "
For i = 1To6
   filtre = filtre & String(3, "#") & " "
Next
 Text1.Text = Trim(Format(Text1.Text & toto, filtre))
 Text1.SelStart = Len(Text1.Text)
EndSub
le probleme maintenant est que lorsque je veux inserer le nombre 5 000 000 saisie dans le champ du textbox, dans ma base de donnée j'ai l'erreur suivante :
Erreur d'exécution '-2147217900(80040e14)':
Erreur de syntaxe (opérateur absent) dans l'expression '5 000 000'.
Pourquoi cela et comment y remedier ?
Merci d'avance.

mortalino · Answer

salut, plus simple : Option Explicit Private Sub Text1_LostFocus() Text1.Text = Format(Text1.Text, "###,##0") End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique à toi d'adapter si décimale @++ le mystérieux chevalier,"Provençal, le gaulois"

mortalino · Answer

mal lu :

dans ma base de donnée j'ai l'erreur suivante :

quel est ton code ?
Transforme ta variable String en Long, et entoure la des quotes (') dans ta requête

@++

le mystérieux chevalier,"Provençal, le gaulois"

Renfield · Answer

j'aime pas trop que l'on force un Format...

passer par FormatNumber et FormatDateTime est une bonne habitude

bruce207 · Answer

Comment faire pour que lorsque j'utilise Format() je puisse aussi avoir des décimales, parce que par exemple si je tape :Text1.Text Format(Text1.Text, "### ### ###"), il n'est pas possible de saisir un nombre décimale ou si je tape Text1.Text Format(Text1.Text, "### ###.###"), là si je tape un chiffre il va directement à la virgule exemple 1236----> 1,236 Comment faire donc pour remedier à ça

Probleme erreur d'exécution

4 réponses

Votre réponse

Discussions similaires