Discussion :

[Pouf]

Bonjour à tous!

J'ais un petit problème de saisie avec un formulaire ASP, qui met à jour une base de donnée access!

Quand je rentre des chiffres de type 1000,00, tout ce passe bien!
Mais quand je rentre des chiffres de type 1000.00 la mise à jour ne s'effectue pas!
Je voudrais savoir si il y a moyen de pouvoir toujours entée mes données sous forme 1000.00 sachant que access transforme automatiquement le . en , !
Il faudrais le faire accepter par ASP! Pour cela j'ais besoin de vos conseils avisés!

Cordialement
Pouf

[Gwenn]

Salut,

lorsque tu recupere les données saisies, il suffit de faire :

Code :

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

Replace(variable, ".", ",")

avant l'insertion dans la base

[Pouf]

Il faut que je l'insert dans un emplacement special de mon code ASP?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<% 
Num=Request.Form("Numresumer")
Da=Request.Form("Dday")
Tot1=Request.Form("Tot55")
Tot2=Request.Form("Tot196")
Epi=Request.Form("Pepi")
Tepi=Request.Form("Totepi")
%>
 
<% DSN_BASE = "DBQ=" & Server.Mappath("bd1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
<% Set ConnLot = Server.CreateObject("ADODB.Connection")
ConnLot.Open DSN_BASE
Set RsLot = Server.CreateObject("ADODB.Recordset")%>
 
<% RequeteSQL = "Insert Into Epi (N_Resume, Date_de_facture, Total_Epi_55, Total_Epi_196, PVP_Epi, Total_Epi_TTC) Values (' " & Num & " ',' " & Da & " ',' " & Tot1 & " ',' " & Tot2 & " ',' " & Epi & " ',' " & Tepi & " ')"
RsLot.Open RequeteSQL , ConnLot%>
 
<% Set RsLot = Nothing
ConnLot.Close
Set ConnLot = Nothing%>

Merci!

[Immobilis]

Cela dépend peut-être de tes regionnal settings. Tu récupères une "," (français) au lieu d'un "." (Anglais).
A+

[Pouf]

Changer mes options regionnales! Cela me dérange un peu! Car si il faut faire cela sur plusieurs postes fixes et de nombreux postes mobiles ca devient tout de suite un peu compliquer à expliquer et à faire! :s

Amicalement
Pouf


Edit : J'ais essayer d'ajouter la ligne "Replace(variable, ".", ",")" un peu partout dans mon code et cela ne fonctionne toujours pas!
Merci de m'aider pour s'avoir ou inserer ce code! Merci

[NoisetteProd]

le mieux etant que tu comprenne ce que tu fais, et pas que l'on te dise ou mettre un code que tu ne comprends pas, je te propose d'aller lire ICI l'explication sur le fonction replace...

Tiens nous au courant !

[Immobilis]

Si ton champ est celui d'un nombre tu aura tjrs le mm pb. Il faut que tu le change en texte. Lors du traitement par tes pages utilises la fonction formatnumber.

A+

[Pouf]

J'ais compris ce que j'ais fait jusqu'a maintenant! Le problème c'est que ton lien je le comprend pas! Je comprend ce que fait cette fonction, mais je ne comprend pas à quel moment l'insérer! Donc si il faut comprendre autant le faire bien! Alors explique moi...


Ta solution marche Immobilis sauf que après lorsque les données sont exploités par la suite dans excel, la cela me crée un nouveau problème!!
Merci

Amicalement
Pouf

[Immobilis]

Changer mes options regionnales! Cela me dérange un peu! Car si il faut faire cela sur plusieurs postes fixes et de nombreux postes mobiles ca devient tout de suite un peu compliquer à expliquer et à faire!

C'est uniquement ceux du serveur qu'il faut les changer.

Si tu veux faire toutes tes saisies avec le "." sans bloquer la mise à jour la fonction replace comme cité plus haut te permet de le faire. Tu auras des "," dans ta BD.

Si tu ne veux pas avoir de "," dans ta base de données, il faut donc changer le type du champ de ta BD en texte (à cause des paramètres régionnaux du serveur). Tu auras des ".".

lorsque les données sont exploités par la suite dans excel, la cela me crée un nouveau problème!!

Lequel?

A+

[Pouf]

C'est bon j'ais trouver comment utiliser le replace!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
<% 
Num=Request.Form("Numresumer")
Da=Request.Form("Dday")
Tot1=Request.Form("Tot55")
Tot2=Request.Form("Tot196")
Epi=Request.Form("Pepi")
Tepi=Request.Form("Totepi")
%>
 
<% message=Request.querystring("saisie_epi")
 
Tot1=Replace(Tot1,".",",")
Tot2=Replace(Tot2,".",",")
Epi=Replace(Epi,".",",")
Tepi=Replace(Tepi,".",",")
%>
 
<% DSN_BASE = "DBQ=" & Server.Mappath("bd1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
 
<% Set ConnLot = Server.CreateObject("ADODB.Connection")
ConnLot.Open DSN_BASE
Set RsLot = Server.CreateObject("ADODB.Recordset")%>
 
<% RequeteSQL = "Insert Into Epi (N_Resume, Date_de_facture, Total_Epi_55, Total_Epi_196, PVP_Epi, Total_Epi_TTC) Values (' " & Num & " ',' " & Da & " ',' " & Tot1 & " ',' " & Tot2 & " ',' " & Epi & " ',' " & Tepi & " ')"
RsLot.Open RequeteSQL , ConnLot%>
 
<% Set RsLot = Nothing
ConnLot.Close
Set ConnLot = Nothing%>

Merci pour votre aide

[NoisetteProd]

Et tu vois, je suis sur que tu es plus heureux d'avoir trouvé seul comment faire que si je te l'avais dis !

Bon courage pour la suite !

Noisette !