apostrophe

Le
Laurent
Bonjour à toutes et à tous

Voilà, je fais une recherche via FindFirst, ça pourrait marcher si e
n'enregistrais pas les apostrophes dans les noms à rechercher (solution
bancale). J'ai trouver une piste avec Chr(34) mais je n'arrive pas à
l'appliquer dans mon cas.
***** DEBUT
Dim Txt0 as String
SelContenant étant le champs ou j'entre ma recherche
Txt0 = "[RAdrNom1] Like '*" & Me!SelContenant & "*'" & " OR [RAdrPrenom]
Like '*" & Me!SelContenant & "*'" & " "
T0.FindFirst Txt0
***** FIN
Si quelqu'un peut m'aider.

Merci et bon week end

Laurent
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6293811
Bonjour.

essaie de faire ceci, en doublant les ' :

Txt0 = "[RAdrNom1] Like '*" & replace(Me!SelContenant,"'","''") & "*'"
&..........

dans chaque champ pouvant comporter des ' y compris les noms et prénoms,
avec une chance que tu ne travailles pas en Ecosse.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Laurent" news:
| Bonjour à toutes et à tous
|
| Voilà, je fais une recherche via FindFirst, ça pourrait marcher si e
| n'enregistrais pas les apostrophes dans les noms à rechercher (solution
| bancale). J'ai trouver une piste avec Chr(34) mais je n'arrive pas à
| l'appliquer dans mon cas.
| ***** DEBUT
| Dim Txt0 as String
| SelContenant étant le champs ou j'entre ma recherche
| Txt0 = "[RAdrNom1] Like '*" & Me!SelContenant & "*'" & " OR [RAdrPrenom]
| Like '*" & Me!SelContenant & "*'" & " "
| T0.FindFirst Txt0
| ***** FIN
| Si quelqu'un peut m'aider.
|
| Merci et bon week end
|
| Laurent
Laurent
Le #6293801
Merci Raymond, tu es un Dieu ! Si si

Laurent


Bonjour.

essaie de faire ceci, en doublant les ' :

Txt0 = "[RAdrNom1] Like '*" & replace(Me!SelContenant,"'","''") & "*'"
&..........

dans chaque champ pouvant comporter des ' y compris les noms et prénoms,
avec une chance que tu ne travailles pas en Ecosse.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Laurent" news:
| Bonjour à toutes et à tous
|
| Voilà, je fais une recherche via FindFirst, ça pourrait marcher si e
| n'enregistrais pas les apostrophes dans les noms à rechercher (solution
| bancale). J'ai trouver une piste avec Chr(34) mais je n'arrive pas à
| l'appliquer dans mon cas.
| ***** DEBUT
| Dim Txt0 as String
| SelContenant étant le champs ou j'entre ma recherche
| Txt0 = "[RAdrNom1] Like '*" & Me!SelContenant & "*'" & " OR [RAdrPrenom]
| Like '*" & Me!SelContenant & "*'" & " "
| T0.FindFirst Txt0
| ***** FIN
| Si quelqu'un peut m'aider.
|
| Merci et bon week end
|
| Laurent





Publicité
Poster une réponse
Anonyme