OVH Cloud OVH Cloud

Apostrophe, SQL et VBA

2 réponses
Avatar
Camille Bree
Bonsoir à tous.

J'ai un formulaire possédant une zone de texte ou les utilisateurs
saisissent un texte libre. En fonction des options qu'ils ont cochées
sur le formulaire une requête de mise d'ajout est exécuté avec comme
argument le contenu de la zone de texte (cette requête est composé
directement en SQL dans le code VBA du formulaire). Tout se passe bien
sauf quand les utilisateurs mettes des apostrophe dans leur texte.
Comment contourner ce problème?
Faut'il filtrer les apostrophes du SQL dans le VBA pour les remplacées
par des guimmets (en utilisant le n°assci correspondant, d'ailleurs
c'est quel numéro?)?

Slts

CB

2 réponses

Avatar
3stone
Salut,

"Camille Bree"
| J'ai un formulaire possédant une zone de texte ou les utilisateurs
| saisissent un texte libre. En fonction des options qu'ils ont cochées
| sur le formulaire une requête de mise d'ajout est exécuté avec comme
| argument le contenu de la zone de texte (cette requête est composé
| directement en SQL dans le code VBA du formulaire). Tout se passe bien
| sauf quand les utilisateurs mettes des apostrophe dans leur texte.


Ecrire ainsi:

"Select ... from table Where Champ= """ & Me.MonControle & """"


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
Camille Bree
3stone a écrit:
Salut,

"Camille Bree"
| J'ai un formulaire possédant une zone de texte ou les utilisateurs
| saisissent un texte libre. En fonction des options qu'ils ont cochées
| sur le formulaire une requête de mise d'ajout est exécuté avec comme
| argument le contenu de la zone de texte (cette requête est composé
| directement en SQL dans le code VBA du formulaire). Tout se passe bien
| sauf quand les utilisateurs mettes des apostrophe dans leur texte.


Ecrire ainsi:

"Select ... from table Where Champ= """ & Me.MonControle & """"


--
A+
Pierre (3stone) Access MVP



Milles merci

CB