Discussion :

[pato74]

bonjour tous le monde

j'espere que vous pourrez m'aider

voila ma ligne qui me pose soucis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindNext ("[Nom] = '" & chercheNom & "' AND [PNom] = '" & cherchePnom & "'")

ca marche bien sauf si l'une des 2 variables (chercheNom ou/et cherchePnom) a un nom qui a " ' " comme

dell'pietro
d'acosta
etc..
et j'arrive pas a trouver la syntax. vous avez une idée?

merci d'avance
-Pato-

[SSJconsult]

Bonjour,

Il suffit de remplacer les ' par ''.

Essaye le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindNext ("[Nom] = '" & Replace(chercheNom,"'","''") & "' AND [PNom] = '" & Replace(cherchePnom,"'","''") & "'")

Bonne chance

[pato74]

merci SSJconsult,

j'avais deja essayé ta solution ( exactement la meme syntax)
mais en passant par debug , il n'aime pas du tout

[azertix]

Deux trucs à tester :
- Remplacer mavariable par CStr(mavariable)
- Remplacer les ' par Chr(39)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindNext ("[Nom] = '" & CStr(chercheNom) & "' AND [PNom] = '" & CStr(cherchePnom) & "'")

et/ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindNext ("[Nom] = " & Chr(39) & chercheNom & Chr(39) & " AND [PNom] = " & Chr(39) & cherchePnom & Chr(39))

[pato74]

g trouvé une solution,
ca alourdi un peu le code mais au moins ca marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   testquoteNom = 0
    testquotePNom = 0
    testquoteNom = InStr(1, chercheNom, "'", 1)
    testquotePNom = InStr(1, cherchePnom, "'", 1)
        If testquoteNom > 0 Then
            Nomsav = chercheNom
            chercheNom = Replace(chercheNom, "'", "''")
        End If
        If testquotePNom > 0 Then
            Pnomsav = cherchePnom
            cherchePnom = Replace(cherchePnom, "'", "''")
        End If

ensuite je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
.FindNext ("[Nom] = '" & chercheNom & "' AND [PNom] = '" & cherchePnom & "'")
 
        If testquoteNom > 0 Then
            memoNom = memoNomsav
        End If
        If testquotePNom > 0 Then
            memoPnom = memoPnomsav
        End If

[azertix]

Oulà ah ouais c'est bien lourd .
Je suis sûr qu'il y a mieux. Tu as testé mes propositions ?

[helas]

tout simplement doubler les guillemets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.FindNext ("[Nom] = """ & chercheNom & """ AND [PNom] = '"" & cherchePnom & """")

certains noms contiennent une apostrophe comme Théodore Agrippa d'Aubigné

[pato74]

re-bonjour,

oui c vrai que c un peu lourd je vais essayer les propositions que vous m'avez indiqué et je reviens ici pour vous faire pars des resultats
entout cas merci d'avance

[pato74]

je viens de tester la solution de " helas" :-)

et ca marche eureka

mais, eh oui il y a toujours un mais...

j'ai retrouvé dans mon résultat un nom qui avais 2 "
Jean-marc "marco"

donc ça n'a fais que déplacer le problème de ( ' ) à ( " )

[Kloun]

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.FindNext ("[Nom] = '" & replace(chercheNom, "'", "''") & "' AND [PNom] = '" & replace(cherchePnom, "'", "''") & "'")

[Tofalu]

Tu peux aussi utiliser la fonction BuildCrtiteria, cf l'aide