Bonjour lilil,
Une approche simple serait d'avoir une zone de liste indépendante qui serait basée sur la table de tes codes. Tu choisis dans la feuille des propriétés, onglet autres, sélection multiple = Étendu. Cela te permet de choisir les codes que tu veux dans la liste. Tu récupères ces choix et tu base la source de ton sous formulaire ou de ta requête sur ces choix avec un Where clause In(la liste).
Pour récupérer les codes sélectionnés dans ta liste:
1 2 3 4 5 6 7 8 9 10 11
| Dim vaCode as Variant
Dim strCode as string
If Not IsNull(cmbCode.ItemsSelected) Then
For Each vaCode In cmbCode.ItemsSelected
If strCode = "" Then
strCode = cmbCode.ItemData(vaCode)
Else
strCode = strCode & ", " & cmbCode.ItemData(vaCode)
End If
Next
End If |
Puis tu affectes le résultat à ton sous formulaire:
Me.LeNomDuSousFormulaire.Form.RecordSource = "Select TaTable.TonChamp From TaTable WHERE TaTable.TonChamp In ( " & strCode & ");"
Bonne journée
Partager