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 apostrophe sur formulaire

apostrophe sur formulaire

7 réponses
Avatar
yannick
Bonsoir à tous,
j'ai un text box qui recherche des valeur d'une table
lorque je saisi l'hotel cela ne fonctionne pas, par contre si je saisi
l''hotel cela marche (2 apostrophes et non un guillemet)

j'ai essayé par mettre sur KeyPress
If KeyAscii = 39 Then
KeyAscii = 39 & 39
End If
mais cela ne fonctionne pas

Quelqu'un aurait t'il une solution plus propre que de mettre 2 apostrophes ?

Merci pour toutes aides

Bonne soirée

Yannick
Signaler un problème avec ce contenu

7 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
3stone
Salut,

"yannick"
| j'ai un text box qui recherche des valeur d'une table
| lorque je saisi l'hotel cela ne fonctionne pas, par contre si je saisi
| l''hotel cela marche (2 apostrophes et non un guillemet)


Ce n'est pas le textbox qui cherche !!

Quel est le code qui est exécuté ?


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
yannick
Merci de m'avoir répondu,

c'est une zone de text (TBrecherche) qui recherche et une zone de liste
(LbClient)qui me donne le resultat
voici mon code:
Private Sub TBrecherche_Change()
LbClient.RowSource = "SELECT * FROM [client] WHERE [client].[RS] like '"
& tbrecherche.Text & "*'"
End Sub

Private Sub TBrecherche_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then
KeyAscii = 39 & 39
End If
End Sub

la recherche fonctionne mais j'ai ce probleme d'apostrophe que je suis
obligé de doubler pour avoir le bon résultat quand je recherche par exemple:
l'hotel

J'espère que vous aller comprendre mon explication.

Merci pour toutes aides.

@+

Yannick



Salut,

"yannick"
| j'ai un text box qui recherche des valeur d'une table
| lorque je saisi l'hotel cela ne fonctionne pas, par contre si je saisi
| l''hotel cela marche (2 apostrophes et non un guillemet)


Ce n'est pas le textbox qui cherche !!

Quel est le code qui est exécuté ?


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




Avatar
Eric
Bonjour,

Je ferai comme suit :
LbClient.RowSource = "SELECT * FROM [client] WHERE [client].[RS] like "
& chr(34) & tbrecherche.Text & "*" & chr(34)

Merci de m'avoir répondu,

c'est une zone de text (TBrecherche) qui recherche et une zone de liste
(LbClient)qui me donne le resultat
voici mon code:
Private Sub TBrecherche_Change()
LbClient.RowSource = "SELECT * FROM [client] WHERE [client].[RS] like '"
& tbrecherche.Text & "*'"
End Sub
...


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
yannick
Bonsoir, j'ai essaye cela fonctionne mais si j'applique à mes multi criteres
cela ne marche pas

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client] WHERE
[client].N°client like " & Chr(34) & TBrechercheN°.Value & "*" & Chr(34) And
[client].RS Like " & Chr(34) & tbrechercheRS.Text & " * " & Chr(34) and
[client].Tel like " & Chr(34) & TBrechercheTel.Value & "*" & Chr(34) And
[client].Ville Like " & Chr(34) & TBrechercheVille.Value & " * " & Chr(34)
order by [N°client]"

Dans ce code j'ai un souci de guillements mais je n'arrive pas à me
dépatouiller.

Peux tu m'aider

Merci

@+

Yannick



Bonjour,

Je ferai comme suit :
LbClient.RowSource = "SELECT * FROM [client] WHERE [client].[RS] like "
& chr(34) & tbrecherche.Text & "*" & chr(34)

Merci de m'avoir répondu,

c'est une zone de text (TBrecherche) qui recherche et une zone de liste
(LbClient)qui me donne le resultat
voici mon code:
Private Sub TBrecherche_Change()
LbClient.RowSource = "SELECT * FROM [client] WHERE [client].[RS] like '"
& tbrecherche.Text & "*'"
End Sub
...


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,

Testes avec :

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client]
WHERE client.[N°client] like " & Chr(34) & TBrechercheN°.Value & "*" &
Chr(34) & " And [client].RS Like " & Chr(34) & tbrechercheRS.Text & "*"
& Chr(34) & " and [client].Tel like " & TBrechercheTel.Value & "*" &
" And [client].Ville Like " & Chr(34) & TBrechercheVille.Value & "*" &
Chr(34) & " order by [N°client]"



Bonsoir, j'ai essaye cela fonctionne mais si j'applique à mes multi criteres
cela ne marche pas

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client] WHERE
[client].N°client like " & Chr(34) & TBrechercheN°.Value & "*" & Chr(34) And
[client].RS Like " & Chr(34) & tbrechercheRS.Text & " * " & Chr(34) and
[client].Tel like " & Chr(34) & TBrechercheTel.Value & "*" & Chr(34) And
[client].Ville Like " & Chr(34) & TBrechercheVille.Value & " * " & Chr(34)
order by [N°client]"

Dans ce code j'ai un souci de guillements mais je n'arrive pas à me
dépatouiller.

Peux tu m'aider

Merci

@+

Yannick




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
yannick
Je ne sais pas mais je n'arrive pas avoir de resultat mais je n'ai pas de
messages d'erreurs, je suis en train de regarder
Merci comme meme, j'espere que je vais trouver.

Bonne soirée

Yannick




re,

Testes avec :

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client]
WHERE client.[N°client] like " & Chr(34) & TBrechercheN°.Value & "*" &
Chr(34) & " And [client].RS Like " & Chr(34) & tbrechercheRS.Text & "*"
& Chr(34) & " and [client].Tel like " & TBrechercheTel.Value & "*" &
" And [client].Ville Like " & Chr(34) & TBrechercheVille.Value & "*" &
Chr(34) & " order by [N°client]"



Bonsoir, j'ai essaye cela fonctionne mais si j'applique à mes multi criteres
cela ne marche pas

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client] WHERE
[client].N°client like " & Chr(34) & TBrechercheN°.Value & "*" & Chr(34) And
[client].RS Like " & Chr(34) & tbrechercheRS.Text & " * " & Chr(34) and
[client].Tel like " & Chr(34) & TBrechercheTel.Value & "*" & Chr(34) And
[client].Ville Like " & Chr(34) & TBrechercheVille.Value & " * " & Chr(34)
order by [N°client]"

Dans ce code j'ai un souci de guillements mais je n'arrive pas à me
dépatouiller.

Peux tu m'aider

Merci

@+

Yannick




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
yannick
Impeccable cela fonctionne du tonnerre
Un grand merci

@+

Yannick



re,

Testes avec :

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client]
WHERE client.[N°client] like " & Chr(34) & TBrechercheN°.Value & "*" &
Chr(34) & " And [client].RS Like " & Chr(34) & tbrechercheRS.Text & "*"
& Chr(34) & " and [client].Tel like " & TBrechercheTel.Value & "*" &
" And [client].Ville Like " & Chr(34) & TBrechercheVille.Value & "*" &
Chr(34) & " order by [N°client]"



Bonsoir, j'ai essaye cela fonctionne mais si j'applique à mes multi criteres
cela ne marche pas

LbClient.RowSource = "SELECT [client].[N°client], [client].RS,
[client].cp, [client].Ville, client.Tel, [client].Fax FROM [client] WHERE
[client].N°client like " & Chr(34) & TBrechercheN°.Value & "*" & Chr(34) And
[client].RS Like " & Chr(34) & tbrechercheRS.Text & " * " & Chr(34) and
[client].Tel like " & Chr(34) & TBrechercheTel.Value & "*" & Chr(34) And
[client].Ville Like " & Chr(34) & TBrechercheVille.Value & " * " & Chr(34)
order by [N°client]"

Dans ce code j'ai un souci de guillements mais je n'arrive pas à me
dépatouiller.

Peux tu m'aider

Merci

@+

Yannick




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr