[VBA-A] Gérer les apostrophes dans le champ d'un formulaire

**cuicui08** · 28/02/2006, 14h57

Bonjour,

j'ai encore un problème

Voilà : j'ai réussi à afficher mes éléments dans ma listbox. Enfin presque tous. Dans ma première listbox apparaissent tous mes champs (même ceux avec une apostrophe). Lorsque je double clique sur un objet, une fiche détaillé de l'objet apparait. J'arrive donc a à afficher le detail de tous les objets sauf ceux avec des apostrophe (je l'ai retiré au prealable dans mes champs pour vérifier si c'était bien cela). Voici donc mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub AffichFiche(Carac_Des, Carac_Aff As ListBox)
    'Déclaration des variables
    Dim rstObj As ADODB.Recordset
    Dim objmyconn As ADODB.Connection
    Dim strSQL As String
    'connexion à la base de donnée
    Set objmyconn = connexion()
    Set rstObj = CreateObject("ADODB.RecordSet")
    'requête sql permettant d'afficher tous les objets de la logistique
    strSQL = "Select [id_objet] from OBJET where [designation]= '" & Form_LIST_Objet.List_Objet.Value & "'"
 
    'Ouvre l'objet RecordSet
    rstObj.Open strSQL, objmyconn
    'remplit la listbox
    Carac_Des.RowSource = strSQL
 
    rstObj.Close
    objmyconn.Close
    Set rstObj = Nothing
    Set objmyconn = Nothing
End Sub

L'erreur se déclenche à la ligne "rstObj.Open strSQl, objmyconn" apparement parce qu'il y a une apostrophe dans le champ. Comment puis je contourner ce problème ?

Merci

**120** · 28/02/2006, 15h46

Code :

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

strSQL = "Select [id_objet] from OBJET where [designation]= """ & Form_LIST_Objet.List_Objet.Value & """"

**cuicui08** · 28/02/2006, 17h02

Ne marche pas :

Erreur : "Trop peu de paramètres. 1 attendu"

**Megaxel** · 28/02/2006, 17h13

Ha ben ça... Pourtant, j'aurais bien parié sur la soluce de 120 !!!
Et si tu affiches le contenu de strSQL (version 120) juste avant de l'exécuter, tu as quoi?