Discussion :

[Almeyric]

Bonjour,

J'ai mis en place ce tuto pour une recherche par texte sur quelques tables : Formulaire de recherche prêt à l'emploi.

Tout va très bien, mais voilà que lors de sa mise en production, sur une des 3 tables, lors d'une recherche il ne m'affiche que les 3 premiers caractères, alors qu'en cours de développement, cela fonctionner très bien.

Voici les deux résultats.


J'ai agrandi la largeur des colonnes mais toujours pareil.

[madefemere]

Bonjour,

Peux-tu être plus précis sur le problème et à partir de quel tuto tu travailles ( ou le code que tu utilises).
Parce qu'avec tes copies d'écran, comme tu coches la case "Commence par", c'est normal si cela n'affiche que les premiers caractères.

Cordialement.

[Almeyric]

Oups, désolé pour l'oublier du lien. Au niveau du code, j'ai été jusque : VII-A-2. Le code VBA du tuto. Je mettrai le reste ensuite. Une recherche sur le nom suffit pour le moment.

Oui, j'ai coché la case Commencer par avec la valeur texte CA ou j'ai au moins une réponse dans chaque table. Même avec un autre début de nom, cela fait pareil.

MErci

[madefemere]

Bonjour,

Sans le code difficile de dire tout de suite ce qui ne va pas.
Apprends à déboguer ton code en utilisant un Debug.Print.
Fais un

Code :

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

Debug.Print strSql

pour imprimer ce que tu as comme source de valeurs. Tu verras si tu as encore un

Code :

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

"... WHERE [Latable].[LeNom] LIKE 'CA*'"

ou les nouveaux caractères.
Cela t'orientera.

Cordialement.

[Almeyric]

Bonjour madefemere,

En lisant ta réponse, je me suis rappelé que dans le tutoriel, il est bien expliqué de faire attention au nom des tables et champs. Et là, j'ai les deux cas, une table sans espace mais avec underscore, et les deux autres avec des espaces.

Donc je fais un test dans l'après midi. Si c'est celà, j'effectuerai un test avec condition.

[loufab]

Bonjour,

La correction du problème des espaces et autres caractères à éviter est dans la deuxième partie du tuto qui en compte 3.

Celles avec espaces (comme le nom de champ) sont concernées, par contre s'il s'agit bien de _ (underscore) et non - (moins) le problème est ailleurs.

Cordialement,

[Almeyric]

Bon je viens donc de regarder. Et j'ai le même résultat.

Voici le code recherche qui vient du tuto. Il n'y a que les variables tables et champs qui peuvent avoir une incidence.

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
Private Sub cmd_recherche_Click()
 
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    'strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
    'strField = "[" & Me.cbo_champ & "]"         ' recupère le nom du champ
 
    strTable = Me.cbo_table         ' recupère le nom de la table
    strField = Me.cbo_champ         ' recupère le nom du champ
 
    ' compose le critere de recherche
 
           Select Case Me.opt_Recherche
                  Case 1 ' strictement egal
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
                  Case 2 ' commence par
                       strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & "*"""
                  Case 3 ' contient
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & "*"""
                  Case 4 ' fini par
                       strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & """"
                  Case 5 ' ne contient pas
                       strCriteria = "NOT (" & strTable & "." & strField & " Like ""*" & Me.txt_critere & "*"")"
           End Select
 
 
    ' construit la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & ".*"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE ((" & strCriteria & "));"
 
 
    Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
    Me.lst_resultat.Requery             ' recalcule la liste
 
End Sub

Le debug.rpint :

Code :

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

SELECT DISTINCTROW Archives_Accueillis_Simples.* FROM Archives_Accueillis_Simples WHERE ((Archives_Accueillis_Simples.Nom Like "cav*"));

ou

Code :

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

SELECT DISTINCTROW [Archives_Accueillis_Simples].* FROM [Archives_Accueillis_Simples] WHERE (([Archives_Accueillis_Simples].[Nom] Like "ca*"));

[madefemere]

Bonsoir,

Tu veux dire qu'en mettant une recherche sur les noms commençant par "cav", tu as quand même tous les noms commençant par "ca" ?
Parce que la capture d'écran dans ton premier message a l'air de donner le bon résultat !

Les expressions SQL que tu donnes après le Debug.Print sont correctes a priori. Est-ce que si tu les "colles" dans le générateur de requêtes d'Access, tu as les bons résultats ?

Cordialement.

[loufab]

Je te conseille cette syntaxe :

Code :

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

1
2
   strTable = "[" & Me.cbo_table & "]"         ' recupère le nom de la table
   strField = "[" & Me.cbo_champ & "]"         ' recupère le nom du champ

C'est la seule qui permet d'utiliser des tables avec espaces et autres caractères à éviter.

La première copie d'écran représente le bon fonctionnement alors que la 2ème représente le mauvais (3 caractères de l'id et toutes les autres colonnes vides).
C'est bien ça ?