Option Compare Database
Private Sub IDfournisseur_AfterUpdate()
Dim lngIDCat As Long
Dim SQL As String
If Not IsNumeric(Me!IDfournisseur) Then Exit Sub
lngIDCat = Me!IDfournisseur
SQL = "SELECT [Produits].[IDproduit], Produits.[Designation] FROM Produits WHERE IDfournisseur =" & lngIDCat & " ORDER BY Designation"
IDProduit.RowSource = SQL
IDProduit.Enabled = True
IDProduit.SetFocus
IDProduit.Dropdown
End Sub