Bonsoir tout le monde,
J'ai un petit problème que je n'arrive pas à résoudre pour définir les éléments d'une listbox à partir d'un recordset (qui est le résultat d'une requête Access).
Je précise que j'utilise DAO. Le plus bizarre c'est que je remplis une listbox juste avant dans le même code (sans problème).
Mais avec celle-ci, j'ai plein de blancs et une série de 1 pour finir (alors que je devrais obtenir une liste qui va de 1 à environ 160 par pas de 1). Le pire c'est que lorsque je regarde ce qui se passe en mode pas-à-pas, "CStr(rstCoursesList.Fields("course_id").Value)" (cf. ci-dessous) prend bien les valeurs que j'attends...mais ce n'est pas ce qui apparaît après dans la listbox!
Voici le code incriminé, lors de l'initialisation du userform dans lequel se trouve ma listbox:
Merci d'avance!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Private Sub UserForm_Initialize() Dim i As Long For i = 1 To 9 lbxSections.AddItem (CStr(i)) Next Do While Not rstCoursesList.EOF lbxCourses.AddItem (CStr(rstCoursesList.Fields("course_id").Value)) rstCoursesList.MoveNext Loop End Sub
Partager