J'ai un formulaire sous Access contenant une zone de liste à sélection multiple.
Tout fonctionne bien, mes enregistrements sont bien stockés dans la table.
Par contre, à l'ouverture de mon formulaire, les items que j'avais sélectionné précédemment ne sont plus sélectionnés (visuellement).
J'ai donc créé un code sur activation du formulaire :
Dim bdd As Database
Dim sql As Variant
Dim table As Variant
Set bdd = CurrentDb
Set table = bdd.OpenRecordset("T Organisme désigné / CCN")
table.MoveLast
Do While Not table.BOF
essai = Me.Num_CCN.Value
If table.Fields("num CCN") = essai Then
req = "SELECT * FROM [T Organisme désigné / CCN]where [T Organisme désigné / CCN].[Num CCN]=" & Me.Num_CCN & ";"
Set rs1 = bdd.OpenRecordset(req)
table.Edit
j = table.[Num organisme désigné]
req2 = "SELECT * FROM [T Organisme désigné]where [T Organisme désigné].[Num organisme désigné]=" & j & ";"
Set rs2 = bdd.OpenRecordset(req2)
truc = rs2.[nom organisme désigné]
For i = 0 To Me.Liste_organismes_désignés.ListCount - 1
If Me.Liste_organismes_désignés.Column(1) = truc Then
Me.Liste_organismes_désignés.Selected(i) = True
End If
Next i
End If
table.MovePrevious
Loop
table.Close
Mais toujours rien à l'affichage de mon formulaire.
Mon contrôle sur le formulaire s'appelle Liste organismes désignés
Il est basé sur une table et son contenu est :
SELECT [T Organisme désigné].[Num organisme désigné], [T Organisme désigné].[Nom organisme désigné] FROM [T Organisme désigné] ORDER BY [T Organisme désigné].[Num organisme désigné];
