Discussion :

[carlostropico]

Bonjour,
je sèche sur un petit soucis.

j'ai un formulaire de création de catégorie,
avec à l'intérieur une zone de texte dans laquelle apparait le numéro d'indexation de cette catégorie.

j'ai une zone de liste dans laquelle se trouve tout les articles de la catégorie créer.

Je voudrais exporter la requête de cette zone de liste vers une table en lui attribuant l'index de catégorie.

en gros
la requête est :

Code :

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

"select tablearticle.index, tablearticle.nom from tablearticle where tablearticle.index = xxxx"

et la zone de texte me.indexcat

à exporter vers une table, sous le format

Code :

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

tablearticle.index, tablearticle.nom, tablecategorie.indexcat ( = me.indexcat)

voila.

je crois que je ne suis pas très clair,
je suis désolé mais les débuts sont difficiles.

Bonne journée à vous

[mout1234]

Bonjour,

Tu as au moins deux possibilités:

1. Créer une requête action dans laquelle tu mets une référence à la zone de texte de ton formulaire.
   quelque chose du genre (non testé et à finaliser):
   
   

   Code :

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

   1
   2
   3
   4
   INSERT INTO Matable (index, nom, indexcat)
   SELECT index, nom, Index
   FROM tablearticle
   WHERE index = Forms!MonForm!MonChamp

2. Tu crées dynamiquement l'instruction SQL en VBA, que tu exécutes via la commande Currentdb.Execute.
   
   qq chose du genre (non testé...)
   
   

   Code :

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

   1
   2
   3
   4
   5
   6
   Dim sSQL as string
   sSQL = "INSERT INTO Matable (index, nom, indexcat) " & _
             " SELECT index, nom, Index " & _
             " FROM tablearticle " & _
             " WHERE index = " & Me!MonChamp
   currentdb.Execute sSQL, dbFailOnError

[carlostropico]

Bonjour merci de ta réponse,
mais en fait, je crois que je n'ai pas bien expliqué.
en fait,
le champs supplémentaire à insérer dans la nouvelle table est un identifiant qui ne se trouve pas dans les tables sur lesquelles la requète se base.
en gros je fais une rrequète qui va croiser des données de deux tables,
je donne à ce résultat un identifiant (donc commun à chaque ligne du résultat) puis j'exporte ce résultat vers une autre table.

[carlostropico]

Bonjour,

Tu as au moins deux possibilités:

1. Créer une requête action dans laquelle tu mets une référence à la zone de texte de ton formulaire.
   quelque chose du genre (non testé et à finaliser):
   
   

   Code :

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

   1
   2
   3
   4
   INSERT INTO Matable (index, nom, indexcat)
   SELECT index, nom, Index
   FROM tablearticle
   WHERE index = Forms!MonForm!MonChamp

2. Tu crées dynamiquement l'instruction SQL en VBA, que tu exécutes via la commande Currentdb.Execute.
   
   qq chose du genre (non testé...)
   
   

   Code :

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

   1
   2
   3
   4
   5
   6
   Dim sSQL as string
   sSQL = "INSERT INTO Matable (index, nom, indexcat) " & _
             " SELECT index, nom, Index " & _
             " FROM tablearticle " & _
             " WHERE index = " & Me!MonChamp
   currentdb.Execute sSQL, dbFailOnError

ça y est j'ai trouvé,
en fait t'étais pas loin de la solution , c'était plutot:

Code :

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

1
2
3
4
5
6
Dim sSQL as string
sSQL = "INSERT INTO Matable (index, nom, indexcat) " & _
          " SELECT index, nom, indexcat " & _
          " FROM tablearticle " & _
          " WHERE Me!MonChamp as index '( et pas index = & me!MonChamp)
currentdb.Execute sSQL, dbFailOnError

merci en tout cas de m'avoir mis sur la piste.
bonne journée

[mout1234]

ça y est j'ai trouvé,
en fait t'étais pas loin de la solution , c'était plutot:

Code :

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

1
2
3
4
5
6
Dim sSQL as string
sSQL = "INSERT INTO Matable (index, nom, indexcat) " & _
          " SELECT index, nom, Index " & _
          " FROM tablearticle " & _
          " WHERE Me!MonChamp as index ( et pas index = & me!MonChamp
currentdb.Execute sSQL, dbFailOnError

merci en tout cas de m'avoir mis sur la piste.
bonne journée

Heu... cela m'ettonerait que cela soit bon

[carlostropico]

bah ça fonctionne pour moi,
j'ai changé le deuxième index en indexcat dans le select,
c'est peut être sur ça que tu louchais?