Discussion :

[Mrhappy94]

Bonjour,

J'ai une table T_Liste qui contient un champ Num et un champ Nom.
Dans un des enregistrements de la table Nom a pour valeur "Anon d'Afrique"

Je r�cup�re d'une autre table une variable Nomsansaccent qui contient �galement "Anon d'Afrique" donc avec une '

J'aimerais r�cup�r� de la table T_Liste la valeur du champ Num pour l'enregistrement dont le champs Nom contient la valeur de la variable Nomsansaccent

j'ai donc essay�

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "Nom = '" & Replace(nomsansaccent, "'", "''") & "'"

j'ai essay�

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "Nom = '" & Replace(str_nomsansaccent, "'", "''") & "'"

et plein d'autres synthaxes

et la fonction

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

num_rec = Nz(DLookup("Num", "T_liste", sql))

renvoie systh�matiquement 0

Quelqu'un peut-il m'aider car je craque depuis 2 jours !!!!

merci d'avance
Mrhappy94

[hyperion13]

Bonsoir,
Dans votre cas, il faut doubler l'apostrophe.

[Mrhappy94]

Bonjour,

non avec deux quote cela ne fonctionne pas non plus

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
sql = "SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE (((T_liste.Nom)='" & Replace(nomsansaccent, "'", "''") & "'));" 
le sql est égal à ' SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE (((T_liste.Nom)='ANON d''AFRIQUE - 1er etat'));
 
 
       Set rst = bds.OpenRecordset(sql)
       With rst
        .MoveLast
        .MoveFirst
            Do While Not .EOF

message aucun enregistrement en cours

[loufab]

Bonjour,

� moins d'utiliser un rst.recordcount ceci :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
        .MoveLast
        .MoveFirst

ne sert strictement � rien avec un

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

not .eof

Cordialement,

[tee_grandbois]

bonjour,
la discussion est marqu�e "r�solue", donc on ne sait pas si le probl�me est r�gl� et si r�pondre est toujours pertinent ...
Cependant quand je lis cela:

Dans un des enregistrements de la table Nom a pour valeur "Anon d'Afrique"

Je r�cup�re d'une autre table une variable Nomsansaccent qui contient �galement "Anon d'Afrique" donc avec une '

J'aimerais r�cup�r� de la table T_Liste la valeur du champ Num pour l'enregistrement dont le champs Nom contient la valeur de la variable Nomsansaccent

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

le sql est égal à ' SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE (((T_liste.Nom)='ANON d''AFRIQUE - 1er etat'));

je pense qu'il faut appliquer la r�gle suivante: quand il y a une apostrophe dans une colonne et une variable � comparer, il faut l'ajouter (ou l'enlever) des 2 cot�s de la comparaison, sans oublier de doubler les guillemets utilis�s dans l'environnement SQL (car le guillemet est le s�parateur de texte dans VBA):

Code SQL :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE Replace(T_liste.Nom,""'"", ""''"")='" & Replace(Nomsansaccent, ""'"", ""''"") & "';"

ou, pour enlever l'apostrophe:

Code SQL :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE Replace(T_liste.Nom,""'"","""")='" & Replace(Nomsansaccent, "'", "") & "';"

sans cela, la requ�te ne renverra jamais rien

[Mrhappy94]

bonjour,
la discussion est marqu�e "r�solue", donc on ne sait pas si le probl�me est r�gl� et si r�pondre est toujours pertinent ...
Cependant quand je lis cela:
je pense qu'il faut appliquer la r�gle suivante: quand il y a une apostrophe dans une colonne et une variable � comparer, il faut l'ajouter (ou l'enlever) des 2 cot�s de la comparaison, sans oublier de doubler les guillemets utilis�s dans l'environnement SQL (car le guillemet est le s�parateur de texte dans VBA):

Code SQL :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE Replace(T_liste.Nom,""'"", ""''"")='" & Replace(Nomsansaccent, ""'"", ""''"") & "';"

ou, pour enlever l'apostrophe:

Code SQL :

S�lectionner tout - Visualiser dans une fen�tre � part

sql = "SELECT T_liste.Num, T_liste.Nom FROM T_liste WHERE Replace(T_liste.Nom,""'"","""")='" & Replace(Nomsansaccent, "'", "") & "';"

sans cela, la requ�te ne renverra jamais rien

Bonjour,
J'ai r�solu, � l'arrache, en "Replace" tous les caracat�res par vide dans les deux chaine sde caracat�res.
Merci bien
cordialement.