OVH Cloud OVH Cloud

RECHERCHE REMPLACER VBA

32 réponses
Avatar
OD
Pour tous les enregistrements d'un champ dans ma table je=20
souhaite Rechercher et remplacer une cha=EEne, le tout en VBA

Merci de votre aide

OD

10 réponses

1 2 3 4
Avatar
Pierre CFI
bonjour
quelle version d'access ??

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message de news:
2e1801c370a1$52d237e0$
Pour tous les enregistrements d'un champ dans ma table je
souhaite Rechercher et remplacer une chaîne, le tout en VBA

Merci de votre aide

OD
Avatar
OD
2000 merci
-----Message d'origine-----
bonjour
quelle version d'access ??

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message
de news:

2e1801c370a1$52d237e0$
Pour tous les enregistrements d'un champ dans ma table je
souhaite Rechercher et remplacer une chaîne, le tout en
VBA


Merci de votre aide

OD


.



Avatar
OD
MERCI JE FONCE , néanmoins si tu as en tête la syntaxe et
un exemple de la rédaction compléte je prends


-----Message d'origine-----
..../...
regarde la fonction Replace en vba, çà fait l'affaire

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Pierre CFI" a écrit dans le
message de news:


bonjour
quelle version d'access ??

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le
message de news:


2e1801c370a1$52d237e0$
Pour tous les enregistrements d'un champ dans ma table
je


souhaite Rechercher et remplacer une chaîne, le tout en
VBA



Merci de votre aide

OD





.




Avatar
Pierre CFI
.../..
avec F1, pas de pb, par contre cette fonction n'existait pas en access 97

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message de news:
067e01c3711b$f704f9e0$
MERCI JE FONCE , néanmoins si tu as en tête la syntaxe et
un exemple de la rédaction compléte je prends


-----Message d'origine-----
..../...
regarde la fonction Replace en vba, çà fait l'affaire

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"Pierre CFI" a écrit dans le
message de news:


bonjour
quelle version d'access ??

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le
message de news:


2e1801c370a1$52d237e0$
Pour tous les enregistrements d'un champ dans ma table
je


souhaite Rechercher et remplacer une chaîne, le tout en
VBA



Merci de votre aide

OD





.




Avatar
OD
APRES VISITE DU SITE
J'ai trouvé des éléments mais je bute toujours sur sintaxe
pour definir objet je pense

[transitoire3] LA TABLE
[REF PTH] LE CHAMP

Function ESSAI()
Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")
End Function
Avatar
Pierre CFI
Function ESSAI()
CurrentDb.Execute "Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")"
End Function

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message de news:
058901c37123$e7d2ece0$
APRES VISITE DU SITE
J'ai trouvé des éléments mais je bute toujours sur sintaxe
pour definir objet je pense

[transitoire3] LA TABLE
[REF PTH] LE CHAMP

Function ESSAI()
Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")
End Function
Avatar
OD
Merci de ton aide, mais cela ne fonctionne toujours pas.
J'ai ajouté double guillemts pour qu'il accepte ma saisie
mais cela plant tout de même.

merci de me proposer une ultime solution

CurrentDb.Execute "Update [TRANSITOIRE3] Set
[TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], ""AI"", ""PTH"")"
-----Message d'origine-----
Function ESSAI()
CurrentDb.Execute "Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")"
End Function

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message
de news:

058901c37123$e7d2ece0$
APRES VISITE DU SITE
J'ai trouvé des éléments mais je bute toujours sur sintaxe
pour definir objet je pense

[transitoire3] LA TABLE
[REF PTH] LE CHAMP

Function ESSAI()
Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")
End Function


.



Avatar
Pierre CFI
.../...
et
CurrentDb.Execute "Update [TRANSITOIRE3] Set
[REF PTH] = Replace([REF
PTH], 'AI', 'PTH')"


--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message de news:
07b101c37144$0bac1e50$
Merci de ton aide, mais cela ne fonctionne toujours pas.
J'ai ajouté double guillemts pour qu'il accepte ma saisie
mais cela plant tout de même.

merci de me proposer une ultime solution

CurrentDb.Execute "Update [TRANSITOIRE3] Set
[TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], ""AI"", ""PTH"")"
-----Message d'origine-----
Function ESSAI()
CurrentDb.Execute "Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")"
End Function

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message
de news:

058901c37123$e7d2ece0$
APRES VISITE DU SITE
J'ai trouvé des éléments mais je bute toujours sur sintaxe
pour definir objet je pense

[transitoire3] LA TABLE
[REF PTH] LE CHAMP

Function ESSAI()
Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], "HAI", "PTH")
End Function


.



Avatar
od
Mon cher ami merci de t'accrocher à mon problèmme...
Mais j'ai toujours un bug

CurrentDb.Execute "Update [TRANSITOIRE3] Set[REF PTH] =
Replace([REF PTH], 'HAI', 'PTH')"
-----Message d'origine-----
..../...
et
CurrentDb.Execute "Update [TRANSITOIRE3] Set
[REF PTH] = Replace([REF
PTH], 'AI', 'PTH')"


--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message
de news:

07b101c37144$0bac1e50$
Merci de ton aide, mais cela ne fonctionne toujours pas.
J'ai ajouté double guillemts pour qu'il accepte ma saisie
mais cela plant tout de même.

merci de me proposer une ultime solution

CurrentDb.Execute "Update [TRANSITOIRE3] Set
[TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]![REF
PTH], ""AI"", ""PTH"")"
-----Message d'origine-----
Function ESSAI()
CurrentDb.Execute "Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]!
[REF


PTH], "HAI", "PTH")"
End Function

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"OD" a écrit dans le message
de news:

058901c37123$e7d2ece0$
APRES VISITE DU SITE
J'ai trouvé des éléments mais je bute toujours sur
sintaxe


pour definir objet je pense

[transitoire3] LA TABLE
[REF PTH] LE CHAMP

Function ESSAI()
Update [TRANSITOIRE3]
Set [TRANSITOIRE3].[REF PTH] = Replace([TRANSITOIRE3]!
[REF


PTH], "HAI", "PTH")
End Function


.




.




Avatar
Raymond
Bonsoir.

je m'immisce.
peux-tu lancer avec cette syntaxe ?
CurrentDb.Execute "UPDATE [TRANSITOIRE3] SET [TRANSITOIRE3].[REF PTH] Replace([TRANSITOIRE3]![REF PTH],'HAI','PTH');"

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"od" a écrit dans le message de
news:013101c37172$2dcf8110$
Mon cher ami merci de t'accrocher à mon problèmme...
Mais j'ai toujours un bug

CurrentDb.Execute "Update [TRANSITOIRE3] Set[REF PTH] Replace([REF PTH], 'HAI', 'PTH')"
1 2 3 4