1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Form_Current()
Me![ID_Famille].RowSource = "SELECT T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille FROM T_Liste_Produits GROUP BY T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille ORDER BY T_Liste_Produits.Famille;"
Me.[ID_Sous_Famille].RowSource = "SELECT T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Sous_Famille, T_Liste_Produits.ID_Famille FROM T_Liste_Produits GROUP BY T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Sous_Famille, T_Liste_Produits.ID_Famille, T_Liste_Produits.Famille HAVING (((T_Liste_Produits.Famille) = [Formulaires]![S/F_Factures_New2]![Famille])) ORDER BY T_Liste_Produits.ID_Famille;"
Me![ID_Produit].RowSource = "SELECT T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Produit, T_Liste_Produits.ID_Produit FROM T_Liste_Produits WHERE (((T_Liste_Produits.Sous_Famille) = [Formulaires]![S/F_Factures_New2]![Sous_Famille])) GROUP BY T_Liste_Produits.ID_Sous_Famille, T_Liste_Produits.Produit, T_Liste_Produits.ID_Produit ORDER BY T_Liste_Produits.Produit;"
End Sub
Private Sub ID_Famille_AfterUpdate()
Me![Famille] = Me![ID_Famille].Column(1)
End Sub
Private Sub ID_Sous_Famille_AfterUpdate()
Me![Sous_Famille] = Me![ID_Sous_Famille].Column(1)
End Sub
Private Sub ID_Produit_AfterUpdate()
Me![Produit] = Me![ID_Produit].Column(1)
End Sub |
Partager