Bonjour
Voici une solution
La liste déroulante des différents cours doit être basée sur une table "list_cours"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub BOUTONAJOUTCOURS_Click() Dim vSel As Variant, Numenreg As Integer For Each vSel In Me.[nom de la liste déroulante].ItemsSelected Numenreg = vSel DoCmd.RunSQL "INSERT INTO [Eleves] ( Nom-cours ) SELECT [list_cours].Nom_cours FROM [list_cours] WHERE ([list_cours].nom_cours=" & Me.[nom de la liste déroulante].ItemData(vSel) & ")" Next End Sub
Partager