Requête SQL avec bouton de commande

Bonjour,

Dans un formulaire de "saisie" j'ai placé trois listes déroulantes:
-Nom Agent
-Formation
-Suivi

Nom Agent va chercher dans la table Agent le nom et le prénom de l'agent sélectionné.
Formation le nom de la formation choisie.
Suivi renseigne si la formation est en statut "Demandé","Fait" ou "-"

J'aimerais créer un bouton OK qui ajoute les données sélectionnées dans une autre table.
J'imagine que ce sera une requête du type:

Code:

---

INSERT INTO <NomTableDestination> SELECT <Champ1>, <Champ2>….FROM <NomTableSource>

---

Sauf que cette table doit stocker les identifiants (numériques) des agents, formations et suivi relié aux données choisies dans les listes déroulantes.

Le bouton est crée mais je ne sais pas comment affecter des requêtes...

Merci d'avance pour votre précieuse aide,

Bonjour
Ton formulaire sera basé sur la table où tu veux mettre les données. Sur Celui-ci tu ajoutes tes 3 listes déroulantes. Et sur l'événements sur changement de chaque liste déroulante tu feras un truc de ce genre

Code:

---

1 2 3

Private Sub Nom_agent_Change() Me![Id_formation] = me![Nom_agent] End sub

---

Où Nom_agent représente le nom de ta liste déroulante qui est censé afficher les noms des agents.
Tu le feras donc comme çà pour chaque liste déroulante.
Cordialement

Bonjour.

Une méthode plus directe est de faire une formulaire lié à une table (ou une requête).
Comme cela ta saisie se fait directement dans la table voulue sans une seule ligne de code VBA ou de SQL.

Sinon pour répondre à ta question il y a plusieurs possibilités :

1. Composer le SQL et l'exécuter.
   
   Ton SQL va ressembler à cela :
   
   Code:

   ---

   1 2	INSERT INTO [TaTable] ( [Champ1], [Champ2], ..., [ChampN]) SELECT Valeur1 AS [Champ1], Valeur2 AS [Champ2], ..., ValeurN AS [ChampN];

   ---

   
   Pour le composer il faut du code qui ressemble à
   
   
   Code:

   ---

   1 2 3 4 5 6 7 8 9

   dim SQL as string 'Compose le SQL SQL="INSERT INTO [TaTable] ([ClefAgent], [ClefFormation], [ClefEtat]" SQL=SQL & " SELECT " & me.lstAgent & " AS [ClefAgent], " & me.lstFormation & " AS [ClefFormation], " & me.lstEtat & " AS [ClefEtat];   'Exécute le SQL dim db as dao.database:set db=currentdb call db.execute(sql, dbFailOnError) db.close: set db=nothing 'Libère la mémoire de travail utilisée

   ---

   me. refère au formulaire en cours.
   
2. Exécuter une requête paramétrée via VBA
   Suppose que tu as une requête du type :
   
   Code:

   ---

   1 2	INSERT INTO [TaTable] ([ClefAgent], [ClefFormation], [ClefEtat]" SELECT [prmClefAgent] AS [ClefAgent], [prmClefFormation] AS [ClefFormation], [prmClefEtat] & " AS [ClefEtat];

   ---

   
   
   Code:

   ---

   1 2 3 4 5 6 7 8

   dim db as dao.database:set db=currentdb dim q as dao.querydef:set q=db.querydefs("NomTaRequeteAjout") q.parameters("prmClefAgent")=me.lstAgent q.parameters("prmClefFormation")=me.lstFormation q.parameters("prmClefEtat")=me.lstEtat call q.execute(dbFailOnError) set q=nothing db.close: set db=nothing 'Libère la mémoire de travail utilisée

   ---

   prm est mon abréviation personnelle pour paramètre. Cela me permet de savoir que la donnée provient de "l'extérieur".
   
3. Faire la MAJ avec du VBA.
   
   Code:

   ---

   1 2 3 4 5 6 7 8

   dim db as dao.database:set db=currentdb dim r as dao.recordset:set r=db.openrecordset("TaTable", dbOpenDynaset) r.addnew r![ClefAgent]=me.lstAgent r![ClefFormation]=me.lstFormation r![ClefEtat]=me.lstEtat r.update call r.close:set r=nothing

   ---

4. Il y a probablement une solution utilisant les macros mais je ne me sert pas des macros et donc ne la connait pas.

A+

J'ai oublié : c'est à adapter à ta réalité et à mettre dans la procédure événementielle associée à l'événement "Sur Clic" de ton bouton entre le Sub et le End Sub.

A+