Additem access ne fonctionne plus
Résolu
Math.ism
-
Math.ism -
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
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
- Qwerty to azerty - Guide
- Video to video - Télécharger - Conversion & Codecs
- Majuscule to minuscule - Guide
- Bat to exe converter - Télécharger - Édition & Programmation
- Honestech vhs to dvd - Forum Lecteurs et supports vidéo