Salut @ tous
J'aurai besoin de vos lumieres pour débuger une procédure VBA pour Acess XP.
Bon en gros ce que je cherche à faire :
En prenant la valeur définie dans une premiere zone de liste de mon formulaire, je veux faire aficher une liste d'articles y correspondant dans une deuxieme zone de liste.
Pour etre plus clair voila le code :
'se déclenche lorsque l'utilisateur rentre dans la liste
Private Sub SortieType_Enter()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim liste As ListBox
Set db = CurrentDb
Set rs = db.OpenRecordset("produits", dbOpenDynaset)
rs.Open
rs.MoveFirst
While Not rs.EOF
'Si le champs "categorieArticle corespond a la valeur de ma
'premiere liste deroulante
If rs("CategorieArticle") = Me!SortieCategorie Then
'Je veux inscrire le champs "catégorieArticle"
Me!SortieType.RowSourceType(liste).AddItem (rs("TypeArticle"))
End If
rs.MoveNext
Wend
rs.Close
End Sub
A priori le programme plante au moment ou je veux inscrire les valeurs dans ma liste déroulante c'est à dire à la ligne :
"Me!SortieType.RowSourceType(liste).AddItem (rs("TypeArticle"))"
Je pense que ce n'est pas grand chose, sinon une erreur de syntaxe.Mais je dois avouer qu'a cause de ca...je n'avance plus..ce qui est assez embetant.
Merci d'avance
Prosper