Pb avec le tutoriel multi critere

[Dieu091]

Bonjour
je vien de faire le tutoriel pour la recherche multi critere en l'adaptant a mes contrainte de ma base. Mais j'ai quelque souci avec que je ne sait pas resoudre.Pour ceux qui voudrait me dire tu na qu'a bien lire sa fait 4h que je suis deçu

1- Quand je coche une case et que je selectionne un critere celui ci ne m'affiche rien dans la zone liste. Pas compris

2- Comment on met un label? C'est comme une lsite? j'ai pas trouvé

3-Es-t-il possible que lorsque je selectionne un critere qu'apparraissent d'autre information dans la liste mais qui elle ne sont pas des critere? (oula si je me suis mal exprimé oublier cette question)

[Dolphy35]

Salut,

si tu veux que l'on t'aide il faut nous en dire plus sur ta base, voire même déposé un bout de code.

Dolphy

[jo001]

Salut moi aussi j'ai eu du mal avc le moteur de recherche

1. déjà ta zone de tésultat doit etre une zone de texte et pas de liste
   
2. Ensuite il faut créer une variable en plus pour définir le nombre de champ
   
   Code :

   1
   2
   ' pour contenir le nombre de champs de la table (le nombre de colonnes retournées par la requête
   Dim intNbreChamps As Integer

   
   
   
3. Dans la requete SQL en elle meme on utilse 'DISTINCTROW' --> La fonction DISTINCT ne sert a rien tu peus la suprimer
   
4. Et enfin , l'affectation a lst.resultats ne se fait pas par .Rowsource mais par .value

Ne t'inquiete pas si c'est un peu trop compliqué je te donne mon code VB complet pour le bouton de recherche(c'est une recherche simple avec des valeur exacte):


BON COURAGE

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
Private Sub Btn_Recherche_Click()
 
' pour contenir le nombre de champs de la table (le nombre de colonnes retournées par la requête
Dim intNbreChamps As Integer
 
' Désignation du reste des variables____________________________________________________________
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
intNbreChamps = Me.cbo_champ.ListCount 'récupère le nombre de champs
'_______________________________________________________________________________________________
 
 
' compose le critere de recherche_______________________________________________________________
strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
' construit la requête sql______________________________________________________________________
strSql = "SELECT ROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE ((" & strCriteria & "));"
'_______________________________________________________________________________________________
 
 
Me.lst_resultat.Value = strSql
Me.RecordSource = strSql
 
 
' affecte sql a lst_Resultat
lst_resultat.RowSource = strSql              ' affecte sql a lst_Resultat
lst_resultat.ColumnCount = intNbreChamps
lst_resultat.Requery                         ' recalcule la liste
End Sub

[jo001]

J'oubliais conserve les noms utilisé dans le tutoriel
Il me semble de tête que c'est ça
cbo_ctable
cbo_champ
txt_critere
btn_commande
lst_resulstat
De toute façon les nom sont dans le code VB au dessus !
SALUT ET ENCORE BON COURAGE

JO

[Tofalu]

Et enfin , l'affectation a lst.resultats ne se fait pas par .Rowsource mais par .value

Value indique la valeur sélectionnée dans la zone de liste, certainement pas le contenu de la zone de liste Value n'interprete pas du sql

déjà ta zone de tésultat doit etre une zone de texte et pas de liste

Donc on peut avoir qu'un seul résultat

Dans la requete SQL en elle meme on utilse 'DISTINCTROW' --> La fonction DISTINCT ne sert a rien tu peus la suprimer

Voir la FAQ au sujet de distinctrow, c'est bien distinct qu'il faut utiliser ici

Bizarre ce double passage :

Code :

1
2
Me.lst_resultat.Value = strSql
Me.RecordSource = strSql

faudrait savoir si c'est la liste qui affiche les données ou le formulaire

A mon avis, tu aurais tout intéret à modifier ces quelques points

[Dieu091]

Je regarde sa ce soir je vous dis demain si sa fonctionne ou non

je vous remercie de votre aide

[jo001]

Perso ce code marche a merveille dans ma base de donnée j'espère juste qu'il pourra t'aider !