Discussion :

[lololebricoleur]

Bonjour,

Pour remplir le contenu d'une liste déroulante, j'utilise le code suivant :

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
Public Function Liste_Entreprise(Txt As String)
 
    If Len(Txt) < 3 Then
        SQl = "SELECT TOP 10 REPertoire.REP_Num, REPertoire.REP_Raison, REPertoire.REP_Codepostal, REPertoire.REP_Ville, REPertoire.REP_Actif " & _
        "FROM REPertoire " & _
        "WHERE REPertoire.REP_Raison Is Not Null AND REPertoire.REP_Raison Like '" & Txt & "*' AND REPertoire.REP_Client=True AND REPertoire.REP_Actif=True ORDER BY REPertoire.REP_Raison;"
    Else
        SQl = "SELECT TOP 10 REPertoire.REP_Num, REPertoire.REP_Raison, REPertoire.REP_Codepostal, REPertoire.REP_Ville, REPertoire.REP_Actif " & _
        "FROM REPertoire " & _
        "WHERE REPertoire.REP_Raison Is Not Null AND REPertoire.REP_Raison Like '*" & Txt & "*' AND REPertoire.REP_Client=True AND REPertoire.REP_Actif=True ORDER BY REPertoire.REP_Raison;"
    End If
 
    Me.S_Entreprise.RowSource = SQl
 
End Function

ça fonctionne bien sauf si le texte recherché contient un apostrophe notamment. Si c'est le cas, les textes correspondants n’apparaissent pas dans la liste et si je sélectionne un texte avec un apostrophe, il est bien sélectionné mais le champ est vide (liste 2 colonnes, id en 1 avec largeur à 0 et raison sociale en 2).

Je n'ai pas se problème si je laisse Access gérer l'alimentation avec une requête mais le truc c'est c'est que ma liste complète contient plus de 60000 noms et c'est "long" à alimenter. Du coup, j'alimente en VBA à la saisie du texte.

Si vous avez une explication et mieux, une solution, suis preneur.

Merci d'avance ;-)

[nico84]

Ben oui il faut mettre replace(txt,"'","''") à la place de txt

[lololebricoleur]

Merci nico,

Et le problème n'est que pour les apostrophes ou d'autres caractères sont problématiques ?

[nico84]

En SQL l'apostrophe est le délimiteur de string, c'est donc le seul caractère qui pose problème.

Pour pouvoir mettre une apostrophe dans un texte il a été convenu il y a bien longtemps qu'il fallait la doubler, et les compilateurs savent que '' est en réalité ' quand il est entre deux '
Ainsi par exemple '''' est le caractère ' et il faut écrire 'aujourd''hui j''ai appris quelque chose'

Dans d'autres langages comme le VBA c'est la double apostrophe et le problème se pose moins souvent car " est peu utilisé dans les textes
msgbox """" renvoie le caractère "
msgbox "j'ai envie de dire ""ça va"""

Attention à bien distinguer '' et "
Faut arrêter de bricoler et retourner à l'école