mise a jour de liste déroulante
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:
1
2
3
4
| Private Sub cboRechCategorie_AfterUpdate()
RefreshQuery
Me![cboRechCategorie].Requery
End Sub |
sachant que RefreshQuery c'est:
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
| 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
