1 2 3 4 5 6 7 8
| 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, dip, potentiel, situation, annee, droits_sociaux, DS) " & _
"VALUES ( " & Me.num_usager_SA.Value & ", '" & Me.niveau.Value & "', '" & Me.dip.Value & "', '" & Me.potentiel.Value & "', '" & Me.situation.Value & "', '" & Me.annee.Value & "', '" & Me.droits_sociaux.ItemData(selMult1) & "', '" & Me.DS.Value.ItemData(selMult2) & "' ) "
Next selMult2
Next selMult1 |
Partager