Bonjour....
Voici mon problème :
Je develloppe un formulaire access dont tous les traitements se font en en VBA...
Lorsque je veux remplir une liste déroulante der mon formulaire j'enregistre d'abord toute les donnéee necessaire dans une listebox (a moins que combobox soit plus appropriée..qu'en pensez-vous ?). Et lorsque je veux enregistrer une valeur dans ma liste avec la méthode additem appliquée a ma liste j'obtiens le message suivant :"Variable objet ou bloc de with non défini : erreur 91).
Pour plus de clarté dans mes explication voici mon code :
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)
Dim nom As String
rs.OpenRecordset
rs.MoveFirst
n = 0
While Not rs.EOF
If rs!CategorieArticle = Me!SortieCategorie Then
MsgBox Me!SortieCategorie
liste.AddItem (rs!TypeArticle)
n = n + 1
End If
rs.MoveNext
Wend
rs.Close
End Sub
Voila si kkun peut m'éclairer ce serait sympathique..
Merci par avance
Prosper