Discussion :

[SoWoS]

Bonjour,

Je recherche comment pouvoir insérer dans une table un multiple de ligne d'une autre table, je m'explique:

Je possède une table "template" qui me permet de stocker plusieurs types d'équipements disons.

Dans l'un de mes formulaires, je viens sélectionner l'une de mes lignes de la tables "template" pour pouvoir l'insérer dans ma table finale "equipement" à l'aide de la requête lancer par macro :

Code :

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

1
2
3
4
 
INSERT INTO T.Equipement
SELECT * T_Template FROM T_Template
WHERE (((T_Template.Ajouter)=True));

Ma question est: Comment puis-je insérer plusieurs fois une même ligne de la table "template" dans la table "equipement" sans avoir a reproduire plusieurs fois la manipulation de sélection de la ligne ou de relance de requête ? Est-il possible en insérant un nombre dans l'une des colonnes de la table "template" ou dans un champ du formulaire de multiplier par ce nombre la ligne de la table "template" a insérer dans la table "equipement" ?

Merci beaucoup

[hyperion13]

Salut
A tester où NbLignes est un champ de votre T_Template

Code :

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

1
2
3
4
5
6
For i = 1 To Me.NbLignes
    CurrentDb.Execute "INSERT INTO T.Equipement" _
    & " SELECT T_Template.*" _
    & " FROM T_Template" _
    & " WHERE T_Template.Ajouter = True", dbFailOnError
Next i

[User]

Bonjour,

Le nom de la table équipement n'est-il pas T_Equipement.

Car Access n'autorise pas le "." dans les noms des objets :

T.Equipement -> T_Equipement

Il y a aussi un souci dans la requête insertion :

Code SQL :

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

1
2
3
INSERT INTO T.Equipement
SELECT T_Template.* FROM T_Template
WHERE T_Template.Ajouter=True;

Il n'y a pas le même nombre de champs dans les 2 tables, car le champ Ajouter ne doit pas être présent dans la table T_Equipement.

Donc, peut-être faut-il choisir les noms des champs dans le select, et le code de Hyperion :

Code VBA :

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

1
2
3
4
5
6
For i = 1 To Me.NbLignes
    CurrentDb.Execute "INSERT INTO T_Equipement" _
    & " SELECT IdEquipement, .." _ ' ici les noms des champs de T_Template
    & " FROM T_Template" _
    & " WHERE Ajouter = True", dbFailOnError
Next i

Cordialement.