[AC-2007] Ignorer la virgule dans resultat requête avec LIKE

[alfhcg]

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 :

            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 :

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

Merci si quelqu'un pourrait m'éclairer.

[User]

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 :

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

Bonne continuation

A+

[Cinesra]

Salut alfhcg, salut User (tiens tiens tiens, comme on se retrouve )

Regarde ça, je m'en suis servi moi aussi: TRES UTILE!!!!
http://grenier.self-access.com/?post...-de-mot-entier

Bonne continuation

Ciao

[alfhcg]

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

Code :

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 :

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

[alfhcg]

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]

Bonjour,

J'essaierai :

Code :

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]

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 :

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 :

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]

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

Code :

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]

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 :

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 :

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]

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

[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".

[alfhcg]

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

[Kloun]

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]

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]

Dans ton code, est ce que tu peux remplace

Code :

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

par

Code :

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]

Avec:

Code :

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]

Allons un peu plus loin :

Code :

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]

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

Merci.

[Kloun]

Dernier test :

Code :

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]

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