Discussion :

[yfchauer]

Bonsoir à tous
J'ai réalisé un formulaire de recherche à critères multiple

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
22
23
24
25
26
27
28
29
30
31
32
33
 
 
    SQL = "SELECT MediaID, TitreMedia, Rangement, LibelleGenre, LibelleSupportMedia, (PrenomAuteur +' '+ NomAuteur) AS Nom_Auteur, " _
        & "NomEditeur " _
        & "FROM T_Medias, T_Genres, T_SupportMedia, T_Auteurs, T_Editeurs " _
        & "WHERE T_Medias!CodeGenre = T_Genres!GenreID AND T_Medias!CodeSupport = T_SupportMedia!SupportID " _
        & "AND T_Medias!CodeAuteur = T_Auteurs!AuteurID And T_Medias!CodeEditeur = T_Editeurs!NumEditeur " _
        & "AND T_Medias!MediaID <> 0 "
 
    If Not Me.ChkAuteur Then
        SQL = SQL & "AND T_Auteurs![PrenomAuteur] + + [NomAuteur] LIKE '*" & Me.TxtAuteur & "*'"
    End If
 
    If Not Me.ChkEditeur Then
        SQL = SQL & "AND T_Editeurs!NomEditeur LIKE '*" & Me.TxtEditeur & "*'"
    End If
 
    If Not Me.ChkGenre Then
        SQL = SQL & "AND T_Genres!LibelleGenre = '" & Me.CboGenre & "'"
    End If
 
    If Not Me.ChkSupport Then
        SQL = SQL & "AND T_SupportMedia!LibelleSupportMedia = '" & Me.CboSupport & "'"
    End If
 
    If Not Me.ChkTitre Then
        SQL = SQL & "AND T_Medias!TitreMedia LIKE '*" & Me.TxtTitre & "*'"
    End If
 
 
    SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
    SQL = SQL & ";"

La requête fonctionne normalement
Mais, j'ai un message d'erreur (Cf. copie d'écran) dans l'un des champs de recherche contient (') comme dans O'NEIL, etc...
Et donc, je souhaite savoir comment régler le souci de ces erreurs ?

J'ai vu dans un forum php/mysql que l'on peut créer une fonction pour échapper les (')
Est ce possible sous access?
Merci d'avance pour votre aide

[Philippe PONS]

En doublant la simple quote:
SQL=Replace(SQL,"'", "''")

Cordialement

[yfchauer]

Bonsoir,
J'ai essayé le double quote sur la requête
Mais j'ai le même message d'erreur
Merci tout de même

[Philippe PONS]

Salut,

Es tu sur que toutes les simples quotes sont bien doublées?
As tu copié le contenu de ta variable SQL pour le coller ensuite dans l'éditeur de requête et voir le résultat?
Si c'est pas bon, essaie d'abord de corriger la requête dans l'éditeur de requête pour bien diagnostiquer la cause.

Cordialement

[Vince]

En doublant la simple quote:
SQL=Replace(SQL,"'", "''")

Cordialement

Il ne faut pas doubler le simple quote sur toute la requête mais sur les champs susceptibles de contenir des "'",
donc plutôt :
sTitre = Replace(Me.TxtTitre.Text,"'", "''")

Ensuite sur Access il me semble qu'il faut des "%" et pas des "*" pour les LIKE...

[yfchauer]

Bonsoir,
Je n'arrive toujours pas à doubler les quotes, j'ai un message d'erreur (cf.screenshot2), lorsque j'insère le code dans l'instruction ci-après

Code :

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

1
2
3
4
5
 
    If Not Me.ChkTitre Then
        SQL = SQL & "AND T_Medias!TitreMedia LIKE '*" & Me.TxtTitre & "*'"
        Me.TxtTitre = replace (Me.TxtTitre.Text,"'",""")
    End If

Une question, peut-être, idiote, mais où je dois insérer ce double Quote?
Merci d'avance pour vos réponses

[Philippe PONS]

Il faut faire:

Code :

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

1
2
3
4
5
 
    If Not Me.ChkTitre Then
        SQL = SQL & "AND T_Medias!TitreMedia LIKE '*" & replace (Me.TxtTitre.Text,"'","''") & "*'"
 
    End If

Attention: le caractère de remplacement est bien un double simple quote et non pas un double-quote : "''" et pas """

[yfchauer]

Bonsoir,
Merci de la réponse, cela fonctionne comme je le souhaitais,

[Philippe PONS]

Y'a pas d'quoi!