Copier enregistrement : dans une même table

Version imprimable

03/05/2015, 18h07
zkunk

1 pièce(s) jointe(s)

Copier enregistrement : dans une même table

Bonjour,

Dans formulaire F_Contrat qui contient un sous formulaire F_Lignes_Contrat Je souhaite faire un bouton, qui:
L
Copie les enregistrement de T_Lignes_Contrat dont le champs: [T_Lignes_Contrat].[N°Contrat] = Liste_Contrats
Créer un nouveau enregistrement T_Contrat (depuis le formulaire F_Contrat) avec un nouveau N°Contrat généré automatiquement.
Colle les enregistrement (T_Lignes_Contrat) précédemment copiés, en remplacement leur [T_Lignes_Contrat].[N°Contrat] par le nouveau N°Contrat du formulaire (Me.N°Contrat)

Pièce jointe 176772

J'ai lu qu'une table de transition pouvait faire l'affaire, mais ça nécessite du SQL.... et, mon autre prob, est que je vais avoir besoin pour d'autres partie de mon application, de copier des enregistrements de diverse tables.....
Serait il possible de faire une seule grosse table de transition avec Beaucoup de champs pour faire la transition avec quelques tables ou alors une table de transition par table dont les enregistrement doivent être copiés?

Je suis un peu perdu, si vous pouvez me guider un peu ça m'arrangerait beaucoup?

MErci
05/05/2015, 20h25
zkunk
Bonjour,

Donc pour arriver à mes fins, voilà le code que j'aimerai construire

1ère étape: Mémoriser le N°Piece selectionné par forms![F_Contrat].[Liste_Contrats]
2ème étape: Copier les enregistrement T_LignesContrat(dont le N°Contrat= forms![F_Contrat].[Liste_Contrats]) dans une table T_T_LignesContrat (table de transition).
3ème étape:Créer un nouveau enregistrement
4ème étape: Dans la table de transition T_T_LignesContrat, changer les N°Contrat par le N°Contrat enregistré en étape 1
5ème étape: Copier l'ensemble des enregistrement de la table T_T_LignesContrat dans la table T_LignesContrat
6ème étape: Supprimer l'ensemble des enregistrement de la table T_T_LignesContrat

1ère étape:
Code:

1 2 Dim A As DAO.Recordset Set A = Database.OpenRecordset("SELECT [T_Contrat].[N°Contrat], FROM T_Contrat WHERE [N°Contrat] = forms![F_Contrat].[Liste_Contrats] ", dbOpenSnapshot)
Ca ne marche pas, si quelqu'un à une idée?

2ème étape:

Code:

DoCmd.RunSQL "INSERT INTO T_T_LignesContrat SELECT * FROM T_Lignes_Contrat WHERE N°Contrat=" & Me.Liste_Contrats.Column(0)

3ème étape:
Code:

1 2 3 DoCmd.GoToRecord , , acNewRec Me.NomC = "Blabla" Me.Nature = "Contrat Unique"
Le fait de remplir les champs NomC et Nature me permet d'obtenir un nouveau N°Contrat auto.

Je bloque également pour les 3 dernière étapes...

Je sais qu'à la fin ça doit finir par ça...
A.Close: Set A = Nothing
End Sub

Si vous avez des idées ou des pistes, je suis preneur
Mercii

Bonsoir,

Si cela revient à dupliquer la liste pour un nouveau n° de contrat, alors essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim varContrat as long
 
DoCmd.SetWarnings false
 
varContrat=Me.Liste_Contrats.Column(0) ' enregistre le numéro de contrat
 
DoCmd.RunSQL "INSERT INTO T_T_LignesContrat SELECT * FROM T_Lignes_Contrat WHERE N°Contrat=" & Me.Liste_Contrats.Column(0)
 
DoCmd.GoToRecord , , acNewRec ' nouvel enregistrement
 
Me.DateContrat=Date() ' Si N°Contact est de type numéro-auto alors saisie dans un autre champ pour générer le numéro-auto.
 
'Sinon saisir le n° de contrat, par exemple
Me.N°Contrat="ABC123"
...
' Puis mettre à jour le n°Contrat dans la table T_T_LignesContrat avec ce nouveau numéro :
 
DoCmd.RunSQL "UPDATE T_T_LignesContrat SET [N°Contrat]=" & Me.[N°Contrat] & " WHERE N°Contrat=" & varContrat
 
'  Insérer dans T_LignesContrat
 
DoCmd.RunSQL "INSERT INTO T_LignesContrat SELECT * FROM T_T_Lignes_Contrat WHERE N°Contrat=" & Me.[N°Contrat]
 
' Enfin, vider la table temporaire.
 
DoCmd.RunSQL "Delete * from T_T_LignesContrat;"
 
DoCmd.SetWarnings True

Tu peux aussi passer par les recordset.

Cdlt,

Bonsoir User,

Encore une fois Merci, je vais pouvoir me pencher sur ces nouveaux codes.
Cependant, j'ai test:

et ça me dit:
Erreur de compilation: Instruction incorrecte à l'extérieur d'un bloc de type

Aurais tu une idée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Commande12_Click()
 
 
 
varContrat As Long
 
DoCmd.SetWarnings False
 
varContart = Me.Liste_Contrats.Column(0) ' enregistre le numéro de contrat
 
DoCmd.RunSQL "INSERT INTO T_T_LignesContrat SELECT * FROM T_Lignes_Contrat WHERE N°Contrat=" & Me.Liste_Contrats.Column(0)
 
DoCmd.GoToRecord , , acNewRec ' nouvel enregistrement
 
Me.NomC = "Date" ' Si N°Contact est de type numéro-auto alors saisie dans un autre champ pour générer le numéro-auto.
 
'Sinon saisir le n° de contrat, par exemple
 
' Puis mettre à jour le n°Contrat dans la table T_T_LignesContrat avec ce nouveau numéro :
 
DoCmd.RunSQL "UPDATE T_T_LignesContrat SET [N°Contrat]=" & Me.[N°Contrat] & " WHERE N°Contrat=" & varContrat
 
'  Insérer dans T_LignesContrat
 
DoCmd.RunSQL "INSERT INTO T_LignesContrat SELECT * FROM T_T_Lignes_Contrat WHERE N°Contrat=" & Me.[N°Contrat]
 
' Enfin, vider la table temporaire.
 
DoCmd.RunSQL "Delete * from T_T_LignesContrat;"
 
DoCmd.SetWarnings True
 
End Sub

05/05/2015, 21h27
User

Peux-tu pointer la ligne concernée ?

Sinon, j'ai déjà relevé une coquille :

Code:

varContrat = Me.Liste_Contrats.Column(0) ' enregistre le numéro de contrat

à+
05/05/2015, 21h32
zkunk

ok,

ça selectionne

Code:

varContrat As Long

et ça surligne en jaune :

Code:

Private Sub Commande12_Click()
05/05/2015, 21h37
User

En effet:

Code:

Dim varContrat As Long

:oops::oops::oops::oops:

Bonne nuit il se fait tard, je reprendrai le code demain...

J'ai changé également les noms des Tables qui était très déstabilisant ^^
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Private Sub Duplique_Click() Dim varContrat As Long DoCmd.SetWarnings False varContrat = Me.Liste_Contrats.Column(0) DoCmd.RunSQL "INSERT INTO T_TLContrat SELECT * FROM T_Lignes_Contrat WHERE N°Contrat=" & Me.Liste_Contrats.Column(0) DoCmd.GoToRecord , , acNewRec ' nouvel enregistrement Me.NomC = "Date" ' Si N°Contact est de type numéro-auto alors saisie dans un autre champ pour générer le numéro-auto. 'Sinon saisir le n° de contrat, par exemple ' Puis mettre à jour le n°Contrat dans la table T_T_LignesContrat avec ce nouveau numéro : DoCmd.RunSQL "UPDATE T_TLContrat SET [N°Contrat]=" & Me.[N°Contrat] & " WHERE N°Contrat=" & varContrat ' Insérer dans T_LignesContrat DoCmd.RunSQL "INSERT INTO T_Lignes_Contrat SELECT * FROM T_TLContrat WHERE N°Contrat=" & Me.[N°Contrat] " DoCmd.RunSQL "Delete * from T_TLContrat;" DoCmd.SetWarnings True End Sub
Et là ça remarche nickel!

Gros merci à toi, ça fait 3jours que j'avançais plus !

Bonne nuit

EDIT:*
Il y a un problème avec cette action là:
Code:

1 2 3 ' Insérer dans T_LignesContrat DoCmd.RunSQL "INSERT INTO T_Lignes_Contrat SELECT * FROM T_TLContrat WHERE N°Contrat=" & Me.[N°Contrat] "
Comme si, ça ne voulait pas tout insérer, ou du moins pas le bon N°Contrat... Il n'y aurait pas une histoire de requery ou refresh à inclure dans le code?

Une autre question: Comment faire pour déclarer le nom des tables au début du code, pour éviter de les réecrire à chaque fois?

Merci

Bonjour,

Peut-être comme ceci en mettant des crochets au niveau du champ "N°Contrat" et en actualisant avec un Me.refresh avant et après:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Duplique_Click()
Dim varContrat As Long
 
DoCmd.SetWarnings False
 
varContrat = Me.Liste_Contrats.Column(0)
 
DoCmd.RunSQL "INSERT INTO T_TLContrat SELECT * FROM T_Lignes_Contrat WHERE [N°Contrat]=" & Me.Liste_Contrats.Column(0)
 
DoCmd.GoToRecord , , acNewRec ' nouvel enregistrement
 
Me.NomC = "Date" ' Si N°Contact est de type numéro-auto alors saisie dans un autre champ pour générer le numéro-auto.
 
Me.Refresh ' pour être sûr.
 
'Sinon saisir le n° de contrat, par exemple
 
' Puis mettre à jour le n°Contrat dans la table T_T_LignesContrat avec ce nouveau numéro :
 
DoCmd.RunSQL "UPDATE T_TLContrat SET [N°Contrat]=" & Me.[N°Contrat] & " WHERE  [N°Contrat]=" & varContrat
 
'  Insérer dans T_LignesContrat
 
DoCmd.RunSQL "INSERT INTO T_Lignes_Contrat SELECT * FROM T_TLContrat WHERE [N°Contrat]=" & Me.[N°Contrat] "
 
 
DoCmd.RunSQL "Delete * from T_TLContrat;"
 
DoCmd.SetWarnings True
 
Me.Refresh '  si tu as besoin de rafraîchir un sous-formulaire dans ton formulaire principal.
 
End Sub

Cdlt,

06/05/2015, 11h27
zkunk

Merci milles fois, ça fonctionne parfaitement !
pas besoin du dernier Me.refresh.

Donc now, je vais tenter de faire des déclarations pour le nom des tables histoire de pas avoir à les répéter !