Discussion :

[giloo(94)]

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

[DMboup]

SELECT " & equipe & "," & agent & ";"

Avec un Select je crois qu'il ya tjr un From ...

Pourquoi tu ne ferais pas comme ca

Code :

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

1
2
3
4
 
 DoCmd.RunSQL "INSERT INTO bilan " & _
"( nom_equipe, nom_agent, nb_contact )" & _
" Value(" & equipe & "," & agent & ");"

[Heureux-oli]

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

Je pense que tu fais un peu de meltingpot.

Le Docmd.runsql n'a pas sa place là.

Tu peux très bien ouvrir le recordset avec un sql et ensuite, parcourir ce recordset et prendre les actions nécessaires.

[Faw]

C'est surtout le Select qui n'a rien à faire ici comme indiqué par DMboup...

Edit:
Attention à cette autre erreur de syntaxe:

Code :

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

1
2
3
  DoCmd.RunSQL "INSERT INTO bilan " & _
"( nom_equipe, nom_agent, nb_contact )" & _
" ValueS(" & equipe & "," & agent & ");"

Si tu insère 3 champs, tu doit avoir 3 valeurs
ici tu nas que equipe et agent...que fais-tu de nb_contact?