Discussion :

[mosquitout]

A nouveau ce message qui avait été mal posté (meaculpa) !

Bonjour, ce message simplement pour porter à votre connaissance une constatation surprenante que je viens de faire !

Sur une form, j'ai un élément text destiné à recevoir un prix saisi. Je n'autorise donc que la saisie des chiffres et de la virgule. Lorsque j'enregistre la donnée en table access2000 (j'enregistre simplement Text.text), voici ce que j'obtiens :

Curseur utilisé - montant saisi - montant enregistré
adUseServer - 45 - 45,00
adUseServer - 45,12 - 45,12
adUseClient - 45 - 45,00
adUseClient - 45,12 - 4512,00 ???????

Dans ma table, il est simplement précisé que c'est une zone monétaire avec 2 décimale.
Tout marche donc très bien avec un db.CursorLocation = adUseServer
Mais bizarrement il semblerait qu'un db.CursorLocation = adUseClient ne prenne pas en compte une virgule saisie dans une zone text

Quelqu'un a une idée

Au passage j'en profite pour demander comment contrôler la saisie d'une virgule unique ? thanks

[Delbeke]

Une idée oui, un solution, non
Verifier ce qu'utilise le poste comme séparateur décimal a l'aide du paneau de configuration windows, options regionales

[mosquitout]

Ok, dans option régionales j'ai bien une virgule comme séparateur et 2 décimales par défault. Mais cela n'explique pas pourquoi, sur une même machine, simplement en changeant le type de curseur j'ai ce comportement

[ThierryAIM]

Ok, dans option régionales j'ai bien une virgule comme séparateur et 2 décimales par défault. Mais cela n'explique pas pourquoi, sur une même machine, simplement en changeant le type de curseur j'ai ce comportement

Si

Le 1er cas (adUseServer==Access) sait reconnaitre le format des options régionales et enregistre toujours les données avec un . comme séparateur décimal, le second (adUseClient==VB6), non

Fait un Replace(Text.text, ",", ".") avant d'enregistrer tes données dans Access ou lors de la saisie

[Delbeke]

Désolé , pas d'explication, c'est en effet curieux

[mosquitout]

Merci pour ces explications.
Cependant, ici le pb n'est pas d'avoir un point ou une virgule prise en compte lors de l'enregistrement dans la table access (là j'ai définie 2 décimale donc automatiquement j'aurai ces 2 décimales). Mais le pb est que avec 45,12 de saisi dans mon élément text, quand je valide et renseigne donc ma zone de table :

Rst05!EMontant = Text(3).Text

Quand je regarde le contenu de rst05!EMontant j'ai :

dans un cas le contenu est bien enregistré tel quel (45,12)
et dans l'autre cas c'est comme ci la virgule n'était pas lue (4512) !?

et le tout est donc inscrit dans access...

Enfin je sais pas si c'est clair

[sovo]

et si convertisais ton prix avant de l'envoyer dans la base de donnees. Tu aurais un truc du genre

Code :

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

Rst05!EMontant = CDec(Text(3).Text)

je croit qie ca devrais fonctionner quelque soit le curseur.