Discussion :

[corwin44]

Bonjour,

je vient de faire un formulaire de recherche avec deux zone de filtre, une zone de texte qui permet de spécifier les lignes rechercher, un bouton de recherche et une zone de liste qu affiche les résultats.
voici le code VBA du bouton recherche:

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
 
Private Sub Rechercher_Click()
Dim strTable As String, strField As String, strCriteria As String, strSql As String
 
    Dim Criter As Variant
    strTable = Me.rechercheFab        ' recupère le nom de la table
    strField = Me.rechercheChamp         ' recupère le nom du champ
 
    If IsNull(strTable) Or IsNull(strField) Then   ' l'une des listes est vide
       MsgBox "Vous devez sélectionner une table et un champ.", vbExclamation + vbOKOnly, "une erreur"
       Exit Sub
    End If
 
     ' compose le critere de recherche
     strCriteria = strTable & "." & strField & " Like """ & Me.zoneRecherche & """"
     ' construit la requête sql
 
     strSql = " SELECT distinctrow " & strTable & ".*"
     strSql = strSql & " FROM " & strTable
     strSql = strSql & " WHERE ((" & strCriteria & "));"
     Me.resultatRecherche.RowSource = strSql  ' affecte sql a resultatRecherche
     Me.resultatRecherche.Requery             ' recalcule la liste
 
End Sub

les critères rechercheFab et rechercheChamp corresspondent aux deux zone permettant de filtrer une partie des données.
le critère zoneRecherche représente la zone de texte ou l'on met un mot qui doit correspondre a une ligne que l on recherche
le dernier critère resultatRecherche corresspond à le la lzone de liste dans laquelle on doit récupérer et afficher les données.
Le gros PB c'est qu il ne se passe rien quand on appuie sur le bouton, il n 'affiche acun résultat.

Si qq voit ou est le problème ca m enleverait une grosse aiguille du pied.
merci d'avance

[Trini]

Bonjour,

Tu as oublié l'astérisque sur le like, comme :

Code :

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

1
2
3
4
 
   strCriteria = strTable & "." & strField & " Like """ & Me.zoneRecherche & "*"""   ' Recherche ce qui commence par ZoneRecherche
 
   strCriteria = strTable & "." & strField & " Like ""*" & Me.zoneRecherche & "*"""   ' Recherche tout ce qui contient la chaine Zonerecherche

A toi de choisir le code qui te convient pour ta recherche.

Salut,

[corwin44]

salut,

je te remercie pour cette oublie, mais malheuresement ca ne me permet pas d'afficher mes résultat dans mon tableau.

Merci qd même

[cafeine]

Hello,

ça peut venir d'un autre problème : si ta table contient un espace ... ton SQL va s'en trouver faussé, tu peux entourer de [] les noms de champs et de tables

Pour vérifier ça ... http://cafeine.developpez.com/debugprint/

[Promeneur]

et est-ce que ta requête renvoie quelque chose ?
Si tu debug, que tu copies le resultat de ta chaine SQL et que tu le colles dans la zone SQL d'une requête, cela renvoie des résultats ?

[corwin44]

salut,

merci cafeine je n' avait pas penser a ca du tt .
maintenant ma recherche fonctionne jvous remercie tous pour votre patience et votre aide


@++