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

Question

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...

Rajah174 · Answer

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

cs_AMP · Answer

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...

cs_AMP · Answer

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...

cs_AMP · Answer

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...

Rajah174 · Answer

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à.

Rajah174 · Answer

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

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

6 réponses

Discussions similaires