Additem access ne fonctionne plus [Résolu]

Signaler
-
 Math.ism -
Bonjour,

j'essaye d'ajouter des lignes dans une zone de liste en fonction de ce qui a été choisi dans une liste déroulante, voici mon code:

Private Sub dossier_Change()
Dim BDD As DAO.Database
Dim outillage As DAO.Recordset
Dim ref As String

Set BDD = CurrentDb
Set outillage = BDD.OpenRecordset("SELECT DISTINCT ref_outillage FROM outillages WHERE dossier_1 ='" & Me.dossier.Value & "'")

outillage.MoveFirst
Do Until outillage.EOF
ref = outillage.Fields("ref_outillage").Value
MsgBox (ref)
Me.out_transfert.AddItem (ref)
outillage.MoveNext
Loop

End Sub

Le texte renvoyé par la msgbox est correct, et ce code a fonctionné pendant quelques essais avant que je commence à essayer de rajouter un RemoveItem au début du code pour vider ma liste avant de la reremplir.
Est ce que vous auriez une solution à me proposer? Car j'ai pas mal cherché pour essayer de trouver une solution mais je n'y arrive pas.

Merci d'avance à ceux qui prendront sur leur temps pour m'aider.
Bonne journée

1 réponse

En fait j'ai trouvé mon problème toute seule, j'avais deux colonnes dont la première qui faisait 0 cm, donc je ne la voyais pas et je pensais que Additem ne fonctionnait pas.
Je laisse ça là au cas où quelqu'un soit dans le même cas.
Bonne journée