1 2 3 4 5 6 7 8 9
| Dim selMult1 As Variant, selMult2 As Variant
For Each selMult1 In Me.droits_sociaux.ItemsSelected
For Each selMult2 In Me.DS.ItemsSelected
DoCmd.RunSQL "INSERT INTO SITUATION_ADMINISTRATIVE_SORTIE (num_usager, niveau_scolaire, diplomes, potentiel_scolaire_echelle, situation_pro, annee_obtention, droits_sociaux, DS) " & _
"VALUES ( " & Me.num_usager_SITUATION_ADMINISTRATIVE.Value & ", '" & Me.niveau_scolaire.Value & "', '" & Me.diplomes.Value & "', '" & Me.potentiel_scolaire_echelle.Value & "', '" & Me.situation_pro.Value & "', '" & Me.annee_obtention.Value & "', '" & Me.droits_sociaux.Value & "', '" & Me.DS.Value & "'); "
Next selMult2
Next selMult1 |
Partager