replace function

bonjour,

j'ai une base access sur laquel je souhaite par une query remplacer tous les retours chariot par un espace sur un champs donnée.

Je connais la fonction replace qui agit sur un champ de formulaire existe t-il un equivalent pour agir sur toutes une table quand on fait une query du style

Code:

---

select chp1, replace(chp2, chr(10), ' ') as chp2bis , chp3 FROM ...)

---

je sais qu'il existe une fonction pour remplacer les accent mais pas les retour chariot ?

Code:

---

SELECT * FROM MaTable WHERE SansAccent(MonChamp,True)=sansaccent("élève",true)

---

merci

Bonjour,

Si j'ai bien compris, en VBA:

Code:

---

CurrentDb.Execute "UPDATE [MaTable] SET [MonChamp] = Replace([MonChamp],chr(10), ' ') ;"

---

Bonne chance,
pgz

j'ai essayer ce code mais ça ne fonctionne pas, il update pas mon champs

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command0_Click() Dim rst As Recordset   Set rst = CurrentDb.OpenRecordset("SELECT RFW_tab.RFW_ref, RFW_tab.Comment_1 FROM RFW_tab WHERE (((RFW_tab.Comment_1) Like '*' & chr(13) & '*' ))") While rst.EOF = False CurrentDb.Execute "UPDATE RFW_Tab SET RFW_Tab.Type_lst = '" & Replace(rst!Comment_1, vbCrLf, " ") & "' WHERE RFW_Tab.RFW_ref = '" & rst!RFW_ref & "'" rst.MoveNext Wend End Sub

---

Quelle version d'access ? la fonction replace n'est pas disponible pour les requêtes en dessous d'XP.

Pour 2000, il faut dans un module réécrire la fonction (il s'agit d'un bug)

Code:

---

1 2 3 4 5

Function remplacer(chaine As String, cherche As String, nouveau As String) As String On Error GoTo err remplacer = Replace(chaine, cherche, nouveau, , , vbTextCompare) err: End Function

---

Un retour chariot est en fait composé de deux caractères : Le saut de ligne et le retour chariot à proprement parlé.

Soit :

Code:

---

UPDATE MATABLE SET MONCHAMP=REMPLACER(MONCHAMP,Chr(13) & Chr(10)," ")

---

Je ne vois pas pourquoi tu ouvres un recordset...

Essaie tout simplement ceci:

Code:

---

1 2 3 4

Private Sub Command0_Click()   CurrentDb.Execute "UPDATE MaTable SET MonChamp = Replace(MonChamp, vbCrLf, " ") ;" End Sub

---

pgz

Citation:

---

Envoyé par pgz

Je ne vois pas pourquoi tu ouvres un recordset...

Essaie tout simplement ceci:

Code:

---

1 2 3 4

Private Sub Command0_Click()   CurrentDb.Execute "UPDATE MaTable SET MonChamp = Replace(MonChamp, vbCrLf, " ") ;" End Sub

---

pgz

---

la fonction Replace n'est pas reconnue dans access 200 sous windows NT.

je suis donc obliger de passer par la fonction remplacer ci dessus decrite par Tofalu. et afin d'avoir le parametre monchamps de la fonction il faut bien un recordset

Citation:

---

Envoyé par tiopan

la fonction Replace n'est pas reconnue dans access 200 sous windows NT.

je suis donc obliger de passer par la fonction remplacer ci dessus decrite par Tofalu. et afin d'avoir le parametre monchamps de la fonction il faut bien un recordset

---

Hello,

Replace() est reconnue sous Access 2000 + Win NT (c'est mon ancien environnement avant Win 2000 Pro).

Le problème se situe peut être au niveau des réinitialisations de références ...
Il faut en ôter une puis la rétablir, ça permet parfois de retrouver l'usage de fonctions primaires de VBA.

http://access.developpez.com/faq/?page=Debug#MsgErrFct

en fait l'erreur ne viens pas du replace mais simplement du fait qu'avant de remplacer le retour chariot, il me faut remplacer le ' dans le champs sinon j'ai une erreur

mais comment faire car si je fais

Code:

---

1 2 3 4 5 6

'update ' Set rst = CurrentDb.OpenRecordset("SELECT RFW_tab.RFW_ref, RFW_tab.Comment_1 FROM RFW_tab WHERE (((RFW_tab.Comment_1) Like '*' & Chr(52) & '*' ))") While rst.EOF = False CurrentDb.Execute "UPDATE RFW_Tab SET RFW_Tab.comment_1 = '" & replace(rst!comment_1, Chr(52), " ") & "' WHERE RFW_Tab.RFW_ref = '" & rst!RFW_ref & "'" rst.MoveNext Wend

---

il me renvoit une erreur puisque il y a un ' dans le champs

donc mon problème est de savoir remplacer les ' par un espace

re hello,

en fait quand tu as un simple quote (') tu dois le remplacer par DEUX simple quotes.

regarde la méthode dans mon tutoriel :

http://cafeine.developpez.com/debugprint/#LVI-E

je suis désolé mais je n'y parvient vraiment pas
j'ai fait :

Code:

---

1 2 3 4 5 6

'update simple quote Set rst = CurrentDb.OpenRecordset("SELECT RFW_tab.RFW_ref, RFW_tab.Comment_1 FROM RFW_tab WHERE (((RFW_tab.Comment_1) Like '*" & Chr(180) & "*' ))") While rst.EOF = False CurrentDb.Execute "UPDATE RFW_Tab SET RFW_Tab.comment_1 = '" & Replace(rst!comment_1, "'", "''") & "' WHERE RFW_Tab.RFW_ref = '" & rst!RFW_ref & "'" rst.MoveNext Wend

---

chr(180) est selon l'aide access le code du simple quote, mais il m'en laisse encore dans mon champs.

comment puis je faire??

non 180 c'est : `

alors qu'en faisant

Code:

---

1 2	print Asc("'") 39

---

C'est donc 39 le code ASCII du simple quote ...

Citation:

---

Envoyé par cafeine

Code:

---

1 2	print Asc("'") 39

---

---

ok, merci je ne connaissait pas cette commande Asc