[AC-2007] Copier coller de table a table [Résolu]

[theuma]

Bonjour,
Dans mon projet je dois réaliser un mode auto pour les réceptions de commande
Je m'explique :
J'ai un formulaire Commande pour effectuer une commande, quand je valide une feuille de matière première s'imprime pour approvisionner un Sous Traitant ces matières premières viennent d'un calcul fait avec des requêtes, mon problème c'est que je dois copier plusieurs ligne de la table commande pour la mettre dans réception de commande ( je dois faire de l'archivage d'où le fait d'avoir plusieurs tables)
Table: Commande
ID_Commande
Numero
Date
Operateur
FK_Prefa
Table: CommandePrefa
FK_Prefa --> ID_Prefa
FK_Commande --> ID_Commande
Quantite
Table : ReceptionCmd
ID_ReceptionCmd
Numero
Date
Operateur
FK_Prefa
Table: PrefaRecepCmd
FK_PRefa --> ID_Prefa
FK_ReceptionCmd --> ID_ReceptionCommande
Quantite
Requete: NbrTotalPRefa
ID_MatierePremiere
Prefa
Quantite

Ainsi j'aimerai avec une liste déroulante dans le formulaire réceptions de commande, sélectionner ma commande et avec un bouton valider copier les éléments de la commande dans un nouvelle ligne de réception de commande
Le problème, c'est que je ne vois pas comment copier toutes les lignes d'une commande de PrefaCommande Dans PrefaReceptionCommande ....
Merci de votre aide ...

[jpcheck]

salut,

la "copie" d'enregistrement d'une table a l'autre peut facilement se faire via une requete INSERT INTO.

Restera a relier la requete a ton click de bouton

[theuma]

Le problème que j'ai, c'est que je n'arrive pas a naviguer dans les lignes de ma table, je m'explique...
quand je fait mon Set rst1 = dbs.OpenRecordset("Select FK_Prefab FROM PrefabCommande Where FK_Commande = " & Me.NumCommande)et qu'après je fait un Tableau(i, 0) = Int(rst1.Fields(i))Ça marche une fois et après ca beug...
Je na sais pas comment faire pour naviguer dans les lignes ... Pouvez vous m'aider ?

[jpcheck]

Hum,

en me donnant des moreceaux disparates de code, je n'arriverai pas a te venir en aide. Merci de mettre le morceau global du code

Le deplacement dans les enregistrements se fait avec MoveNext au niveau du recordset.

[theuma]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Commande10_Click()
Dim Tableau() As Integer
 
Dim SQL As String
DoCmd.OpenQuery "ReceptionAuto"
Dim taille As Integer
Dim dbs As Database
Set dbs = CurrentDb
Dim rstaille, rst1, rst2 As Recordset
Set rstaille = dbs.OpenRecordset("Select Count(*)as nb From PrefabCommande Where FK_Commande = " & Me.NumCommande)
Set rst1 = dbs.OpenRecordset("Select FK_Prefab FROM PrefabCommande Where FK_Commande = " & Me.NumCommande)
Set rst2 = dbs.OpenRecordset("Select Quantité FROM PrefabCommande Where FK_Commande = " & Me.NumCommande)
taille = Int(rstaille.Fields(0))
ReDim Tableau(taille - 1, 2)
For i = 0 To taille - 1
Tableau(i, 0) = Int(rst1.Fields(0, i))
Tableau(i, 1) = Me.ID_ReceptionCmd
Tableau(i, 2) = Int(rst2.Fields(0, i))
Next
End Sub

Voici le code en VB que j'execute
JE vais essayer ta fonction pour voir !

[theuma]

Merci c'est super avec la fonction movenext
voila ce que j'ai fait

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande10_Click()
Dim Tableau() As Integer
 
Dim SQL As String
DoCmd.OpenQuery "ReceptionAuto"
Dim taille As Integer
Dim dbs As Database
Set dbs = CurrentDb
Dim rstaille, rst1, rst2 As Recordset
Set rstaille = dbs.OpenRecordset("Select Count(*)as nb From PrefabCommande Where FK_Commande = " & Me.NumCommande)
Set rst1 = dbs.OpenRecordset("Select FK_Prefab FROM PrefabCommande Where FK_Commande = " & Me.NumCommande)
Set rst2 = dbs.OpenRecordset("Select Quantité FROM PrefabCommande Where FK_Commande = " & Me.NumCommande)
taille = Int(rstaille.Fields(0))
ReDim Tableau(taille - 1, 2)
For i = 0 To taille - 1
Tableau(i, 0) = Int(rst1.Fields(0))
Tableau(i, 1) = Me.ID_ReceptionCmd
Tableau(i, 2) = Int(rst2.Fields(0))
rst1.MoveNext
rst2.MoveNext
Next
End Sub

Ca marche beaucoup mieux !!
J'ai plus qu'a faire le insert into et ca sera super merci beaucoup !!

[jpcheck]

OK,

il n'y a rien apres pour passer de ta variable Tableau a l'autre table en fait ?

je serai parti sur une seule requete plus simple, en chaine de caracteres, a executer avec Currentdb.Execute

Code :

1
2
3
Dim strSQL As String
strSQL = " INSERT INTO TableFinale Select FK_Prefab, " & Me.IdReceptionCommande & " AS IDREceptionCommande, Quantite FROM PrefabCommande Where FK_Commande = " & Me.NumCommande
CurrentDb.Execute strSQL

a adapter avec le nom des champs et le nom de la table finale

[theuma]

Si pour passer d'un table a l'autre j'ai fait une boucle for avec un insert into... Problème c'est que il n'arrive pas a faire la relation entre mon FK_Commande de ma table ou je veux copier et la table receptioncmd.. je m'explique j'ai 2 tables
ReceptionCmd
ID_ReceptionCmd
Numero
Date ......

ReceptMatiereCmd
FK_PRefab
FK_ReceptionCmd --> Relation avec ID_ReceptionCmd
Quantite

Je fait un Docmd.Save au départ du clique mais ca marche pas ...

[theuma]

C'est bon ... C'est moi qui est fait n'importe quoi, j'ai oublier de renseigné des champ obligatoire dans ma receptionCmd et donc l'enregistrement ne se faisait pas, normal donc la c'est régler ... Tu pourrai m'expliquer ton code ??

[theuma]

Après plusieurs test il est vrai que ton bout de code est beaucoup mais beaucou plus simple, je ne savais pas que l'on pouvais utilisé un Insert Into sans le values
merci a toi c'est gentil !! A la prochaine

[jpcheck]

Le VALUES peut etre remplace par un SELECT si tu veux faire une insertion multiple