replace function

**tiopan** · 13/10/2005, 16h05

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 :

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

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 :

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

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

merci

**pgz** · 13/10/2005, 16h56

Bonjour,

Si j'ai bien compris, en VBA:

Code :

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

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

Bonne chance,
pgz

**tiopan** · 13/10/2005, 17h00

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

Code :

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

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

**Tofalu** · 13/10/2005, 17h32

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 :

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

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 :

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

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

**pgz** · 13/10/2005, 17h38

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

Essaie tout simplement ceci:

Code :

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

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

pgz

**tiopan** · 13/10/2005, 17h56

Envoyé par pgz

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

Essaie tout simplement ceci:

Code :

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

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

**cafeine** · 13/10/2005, 20h05

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

**tiopan** · 13/10/2005, 20h24

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 :

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

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

**cafeine** · 13/10/2005, 20h30

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

**tiopan** · 14/10/2005, 11h20

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

Code :

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

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