Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Replace

Replace

14 réponses
Avatar
PatCatNat's
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2=20
apostrophes =E0 la place d'une seul dans cha=EEne de=20
caract=E8res d'un contr=F4le Acteurs.

Mais =E7=E0 ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe =3D Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond [mvp]
Bonsoir.

vu comme ça, c'est bon.
ça te donne quoi ? un truc nouveau ? un plantage ?
sous quelle version access es-tu ? en 97, ça ne fonctionne pas et il faut
mettre une fonction spéciale dans le code ( voir page :
http://access.vba.free.fr/replace.htm )
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message
de news: 2f6d01c4a7d2$e5c3ed50$
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2
apostrophes à la place d'une seul dans chaîne de
caractères d'un contrôle Acteurs.

Mais çà ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe = Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice
Avatar
PatCatNat's
c une appli que je développe sous 2003

çà ne renvoie aucun message d'erreur, sauf si le champ est nul (ce qui est
logique), mais ne fait rien...
j'ai aussi essayé sur un autre contrôle au cas où, mais ne fait rien...
avec des lettres au cas où) mais ne fait rien...

Tout celà laisserait à penser que celà fonctionne mais nothing...

As tu une idée ?

Patrice

(PS : le blocage du rapatriement de mes News vient de mon antivirus !)

"Raymond [mvp]" a écrit dans le message de
news:%
Bonsoir.

vu comme ça, c'est bon.
ça te donne quoi ? un truc nouveau ? un plantage ?
sous quelle version access es-tu ? en 97, ça ne fonctionne pas et il faut
mettre une fonction spéciale dans le code ( voir page :
http://access.vba.free.fr/replace.htm )
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le
message

de news: 2f6d01c4a7d2$e5c3ed50$
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2
apostrophes à la place d'une seul dans chaîne de
caractères d'un contrôle Acteurs.

Mais çà ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe = Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice




Avatar
Raymond [mvp]
Pour être sûr qu'il n'y a pas de bétises dans ton champ, fais un essai:
msgbox replace("aujourd'hui", "'","''")
si toujours problème, vérifies les références, au cas où .

(PS : le blocage du rapatriement de mes News vient de mon antivirus !)
(il te manque les questions sur l'autre conversation)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de news:
cjk2p2$alh$
c une appli que je développe sous 2003

çà ne renvoie aucun message d'erreur, sauf si le champ est nul (ce qui est
logique), mais ne fait rien...
j'ai aussi essayé sur un autre contrôle au cas où, mais ne fait rien...
avec des lettres au cas où) mais ne fait rien...

Tout celà laisserait à penser que celà fonctionne mais nothing...

As tu une idée ?

Patrice


Avatar
PatCatNat's
J'ai pris ta méthode de vérif (sympa d'ailleurs !) avec le contenu de mon
champ et celà fonction pour le MsgBox, mais pas pour mes contrôles...

MsgBox Replace("Edward Norton, Edward Furlong, Fairuza Balk, Beverly
D'Angelo, Avery Brooks, Stacy", "'", "''") ' çà marche
Apostrophe = Replace(Me.Acteurs, "'", "''") ' çà ne marche pas

si toujours problème, vérifies les références, au cas où .
==> c quoi s'te bête là ? où est sa tannière ?


(PS : le blocage du rapatriement de mes News vient de mon antivirus !)
(il te manque les questions sur l'autre conversation)
==> oui et notamment une de tes réponses importantes à "Séparateur (bis)"

dont le sujet ci-dessus en fait parti.... que j'ai retrouvé sur le net...

Merci

Patrice

"Raymond [mvp]" a écrit dans le message de
news:
Pour être sûr qu'il n'y a pas de bétises dans ton champ, fais un essai:
msgbox replace("aujourd'hui", "'","''")
si toujours problème, vérifies les références, au cas où .

(PS : le blocage du rapatriement de mes News vient de mon antivirus !)
(il te manque les questions sur l'autre conversation)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de news:
cjk2p2$alh$
c une appli que je développe sous 2003

çà ne renvoie aucun message d'erreur, sauf si le champ est nul (ce qui
est


logique), mais ne fait rien...
j'ai aussi essayé sur un autre contrôle au cas où, mais ne fait rien...
avec des lettres au cas où) mais ne fait rien...

Tout celà laisserait à penser que celà fonctionne mais nothing...

As tu une idée ?

Patrice







Avatar
Raymond [mvp]
si ça marche pour le msgbox, c'est bon.
il y a un truc dans ton Me.acteurs
fais:
MsgBox Me.Acteurs
MsgBox Replace(Me.Acteurs, "'", "''")
Apostrophe = Replace(Me.Acteurs, "'", "''")
Msgbox Apostrophe
ça donne quoi ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de news:
cjk57m$h3d$
J'ai pris ta méthode de vérif (sympa d'ailleurs !) avec le contenu de mon
champ et celà fonction pour le MsgBox, mais pas pour mes contrôles...

MsgBox Replace("Edward Norton, Edward Furlong, Fairuza Balk, Beverly
D'Angelo, Avery Brooks, Stacy", "'", "''") ' çà marche
Apostrophe = Replace(Me.Acteurs, "'", "''") ' çà ne marche pas

si toujours problème, vérifies les références, au cas où .
==> c quoi s'te bête là ? où est sa tannière ?


(PS : le blocage du rapatriement de mes News vient de mon antivirus !)
(il te manque les questions sur l'autre conversation)
==> oui et notamment une de tes réponses importantes à "Séparateur (bis)"

dont le sujet ci-dessus en fait parti.... que j'ai retrouvé sur le net...

Merci

Patrice



Avatar
ORDINO
Qu'est-ce que tu obtiens comme résultat?

ORDINO
-----Message d'origine-----
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2
apostrophes à la place d'une seul dans chaîne de
caractères d'un contrôle Acteurs.

Mais çà ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe = Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice

.



Avatar
ORDINO
REBONJOUR
APRÈS VÉFICATION

Apostrophe = Replace(Acteurs, Chr(39), Chr(39) & Chr(39))
le caractère ' (Apostrophe ) signifie début de commentaire


ORDINO
-----Message d'origine-----
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2
apostrophes à la place d'une seul dans chaîne de
caractères d'un contrôle Acteurs.

Mais çà ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe = Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice

.



Avatar
PatCatNat's
Re,

'MsgBox Me.Acteurs 'C Ok => Une apostrophe
'MsgBox Replace(Me.Acteurs, "'", "''") ' C Ok => 2 apostrophes
'Apostrophe = Replace(Me.Acteurs, "'", "''") ' Rien.....
'MsgBox Apostrophe 'Bouton Ok sans message


Patrice
"Raymond [mvp]" a écrit dans le message de
news:eizIIB%
si ça marche pour le msgbox, c'est bon.
il y a un truc dans ton Me.acteurs
fais:
MsgBox Me.Acteurs
MsgBox Replace(Me.Acteurs, "'", "''")
Apostrophe = Replace(Me.Acteurs, "'", "''")
Msgbox Apostrophe
ça donne quoi ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de news:
cjk57m$h3d$
J'ai pris ta méthode de vérif (sympa d'ailleurs !) avec le contenu de
mon


champ et celà fonction pour le MsgBox, mais pas pour mes contrôles...

MsgBox Replace("Edward Norton, Edward Furlong, Fairuza Balk, Beverly
D'Angelo, Avery Brooks, Stacy", "'", "''") ' çà marche
Apostrophe = Replace(Me.Acteurs, "'", "''") ' çà ne marche pas

si toujours problème, vérifies les références, au cas où .
==> c quoi s'te bête là ? où est sa tannière ?


(PS : le blocage du rapatriement de mes News vient de mon antivirus !)
(il te manque les questions sur l'autre conversation)
==> oui et notamment une de tes réponses importantes à "Séparateur

(bis)"


dont le sujet ci-dessus en fait parti.... que j'ai retrouvé sur le
net...



Merci

Patrice








Avatar
PatCatNat's
Bonjour,

Apostrophe = Replace(Acteurs, Chr(39), Chr(39) & Chr(39)) ' ===> Aucun
résultat, même pas de message d'erreur !!!!

Patrice

"ORDINO" a écrit dans le message de
news:257001c4a7e9$bebf8ea0$
REBONJOUR
APRÈS VÉFICATION

Apostrophe = Replace(Acteurs, Chr(39), Chr(39) & Chr(39))
le caractère ' (Apostrophe ) signifie début de commentaire


ORDINO
-----Message d'origine-----
Bonjour,

J'essai d'utiliser la fonction Replace pour mettre 2
apostrophes à la place d'une seul dans chaîne de
caractères d'un contrôle Acteurs.

Mais çà ne marche pas :-((((


Private Sub Commande113_Click()
Dim Apostrophe As String
Apostrophe = Replace(Acteurs, "'", "''")
End Sub

Merci de me dire ce qui bogue.

Patrice

.



Avatar
Raymond [mvp]
bizarre.

auteurs doit contenir une valeur parasite, ce n'est pas possible.
tu peux m'envoyer ta base par mail en enlevant le XYZ. de l'adresse ?
je ne ferme pas avant 1/2H, sinon demain matin.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"PatCatNat's" a écrit dans le message de news:
cjkfuc$j59$
Re,

'MsgBox Me.Acteurs 'C Ok => Une apostrophe
'MsgBox Replace(Me.Acteurs, "'", "''") ' C Ok => 2 apostrophes
'Apostrophe = Replace(Me.Acteurs, "'", "''") ' Rien.....
'MsgBox Apostrophe 'Bouton Ok sans message


Patrice


1 2