j'ai dans la table equipes des noms_agent
que je veux passer en revue afin de les ajouter dans la table resultat
il s'agit de recuperer le contenu du champ nom_agent ,nom_equipe que je viens de trouver
et de l'ajouter dans la table finale

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim rs As DAO.Recordset
        Set rs = CurrentDb.OpenRecordset("equipes")
        Do Until rs.EOF
          agent = rs.Fields("nom_agent")
          equipe = rs.Fields("nom_equipe")
           DoCmd.RunSQL "INSERT INTO bilan " & _
          "( nom_equipe, nom_agent, nb_contact )" & _
          " SELECT " & equipe & "," & agent & ";"
        rs.MoveNext
        Loop
End Sub
si j'execute cette requete il m'invite a saisir les parametre contenu (si equipe contient zorro) il m'affiche
la boite de dialogue "entrer une valeur de parametre" nom du parametre: zorro