Discussion :

[arawak]

Bonjour a tous,

Jai un enorme souci dans un formulaire de recherche.

Je realise une instruction SQL ( SELECT .... FROM... WHERE .....)

et dans ma clause where je recherche des reels (single).

Jusque là au cours de mon devellopeement, je ne tapais que des valeurs entieres dans mes textbox (je stocke dans une variable et j'utilise la fonction csng() ), pas de souci tout fonctionne.

J'ai depuis essayé des nombre decimaux et mon code plante au niveau de l'instruction SQL car mes variables single contiennent des virgules et mon instru sql me demande des points. Existe-t-il une manip pour eviter ce probleme?

Merci d'avance

[argyronet]

Bonjour,

Dans un module, tu colles cette fonction et dans ta requête tu écris ceci à la place de ton CSmpl(MonNombre)

Code :

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

1
2
3
4
5
6
Public Function ConvertToStringSingle(ByVal MyNumber As Variant) As String
Dim strTempNumber As String
 
  strTempNumber = Replace(CStr(MyNumber), ",", ".", 1, True, vbTextCompare)
  ConvertToStringSingle = strTempNumber
End Function

Code :

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

1
2
SELECT ConvertToStringSingle([MonNombre]) AS Expr1
FROM MaTable;

Argy

[Muhad'hib]

Salut,

Tu peux aussi utiliser la fnction replace(variable,",",".")

A+

[arawak]

Merci a tous pour vos réponses,

Le premier code fonctionne merci beaucoup a tous.

J'ai aussi trouvé un moyen d'eviter le probleme en passant par les parametres regionaux de windows! (c'est tout bête désolé....).


A+

[argyronet]

Tu peux aussi utiliser la fnction replace(variable,",",".")

J'ai l'impression que tu ne testes pas ce que tu suggères
Il n'y a pas de fonction Replace() dans le QBE...

J'ai aussi trouvé un moyen d'eviter le probleme en passant par les parametres regionaux de windows! (c'est tout bête désolé....).

Oui mais ça ne fonctionnera que sur ton poste... et sur ceux qui ont pris ces paramètres.

Argy

[Muhad'hib]

Re,

J'ai l'impression que tu ne testes pas ce que tu suggères

J'ai beau chercher, je ne vois pas où j'ai dis que la fonction devait être utiliser directement dans QBE. Je dissais juste qu'une piste était l'utilisation de cette fonction. Il semble d'ailleurs que ce soit ausi la fonction que tu as proposé d'utiliser, même si il n'y a pas de fonction Replace() dans le QBE

Mais je prends note de ta remarque, et j'essairais de plus détailler la prochaine fois.

A+