Discussion :

[DurDur]

Bonjour,

Ce code provient du tuto "Recherche multi-critères" de Cafeïne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Not Me.chkFRcourant Then
    SQL = SQL & "and tbl_LocFrRu!FRcourant like '*" & Me.cmbRechFRcourant & "*'"
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where") - Len("Where") + 1))
 
SQL = SQL & "order by tbl_LocFrRU!LocRU;"
MaRecherche = SQL
Me.LblStats.Caption = DCount("*", "Tbl_LocFrRu", SQLWhere) & "/" & DCount("*", "Tbl_LocFrRu")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

J'ai un message d'erreur quand le contrôle de liste déroulante (Me.cmbRechFRcourant) contient une apostrophe " ' ".
Exemple : "la cuisson d ( ' ) un oeuf"

Comment palier à ça ?

Merci de votre attention.

JCB57

[Ovr19]

Bonsoir Durdur,

pour éviter ce problème, j'ai utilisé la fonction "Replace" lors de l'utilisation du champ qui peut contenir un ' ou un "

Code :

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

1
2
3
4
5
 
    If InStr(1, MonChamp, Chr(34)) > 0 Or InStr(1, MonChamp, "'") > 0 Then
        MonChamp= Replace(MonChamp, Chr(34), Chr(148)): ' caractere "
        MonChamp= Replace(MonChamp, Chr(39), Chr(146)): ' caractere '
    End If

les caractères sont visuellement identiques mais ne sont pas pris en compte dans les requêtes
si ça peut aider ...
Olivier

[DurDur]

Bonjour,

Je vous remercie de cette réponse rapide que je n'ai pu mettre en application que ce matin.

Malheureusement je ne sais pas comment intervenir sur le contrôle de liste déroulante "Me.cmbRechFrcourant" qui contient l'objet de la recherche, donc je ne peux pas utiliser l'astuce décrite dans votre réponse.

JCB57

[DurDur]

Bonjour,

J'avais bien lu qu'il fallait remplacer les apostrophes par leur code ASCII "chr(34)", mais comment et où le faire ?

Voilà la solution (que je ne suis pas prête d'oublier).

Code :

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

SQL = SQL & "and tbl_LocFrRu!FRcourant like " & Chr(34) & "*" & Me.cmbRechFRcourant & "*" & Chr(34) & ""

Cordialement,

JCB57