Recherche Multicriteres Avec Un Formulaire Access

[jo001]

BONJOUR A TOUS!

J'ai un projet en terminale que je doit boucler dans 15 jours et
il s'agit d'organiser la gestion d'une association avec access et de
créer une interface simple d'utilisation.
Pour ca j'ai simulé un logiciel a l'aide de formulaires attachés les uns aux autres et j'ai un souci avec mon formulaire de cherche, pourtant j'ai suivi à la lettre un tutoriel du site et j'ai besoin de votre aide SVP

voila un apercu du formulaire:

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
Option Compare Database
Option Explicit
 
Private Sub cbo_champ_AfterUpdate()
 
End Sub
 
Private Sub cbo_table_AfterUpdate()
Me.cbo_champ.RowSource = Me.cbo_table.Value
Me.cbo_champ.Requery
End Sub
 
Private Sub Btn_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
 
' compose le critere de recherche
strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
' 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
 
 
 
Private Sub lst_resultat_BeforeUpdate(Cancel As Integer)
' construit la requête sql
 
Me.lst_resultat.RowSource = strSql  ' affecte sql a lst_Resultat
Me.lst_resultat.Requery             ' recalcule la liste
 
 
 
End Sub

A MON IDEE LE PROBLEME VIENT DU .RowSource MAIS COMME JE SUIS NOVICE EN VB JE SAIS PAS QUOI FAIRE

MERCI D'AVANCE
JO.

[FreeAccess]

Bonjour,

...Pour ca j'ai simulé un logiciel a l'aide de formulaires attachés les uns aux autres et j'ai un souci avec mon formulaire de cherch

OUi, c'est bien...... ...et quel est donc ce problème....