Discussion :

[orokham]

Bonjour,

Je ne trouve pas de réponse à mon pb et pourtant je pense qu'il n'est pas hyper compliqué.

Je souhaite sauvegarder par update (sql) un texte enrichi.
En texte brut je mettais """ xxx """ mais en texte enrichi cela plante.
Quel sont le ou les codes pour protéger tout un ensemble de balises Html ?

Merci



petit exemple :

Code :

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

1
2
3
4
    sql = "UPDATE Chiffrage SET désignation_chiff = """ & Me.w_texte & """ WHERE ref_chiff = " & Me.w_ligne & ""
    CurrentDb.Execute (sql)
    sql = "UPDATE Work_Chiffrage SET param_désignation = """ & Me.w_texte & """ WHERE param_code = '" & Me.w_code & "'"
    CurrentDb.Execute (sql)

la variable Me.w_texte est le texte enrichi.

qui prend la forme de ceci par exemple :

<div><font style="BACKGROUND-COLOR:#00FFFF">eeeeeeeeffffffff &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font><font
color=red><strong>&nbsp;&nbsp;fffffffffffffffff &nbsp;&nbsp;</strong></font><font
color=white style="BACKGROUND-COLOR:#008000">&nbsp;&nbsp;&nbsp;&nbsp;fffffffffffffff</font></div>

[loufab]

Bonjour,
C'est normal que ça plante. Tu as des double-cotes qui se baladent dans ton code Html. Il faut utiliser des simple-cote comme séparateur de chaine SQL.

Exemple :

Code :

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

    sql = "UPDATE Chiffrage SET désignation_chiff ='" & Me.w_texte & "' WHERE ref_chiff = " & Me.w_ligne & ""

Dans le cas ou tu utilises également des simples-cote dans ton code Html il faut penser à les doubler. Note que tu peux également faire ça avec des double-cotes.

Exemple :
Simple et double

Code :

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

    sql = "UPDATE Chiffrage SET désignation_chiff ='" & replace(Me.w_texte,""","""") & "' WHERE ref_chiff = " & Me.w_ligne & ""

Simple et simple

Code :

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

    sql = "UPDATE Chiffrage SET désignation_chiff ='" & replace(Me.w_texte,"'","''") & "' WHERE ref_chiff = " & Me.w_ligne & ""

Double et double

Code :

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

    sql = "UPDATE Chiffrage SET désignation_chiff =""" & replace(Me.w_texte,""","""") & """ WHERE ref_chiff = " & Me.w_ligne & ""

Bref de quoi tester.

Cordialement,

[orokham]

merci bien, je vais tester tout de suite.

[orokham]

merci bien, je vais tester tout de suite.

Le compilateur ACCESS 2010 refuse toutes tes solutions ... zut et zut

Une tite question ! Si on arrive à passer le Html par Sql c'est bien mais on perd le "texte" original de la mise en forme ? Donc cette mise en forme au rappel du texte n'est plus bonne ?

[LedZeppII]

Bonjour,

As-tu utilisé la fonction Replace(..) à la fois sur Me.w_texte et sur Me.w_code ?
Les deux sont susceptibles de contenir des guillemets.

A+

[loufab]

Le html est un langage, il ne contient pas de mise en forme mais que des balises.

Si le compilateur refuse c'est qu'il y a un problème de double-cote. Par contre si c'est SQL qui refuse à l'exécution c'est qu'il y a un problème de double ou simple cote.

[orokham]

Merci à tous pour vos réponses.

Quand je parlais de perte de mise en forme, je cite un exemple :

- cette mise en forme : <font style="BACKGROUND-COLOR:#00FFFF">
- Admettons qu'en sql j'y arrive (ce qui n'est pas le cas) et que cela devienne avec un replace (xxx,""","$") :

- <font style=$BACKGROUND-COLOR:#00FFFF$> ==> je pense que cette balise n'est plus 'comprise' par le Html ...

Mais quand Microsoft à ajouté cette fonctionnalité de texte enrichi, cela me semble impossible qu'ils n'aient pas pensé à pouvoir 'véhiculer' ces données avec aisance dans access.

J'ai aussi remarqué que le texte enrichi n'est pas traduit dans les listbox. Si on enrichi du texte il se promène avec toutes ses balises dans les menus !!! pff pas beau du tout.


Concernant Sql et les "" ou """ ou '" .. c'est le compilateur qui refuse toutes les combinaisons. Dire que j'ai acheté Access 2010 pour ces fonctionnalités la

[Jean-Philippe André]

salut,

peut-on voir le contenu sql de la requete actuellement utilisée stp ?

selon le niveau d'erreur, tu peux envisager :
- de transformer temporairement tes quotes (simples ou doubles) par d'autres caractères
- de découper ton remplacement en plusieurs étapes

[loufab]

Bonjour,

D'une part tu confond texte enrichi et html.

Le texte enrichi c'est du RTF (Rich Text Format) alors que le Html c'est de l'Hypertext Markup Langage. ça n'a rien à voir. ACCESS sait afficher la mise en forme RTF mais n'imterprète pas l'Html, pour cela il te faut un ACTIVE X, comme celui d'IE.

Que tu stockes les fables de la fontaine, de l'html du rtf ou même du code C pour ACCESS c'est pareil, ça reste du texte. Donc je ne vois pas pourquoi tu cherches à contourner un problème de syntaxe qui est de ton seul fait (en remplaçant des " par des $... et lorque tu va rencontrer des $ tu vas les remplacer par quoi ?!)

Commence par respecter la règle VBA, 'tout caractère spécial doit être doublé" Il y a d'ailleurs un tuto sur le débogage des requêtes en VBA.

Comme tu le vois le problème ne vient ni de Microsoft ni d'ACCESS 2010 et encore moins de SQL, c'est simplement un problème de connaissance.

Tu n'a plus qu'à poster ton code.

Cordialement,

[orokham]

Je met l'image complète de la petite application que je fait et vous verrez l'erreur.





http://i46.servimg.com/u/f46/13/66/36/55/ex0111.jpg

http://i46.servimg.com/u/f46/13/66/36/55/ex0210.jpg

Dans cette partie de code je cherche seulement à "passer" mon texte enrichi dans une table en sql. (Sans perdre le texte enrichi car actuellement je l'enlève avec plaintext)

[LedZeppII]

Bonjour,

J'ai essayé comme ci-dessous et ça fonctionne.

Hypothèses :
Chiffrage.désignation_chiff est alphanumérique
Chiffrage.ref_chiff est numérique
Work_Chiffrage.param_désignation est alphanumérique
Work_Chiffrage.param_code est alphanumérique

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
Dim sql As String
Dim sw_texte As String, sw_ligne As String, sw_code As String
 
    sw_texte = Replace(Nz(Me.w_texte, ""), "'", "''")
    sw_ligne = Str(Nz(Me.w_ligne, 0))
    sw_code = Replace(Nz(Me.w_code, ""), "'", "''")
 
    sql = "UPDATE Chiffrage SET désignation_chiff = '" & sw_texte & "' WHERE ref_chiff = " & sw_ligne
    ' Pour déboguer on peut mettre un Debug.Print
    ' Debug.Print sql
    CurrentDb.Execute sql
 
    sql = "UPDATE Work_Chiffrage SET param_désignation = '" & sw_texte & "' WHERE param_code = '" & sw_code & "'"
    ' Pour déboguer on peut mettre un Debug.Print
    ' Debug.Print sql
    CurrentDb.Execute sql

A+

[orokham]

1 mot .. LedZeppII = GEANT.

Merciiiii.

Sans vouloir tirer trop sur la corde, tout les codes apparaissent maintenant dans la listbox.
Y a t il un moyen de mettre une textbox en texte enrichi aussi ?

Merci merci

[LedZeppII]

Bonjour,

Le format texte enrichi n'existe que pour les zones de texte.
Propriété «Format du texte» dans l'onglet «Données» de la feuille de propriétés de la zone de texte.

Pour une zone de liste, il faut convertir en texte brut.
Par exemple :

Code sql :

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

SELECT Chiffrage.ref_chiff, PlainText([Chiffrage].[désignation_chiff]) AS des_chiff FROM Chiffrage

A+

[orokham]

Merci .. Super !!
Et bonne journée à tous.