Ignorer la virgule dans resultat requête avec LIKE

**alfhcg** · 23/11/2010, 23h06

Bonjour.

Veuillez m'excuser si cela a été déjà abordé. J'ai mis plus de 30 minutes à rechercher sans rien trouver.

Supposons que dans une table j'ai un champ qui contient la valeur
AIMER, C'EST VIVRE, AIMER C'EST LA JOIE
et un utilisateur écrit dans la textbox de recherche: AIMER C'EST VIVRE

...C'est à dire, il omet la virgule. Le résultat ne s'affiche pas si j'ai comme code le suivant:

Code :

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

            strSQL= strSQL & "TitreChant LIKE '*" & (BuscaAcent(strText)) & "*'"

Ce que je voudrais c'est d'ignorer toutes les virgules et qu'il me trouve tous les champs qui contiennent : AIMER C'EST...

J'ai essayé d'omettre le virgule avec ce code, mais rien ne change:

Code :

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

If InStr(1, strText, ",") > 0 Then strText = Replace(strText, ",", "", 1)

Merci si quelqu'un pourrait m'éclairer.

**User** · 23/11/2010, 23h38

Salut,

C'est dans la requête (ou dans le sql), sur le champ [TitreChant] qu'il faut utiliser la fonction Replace:

Un peu comme cela :

Code :

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

strSQL= strSQL & "Replace([TitreChant], ',', '') LIKE '*" & strText & "*'"

Bonne continuation

A+

**alfhcg** · 24/11/2010, 01h37

Merci pour la réponse. Mais cela ne marche pas, le code se plante sur la ligne :

Code :

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

Set rst = db.OpenRecordset(strSQL)

Erreur n. 3464 : Type de données incompatible...

Le select que j'essaie de passer au recordset est le suivant:

Code :

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

1
2
3
4
 
SELECT TitreChant 
FROM Chants 
WHERE REPLACE([TitreChant], ',', '') LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r c''[EÉÈÊË]st*'

**alfhcg** · 24/11/2010, 16h53

Bonjour Cinesra et merci pour la réponse.

J'ai testé cette fonction, mais elle ne répond pas a mon besoin. Si l'utilisateur envoi comme mot à rechercher:
"AIMER C'EST VIVRE"

Et dans la table il y a un champ qui contient:
"AIMER, C'EST VIVRE, AIMER C'EST LA JOIE"

...La fonction Rechechemot renvoie Faux, alors que c'est tout le contraire: je voudrais que la fonction trouve ce champ, mais il n'est pas trouvé à cause de la virgule qui est après AIMER... Alors comment ignorer cette virgule?

**Kloun** · 24/11/2010, 18h30

Bonjour,

J'essaierai :

Code :

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

1
2
3
strSQL="SELECT TitreChant "& _
       "FROM Chants " & _
       "WHERE REPLACE(REPLACE(TitreChant, ',', ''), '''', '') LIKE '*" & replace(replace(strText, "'", ""), ",", "") & "*'"

histoire de se débarrasser de la ' qui risque de poser problème aussi.

**alfhcg** · 25/11/2010, 00h51

Merci pour le réponse.
J'ai essayé comme cela et j'ai la même erreur: 3464.
Je m'avais déjà débarrassée de ' avant d'établir la chaîne strSQL avec:

Code :

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

strText = Replace(strText, "'", "''")

Voici mon code, qui marche impeccable sans le replace, mais dès que j'essaie avec Replace, c'est la catastrophe...

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function RechercheChant(strText As String)
On Error GoTo GestionError
 
    Dim strForm As String
    Dim strSQL As String
    Dim dbs As DAO.Database
    Dim intValeur As Integer
    Dim rst As DAO.Recordset
 
    Set dbs = CurrentDb()
    intValeur = 0
    strSQL = "SELECT * FROM Chants WHERE "
 
 
        If Not IsNull(strText) Then
            strText = Replace(strText, "'", "''")
            strSQL = strSQL & "[TitreChant] LIKE '*" & (BuscaAcent(strText)) & "*'"
            intValeur = 1
        End If
 
        If intValeur = 0 Then
            MsgBox "Vous n'avez pas introduit des données à rechercher", vbInformation, "Liturgie Sainte Barbe"
        Else
            strSQL = strSQL & " ORDER BY TitreChant"
            strForm = "frmChantsResultats"
            Set rst = dbs.OpenRecordset(strSQL)
 
            If rst.EOF And rst.BOF Then
                MsgBox "Le chant n'a pas été trouvé avec les mots que vous avez introduits." & vbCrLf _
                & vbCrLf & "Remarque : Pour chercher un chant ce n'est pas nécessaire de saisir tous les mots du titre." _
                & vbCrLf, vbExclamation, "Chant non trouvé"
            Else
                strForm = "frmChantsResultats"
                DoCmd.OpenForm strForm
                Set Form_frmChantsResultats.Recordset = dbs.OpenRecordset(strSQL, , dbReadOnly)
            End If
 
    rst.Close
    Set rst = Nothing
    Set dbs = Nothing
 
        End If
salida:
    Exit Function
 
GestionError:
    Call fnMsgError
    Resume salida
 
End Function

**Kloun** · 25/11/2010, 10h00

Là, tu t'en débarrasses pas, tu la doubles ...
Et le débug.print, ça donne quoi ?

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Function RechercheChant(strText As String)
On Error GoTo GestionError
 
    Dim strForm As String
    Dim strSQL As String
    Dim dbs As DAO.Database
    Dim intValeur As Integer
    Dim rst As DAO.Recordset
 
    Set dbs = CurrentDb()
    intValeur = 0
    strSQL = "SELECT * FROM Chants WHERE "
 
 
        If Not IsNull(strText) Then
            strText = Replace(strText, "'", "''")
            strSQL = strSQL & "[TitreChant] LIKE '*" & (BuscaAcent(strText)) & "*'"
            intValeur = 1
        End If
 
        If intValeur = 0 Then
            MsgBox "Vous n'avez pas introduit des données à rechercher", vbInformation, "Liturgie Sainte Barbe"
        Else
            strSQL = strSQL & " ORDER BY TitreChant"
debug.print strSQL
            strForm = "frmChantsResultats"
            Set rst = dbs.OpenRecordset(strSQL)
 
            If rst.EOF And rst.BOF Then
                MsgBox "Le chant n'a pas été trouvé avec les mots que vous avez introduits." & vbCrLf _
                & vbCrLf & "Remarque : Pour chercher un chant ce n'est pas nécessaire de saisir tous les mots du titre." _
                & vbCrLf, vbExclamation, "Chant non trouvé"
            Else
                strForm = "frmChantsResultats"
                DoCmd.OpenForm strForm
                Set Form_frmChantsResultats.Recordset = dbs.OpenRecordset(strSQL, , dbReadOnly)
            End If
 
    rst.Close
    Set rst = Nothing
    Set dbs = Nothing
 
        End If
salida:
    Exit Function
 
GestionError:
    Call fnMsgError
    Resume salida
 
End Function

**alfhcg** · 25/11/2010, 12h41

Oui tu as raison, je double le ' pour éviter que la strSQL s'arrête. En effet, je n'ai pas d'intérêt à me débarrasser de ', mais de la virgule. Je crois que pour faire une recherche l'utilisateur n'hésiterait pas à mettre ' , par contre la virgule ce n'est pas sûr qu'il va la taper.

Por le strSQL sans replace le Debug.Print donne cela, si je tape "Aimer c'est vivre". ça marche bien:

Code :

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

1
2
3
4
SELECT * 
FROM Chants 
WHERE [TitreChant] LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r c''[EÉÈÊË]st v[IÍÌÎÏ]vr[EÉÈÊË]*' 
ORDER BY TitreChant

Le Debug.Print avec Replace, me donne:

Code :

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

1
2
3
4
SELECT * 
FROM Chants 
WHERE Replace([TitreChant], ',', '') LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r c''[EÉÈÊË]st v[IÍÌÎÏ]vr[EÉÈÊË]*' 
ORDER BY TitreChant

Cela me donne erreur 3464

**Kloun** · 25/11/2010, 12h46

Et si tu mets le SQL du debug.print dans une requête, l'erreur n'est pas plus précise ?

**alfhcg** · 25/11/2010, 13h34

Le premier Debug.Print marche bien et le deuxième donne l'erreur:

"Type de données incompatible dans l'expression du critère".

**alfhcg** · 25/11/2010, 14h09

Si à la place du champ TitreChant (string) je mets le champ IdChamp (AutoNuméric) je n'ai pas d'erreur.

**Kloun** · 25/11/2010, 14h30

Envoyé par alfhcg

Le premier Debug.Print marche bien et le deuxième donne l'erreur:

"Type de données incompatible dans l'expression du critère".

Je ne suis pas sûr qu'on se comprenne.
Je parle de récupérer le SQL de la fenêtre exécution et de le copier dans la fenêtre SQL d'une nouvelle requête afin de voir ce que ça donne en mode création.

**alfhcg** · 25/11/2010, 15h18

C'est que j'ai fait, j'ai copié le code SQL dans une nouvelle requête access, quand j'essaie de voir la requête en mode feuille de données j'ai une msgbox qui dit:
"Type de données incompatible dans l'expression du critère".
Alors, si dans l'instruction SQL, au lieu de TitreChant (champ type string), je mets IdChant (entier) je n'ai pas d'erreur.

**Kloun** · 25/11/2010, 15h33

Dans ton code, est ce que tu peux remplace

Code :

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

1
2
3
            strSQL = strSQL & " ORDER BY TitreChant"
debug.print strSQL
            strForm = "frmChantsResultats"

par

Code :

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

1
2
3
4
            strSQL = strSQL & " ORDER BY TitreChant"
debug.print strSQL
            strSQL = "SELECT * FROM Chants WHERE [TitreChant] LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r*'"
            strForm = "frmChantsResultats"

Et voir si ça passe ?

**alfhcg** · 25/11/2010, 17h50

Avec:

Code :

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

1
2
3
4
            strSQL = strSQL & " ORDER BY TitreChant"
            Debug.Print strSQL
            strSQL = "SELECT * FROM Chants WHERE [TitreChant] LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r*'"
            strForm = "frmChantsResultats"

J'obtiens tous les chants qui contiennent le mot "Aimer"

**Kloun** · 26/11/2010, 11h06

Allons un peu plus loin :

Code :

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

1
2
3
4
            strSQL = strSQL & " ORDER BY TitreChant"
            Debug.Print strSQL
            strSQL = "SELECT * FROM Chants WHERE [TitreChant] LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r c''[EÉÈÊË]st*'"
            strForm = "frmChantsResultats"

**alfhcg** · 26/11/2010, 23h34

Là il me trouve le chant. Mais comment faire pour qu'il prenne la valeur à rechercher d'une variable?

Merci.

**Kloun** · 27/11/2010, 11h19

Dernier test :

Code :

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

1
2
3
4
            strSQL = strSQL & " ORDER BY TitreChant"
            Debug.Print strSQL
            strSQL = "SELECT * FROM Chants WHERE [TitreChant] LIKE '*[AÁÀÂÄ][IÍÌÎÏ]m[EÉÈÊË]r c''[EÉÈÊË]st*'  ORDER BY TitreChant"
            strForm = "frmChantsResultats"

Là, on a le SQL d'origine normalement.

**alfhcg** · 27/11/2010, 16h16

Il me trouve le chant:
AIMER, C'EST VIVRE, AIMER C'EST LA JOIE

Mais il ne trouve pas les chants suivants qui commencent par le même mot:

AIMER, C'EST TOUT DONNER
AIMER, C'EST VIVRE

Ignorer la virgule dans resultat requête avec LIKE

Requêtes et SQL.

Discussions similaires

Partager

Partager