Discussion :

[garsflo]

Bonjour,
Encore un petit souci... le code qui me pose problème est le suivant :

Code :

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

1
2
3
4
MySQL = "SELECT MaTable.Champ1, MaTable.Champ2, MaTable.Champ3"
MySQL = MySQL + " FROM [Ma Table]"
MySQL = MySQL + " WHERE (((MaTable.Champ1)='" & Me!ListOpé.Column(1) & "') AND ((MaTable.Champ2)='" & Me!ListOpé.Column(2) & "')"
MySQL = MySQL + "  AND ((MaTable.Champ3)='" & Me!ListOpé.Column(3) & "'))"

La requête filtre les enregistrements en fonction de la valeur choisie dans une zone de liste nommée "ListOpé". (les valeurs de la zone de liste est le résultat d'une requête à 4 colonnes).

Voici un exemple : je sélectionne dans ma zone de liste "nettoyage à l' aspirateur" qui correspont à la colonne 3. J' ai un message d'erreur : Erreur de synthaxe dans l'expression (((MaTable.Champ1)='Valeur colonne 1') AND ((MaTable.Champ2)='Valeur colonne 2') AND ((MaTable.Champ3)='nettoyage à l' aspirateur'))'

Apparement l'apostrophe contenu dans "nettoyage à l'aspirateur" modifie le code car tout les autres champs (sans apostrophe) sont bien pris en compte.

Existe t il un moyen d'éviter ça ou faut il que j'écrive un code qui interdit l'apostrophe lors de la saisie des données??

Merci à tous pour le coup de pouce, j'ai essayé pas mal de chose en changant la synthaxe mais impossible de débloquer le problème!!

[Invité]

Bonjour

Il s'agit d'un problème classique, la solution est de doubler l'apostrophe dans ta chaine pour que celle-ci soit prise en compte.

Pour cela j'utilise la fonction Replace.

Ainsi :

Code :

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

((MaTable.Champ3)='" & Me!ListOpé.Column(3) & "'))"

deviendrait :

Code :

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

((MaTable.Champ3)='" & Replace(Me!ListOpé.Column(3),"'","''") & "'))"

Starec

[garsflo]

Je ne doit plus être très loin de la solution...J'ai modifié mon code avec le mot Replace mais j'ai une erreur de compilation : Sub ou Function non définie.

Je n'ai pas trouvé la fonction Replace dans l'aide en tant que fonction intégrée mais j'ai trouvé la méthode Replace dans l'aide VBA (qui semble ne pas correspondre).

Il faudra peut être que j'envisage d'écrire la fonction?? (Si c'est le cas je m'engage vers des chemins difficiles!!! )

As tu une idée la dessus?
encore merci pour tout!!!

[garsflo]

J'ai trouvé une réponse pour ceux qui aurait le même souci que moi sous access 97

http://access.developpez.com/faq/?pa...DATA#ReplAcc97

Bonne continuation