C'est [...] d'accents...

Bien
J'ai une base access et je doit, au sein d'une macro, enlever tout les accents...
Yat 'il qqun qui sait Faire??
J'attend vos suggestion
AMP...

Salut!

utilise la fonction REPLACE
replace (<ton champ>,"é","e") par exemple
ceci pour tout tes caractères accentués.

voilà.

Ouai, j'avais essayé mais g tjs des tas d'erreur...
Je te joins mon pouv' code

Set Maj_EPCI = CurrentDb
Set Nom = Maj_EPCI!EPCI!nom_epci
DoCmd.OpenTable "EPCI"
Nom = Replace(EPCI!nom_epci, "é", "e")

Y me met bien sur "objet recquis"..
t'a une idée???
AMP...

Ouai, j'avais essayé mais g tjs des tas d'erreur...
Je te joins mon pouv' code

Set Maj_EPCI = CurrentDb
Set Nom = Maj_EPCI!EPCI!nom_epci
DoCmd.OpenTable "EPCI"
Nom = Replace(EPCI!nom_epci, "é", "e")

Y me met bien sur "objet recquis"..
t'a une idée???
AMP...

Ouai mais g des erreur (objet recquis)

Je te met mon pauv' code, si t'as une idée??

Set Maj_EPCI = CurrentDb
Set Nom = Maj_EPCI!EPCI!nom_epci
DoCmd.OpenTable "EPCI"
'Set nom = EPCI!nom_epci
Nom = Replace(EPCI!nom_epci, "é", "e")
AMP...

Essaye plutôt ceci :

'après avoir ajouté la DLL DAO comme référence dim rst as recordset Set rst = CurrentDb.Openrecordset("EPCI") 'on suppose que ta table s'appelle EPCI with rst .movefirst do while not .eof .edit 'on suppose que nom_epci est le nom de ton champ .fields("nom_epci") = Replace(.fields("nom_epci") , "é", "e") .update loop end with rst.close

Voilà.

ah oui!
j'ai oublié le .movenext entre les lignes .update et loop