Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access apostrophe

apostrophe

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 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
Avatar
Raymond [mvp]
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" a écrit dans le message de
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
Avatar
Laurent
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" a écrit dans le message de
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