Discussion :

[phoenix974]

Dans mon formulaire de recherche multicritere, j'ai reussi à lier les listes, cependant elle ne se mettent pas à jour automatiquement il faut que je reclic sur ---tous--- pour que cela m'affiche les bonnes valeurs.

voici ce que j'ai mis sur apres MAJ:

Code :

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

1
2
3
4
Private Sub cboRechCategorie_AfterUpdate()
    RefreshQuery
    Me![cboRechCategorie].Requery
End Sub

sachant que RefreshQuery c'est:

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT Article.CodeArticle, Article.Designat°, Clients.NomClient, Catégories.NomCatégorie, FamillePdt.NomFpdt, CUMP_GENE.StockReel, CUMP_GENE.CUMP, CUMP_GENE.ValeurTotalStock, Article.Tx FROM CUMP_GENE INNER JOIN (FamillePdt INNER JOIN (Clients RIGHT JOIN (Catégories INNER JOIN Article ON Catégories.RéfCatégorie = Article.RéfCatégorie) ON Clients.RéfClient = Article.RéfClient) ON FamillePdt.RéfFpdt = Article.RéfFpdt) ON CUMP_GENE.CodeArticle = Article.CodeArticle WHERE (((Article.RéfArticle) > -1))"
 
 If Me.cboRechCodeArticle <> 0 Then
    SQL = SQL & " And Article!RéfArticle = " & Me.cboRechCodeArticle & " "
 End If
 If Me.cboRechClients <> 0 Then
    SQL = SQL & " And Clients!RéfClient = " & Me.cboRechClients & " "
 End If
 If Me.cboRechCategorie <> 0 Then
    SQL = SQL & " And Catégories!RéfCatégorie = " & Me.cboRechCategorie & " "
 End If
 If Me.cboRechProduits <> 0 Then
    SQL = SQL & " And FamillePdt!RéfFpdt = " & Me.cboRechProduits & " "
 End If
 
 'SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & " ORDER BY Article!CodeArticle;"
MsgBox SQL
 Forms![fRecherche]![sfRecherche].Form.RecordSource = SQL
 Forms![fRecherche]![sfRecherche].Form.Requery
 
End Sub

comment resoudre mon probleme?

merci d'avance

[phoenix974]

Mais encore?

Mon code est il bon au moins? ou il y a t il de meilleurs solutions?

[phoenix974]

j'ai trouvé la solution,

j'ai rajouté ceci à l'évènement apres MAJ de chaques listes déroulantes:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cboRechCategorie_AfterUpdate()
    RefreshQuery
    Me![cboRechCategorie].Requery
    Me![cboRechClients].Requery
    Me![cboRechProduits].Requery
    Me![cboRechCodeArticle].Requery
 
End Sub

et cela fonctionne.