Ajouter plusieurs enregistrements à la fois.

[bluegone]

Bonjour,
Après avoir chercher sur ce forum une réponse à ma question, je me permets de la posée..

Voici mon problème.

J'ai une table (qui regroupe tous les cours qu'effectue des employé, ainsi que les nom des employé etc.).


- Via un formulaire, je peut sélectionné les cours via une liste déroulante.

- Ensuite, en dessous, il y a une liste déroulante mentionnant le nom de tous mes employés.

- Pour fini un bouton enregistrer , pour enregistrer les nouveau enregistrement dans la table.


Ma question est : j'arrive bien à faire enregistrer un enregistrement à la fois.
mais, j'aimerais que par exemple : si 50 employé participe au cours n°5, je n'ai pas besoin de saisir 50 fois l'enregistrement.

je clique sur tous les employé dans ma liste déroulante et une fois que je clique sur enregistrement les 50 nouveau enregistrement s'enregistrent dans la table.

Merci pour votre réponse.

Salutations.

[loufab]

Bonjour,

Parcourt de la liste des employés et à chaque ItemSelected tu fais ta requete INSERT avec la formation choisie.

Code :

1
2
3
4
5
6
7
 
Dim itm As Variant          ' l'item choisi
For Each itm In Me.Maliste.ItemsSelected                 ' parcourt les items
 
    currentdb.execute  = "INSERT ....'" & Me.Zliste.ItemData(itm) & "' ...."
 
Next

ça se complique lorsque tu as plusieurs employés et plusieurs formations. Il faut imbriquer les For Each.

Cordialement,