Discussion :

[Marie_2116]

Bonjour,

J'ai le problème suivant :
J'ai créée une base de données de la gestion commerciale d'une entreprise.
Pour effectuer des recherches de clients, je passe par des zones de listes déroulantes. J'ai 2 zdl une avec le nom du client (NOM_CLI) et l'autre avec le code du client (COD_CLI).
Le soucis est le suivant : Certains noms de clients comportent des caractères interdits dans Access notamment des apostrophes, mais il y a aussi des tirets. Si bien que lorsqu'on sélectionne un nom comportant un de ces caractères, le code qui fonctionne très bien par ailleurs ne fonctionne plus, le message d'erreur suivant apparait :

erreur d'éxecution 3075, erreur de syntaxe (opérateur absent) dans l'expression : 'le nom du client sélectionné qui comporte une apostrophe'.

J'ai déjà essayé de m'occuper des apostrophes, mais je ne m'en sors pas ! (je suis débutante en code... )
J'ai envisagé de corriger mes fichiers manuellement, or dans les logiciels de saisie des nouveaux clients il n'est pas possible de mettre un filtre qui empêche d'utiliser ces caractères, donc la solution n'est pas viable à long terme...
J'ai essayé de bidouiller le code mais sans succès avec un chr(39) pour remplacer les apostrophes dans la chaine SQL mais sans succès non plus !


Donc voilà mon code (qui fonctionne si il n'y a pas d'apostrophe dans un nom)

Code :

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

1
2
3
4
5
6
7
8
Private Sub Code_Client_AfterUpdate()
Dim bd As Database, jeu As Recordset, str As String
Set bd = CurrentDb
str = "SELECT NOM_CLI FROM Recap1 WHERE COD_CLI='" & Me.Code_Client & "';"
Set jeu = bd.OpenRecordset(str)
Me.Nom_Client = jeu!NOM_CLI
Me.Refresh
End Sub

Le problème est je pense dans la syntaxe du WHERE : ' "

Connaissez-vous un moyen de préférence simple de contourner le problème ? d'écrire le WHERE différemment ou de pouvoir "isoler" le nom du client" pour qu'il n'interfère pas avec le code SQL ?

Merci d'avance de votre aide... parce que je suis bien bloquée là...

[Invité]

Bonjour

Pour shunter ce problème il faut doubler les quotes. Fais une recherche sur le forum avec Quote, tu trouveras des exemples.

Une autre indication, il faut utiliser la fonction Replace.

Starec

[Marie_2116]

ok, merci de l'info, je vais recherche comment faire pour doubler les quotes.

Mais je ne connais pas la fonction Replace, quelle est son utilité et comment fonctionne-t-elle ?

Merci

[Invité]

Re

La fonction s'appelle Replace et pour la syntaxe.

Starec

[Marie_2116]

Merci bien Starec!

Surtout de m'avoir indiqué le chemin, parce quand on est débutant comme moi, ça n'est pas toujours facile de savoit quoi chercher !

A +