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
A voir également:
You don't have permission to access this resource.server unable to read htaccess file, denying access to be safe
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
