Discussion :

[Bruysard]

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 sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[bertiny]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marot_r]

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 sql :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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 sql :

   Sélectionner tout - Visualiser dans une fenêtre à part

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

   
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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+

[marot_r]

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+