Discussion :

[Konami15]

Bonjour,

J'ai un formulaire avec une textarea. La valeur de la textarea doit être enregistré dans une base de données access.
Quand je clique sur le bouton "Enregistrer" de mon formulaire, des retour chariot se créés et dans ma table j'ai ça :

</br> </br>

Mon code :
la textarea en question :

Code :

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

1
2
3
4
5
6
7
 
	<p class="ctrl_gauche">Commentaire : <FONT size="2">(255 caractères maximum)</FONT>	</br>
	<textarea name="general_comment" rows="3" cols="35">
	<%if Request.Form("general_comment")<>"" then
		Response.Write Request.Form("general_comment")
	end if%>
	</textarea></p>

traitement de la textarea

Code :

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

1
2
3
4
5
6
7
8
9
10
11
			if len(Request.Form("general_comment"))=>3 then					'insertion du commentaire
				comment_general=Trim("" & Request.Form("general_comment"))
				comment_general=replace(comment_general, vbcrlf,"</br>")
				comment_general=replace(comment_general,"'","''")
				insert_comment="INSERT INTO tb_commentaire (hor_horaire, commentaire, date_com, heure_com) "
				insert_comment= insert_comment & "VALUES('"& hor & "', '" & comment_general & "', '" & date_du_jour & "', '" & heure_reel & "');"
				connexion.execute(insert_comment)
				if err<>0 then
					Response.Write err.Description & "</br>"
				end if
			end if

Merci d'avance.

[Immobilis]

Salut,

C'est quoi la question?

A+

[Konami15]

Ah désolé, j'avais pas eu le temps de relire mon post.

Je voudrai que quand la textarea est vide, enfin que l'utilisateur n'a rien entré, ça n'enregistre pas la valeur

</br> </br>

.

[vva]

il faut remplacer le retour chariot par du vide

Txt = Replace(request.form("matextarea"),Chr(13), "")

[Konami15]

J'y ai pensé mais je fais déjà ça :

Code :

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

comment_general=replace(comment_general, vbcrlf,"</br>")

si je fait ce que tu m'as dit à ce moment là dans ma db je n'aurai plus les br, et quand je voudra le réafficher il n'y aura plus de mise en forme.

[roro06]

Bonjour

Juste une remarque :

</br>

Si tu mettais plutôt (non, pas le chien) :

Code :

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

<br/>

[roro06]

D'autre part :

<textarea name="general_comment" rows="3" cols="35">
<%if Request.Form("general_comment")<>"" then
Response.Write Request.Form("general_comment")
end if%>
</textarea>

écrit comme tu l'as écrit, si tu testes ton code, et si ton Request.Form("general_comment") est vide, tu remarquera que ton textarea n'est pas vide, il contient des tabulations et deux retours chariots, que tu retrouve donc après la soumission de ton formulaire. Par contre, si tu mets tout sur une seule ligne :

Code :

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

<textarea name="general_comment" rows="3" cols="35"><%if Request.Form("general_comment")<>"" then Response.Write Request.Form("general_comment") end if%></textarea>

ton problème devrait s'arranger.

[Konami15]

Merci beaucoup, ça c'est arrangé effectivement.