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é];
Trouvez des réponses à vos questions sur les langages, les frameworks et les astuces de codage. Échangez avec d'autres développeurs passionnés pour améliorer vos compétences en programmation et rester au fait des dernières tendances du secteur.