OVH Cloud OVH Cloud

Function Replace

2 réponses
Avatar
lio42
Bonjour,

La fonction replace n'existe pas dans l'SQL d'access 2000.
Alors j'ai fais un fonction Replace dans un module mais=20
le message suivant "Memoire insufissant Pile" affiche =E0=20
l'ex=E9cution de ma fonction replace dans la requete

voil=E0 code de mon module:
Option Compare Database
Public Function Replace(Var1, Var2, Var3)
Dim strResult As String
strResult =3D Replace(Var1, Var2, Var3)
End Function

Merci pour votre aide.
Lio42

2 réponses

Avatar
Raymond
Bonjour.

La fonction replace n'existe pas dans l'SQL d'access 2000


Affirmation erronée.

SELECT replace([prenom],"a","B") AS Resultat FROM Table1;

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


"lio42" a écrit dans le message de
news:187d01c372c9$c148c2f0$
Bonjour,

La fonction replace n'existe pas dans l'SQL d'access 2000.
Alors j'ai fais un fonction Replace dans un module mais
le message suivant "Memoire insufissant Pile" affiche à
l'exécution de ma fonction replace dans la requete

voilà code de mon module:
Option Compare Database
Public Function Replace(Var1, Var2, Var3)
Dim strResult As String
strResult = Replace(Var1, Var2, Var3)
End Function

Merci pour votre aide.
Lio42

Avatar
3stone
Salut,

lio42
La fonction replace n'existe pas dans l'SQL d'access 2000.
Alors j'ai fais un fonction Replace dans un module mais
le message suivant "Memoire insufissant Pile" affiche à
l'exécution de ma fonction replace dans la requete

voilà code de mon module:
Option Compare Database
Public Function Replace(Var1, Var2, Var3)
Dim strResult As String
strResult = Replace(Var1, Var2, Var3)
End Function


Modifie le nom de ta fonction... par exemple fReplace(...)
Car a partir de la première version Access 2000 la fonction "Replace"
existe bien dans le VBA, mais utilisable directement dans une requête.

Essaies donc :

Option Compare Database
Public Function fReplace(Var1, Var2, Var3)
Dim strResult As String
fReplace = Replace(Var1, Var2, Var3)
End Function


Et dans ta requete, tu utilise:

SELECT fReplace([prenom],"a","B") AS Resultat FROM Table1

--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------