Discussion :

[Kyndred40]

Bonjour,

Je viens vers vous car je ne trouve pas comment faire pour que quand je clique sur un bouton "Validé" les données contenue dans un sous formulaire sois insérer dans une autre table ?

Je coche l'enregistrement et celui coché une fois cliqué sur Validé ... il est Insérer dans une autre table nomée ProdJour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ProdJValider_Click()
 
'Dim rSQL As String
 
'Dim base As Database
 
'Set base = Application.CurrentDb
 
 
'rSQL = " INSERT INTO ProdJour(NumOrigine,Numero,NumArticle,CodeVariante,DateCommande,DateLivDemander,QteRestante,QteManquante,QtePretDepart,PoidsManquant,Observations,NomDestinataire,NumDestination,NumDocExterne,VotreRef,Qte,Poids,Description,CodeMagasin,QteExpe,QteAExpe,NumSemaine,RefCommande,DescriptionCommande,IdLot,Semaine,ReferenceLot,Qteproduite,Consigne Prod,Autres Trait) " & _
'             "SELECT   EnAttPlanification.NumOrigine, EnAttPlanification.Numero, EnAttPlanification.NumArticle, EnAttPlanification.CodeVariante, EnAttPlanification.DateCommande, EnAttPlanification.DateLivDemander, EnAttPlanification.QteRestante, EnAttPlanification.QteManquante, EnAttPlanification.QtePretDepart, EnAttPlanification.PoidsManquant, EnAttPlanification.Observations, EnAttPlanification.NomDestinataire, EnAttPlanification.NumDestination, EnAttPlanification.NumDocExterne, EnAttPlanification.VotreRef, EnAttPlanification.Qte, EnAttPlanification.Poids, EnAttPlanification.Description, EnAttPlanification.CodeMagasin,EnAttPlanification.QteExpe, EnAttPlanification.QteAExpe, EnAttPlanification.NumSemaine, EnAttPlanification.RefCommande, EnAttPlanification.DescriptionCommande, EnAttPlanification.IdLot, EnAttPlanification.Semaine, EnAttPlanification.ReferenceLot, EnAttPlanification.Qteproduite " & _
 '             "FROM EnAttPlanification " & _
  '            "WHERE Choix=-1;"
 
Forms!F_PlanningLots.SF_DetailLot.Form.Recordset = "INSERT INTO ProdJour(NumOrigine) SELECT EnAttPlanification.NumOrigine FROM EnAttPlanification WHERE Choix = -1 "
 
Me.Requery
Me.Refresh
 
End Sub

Merci d'avance de votre aide

[Kyndred40]

Pour le moment en solution de dépannage je pense, j'ai fait une requête d'ajout qui fonctionne mais comme après je pense que je vais faire certaine condition ou calcul sur les Quantité...
Ou par exemple aussi le fait que quand je clique sur le bouton validé la date du jour est entrée dans le champ DateJ et ça je ne sais pas si c'est faisable avec une requête.

[hyperion13]

Salut
Essayez de passer un truc comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set dbs = CurrentDb
Set rstC = Me.SF_DetailLot.Form.RecordsetClone ' source
Set rstS = dbs.OpenRecordset("ProdJour", dbOpenDynaset) ' cible
 
rstS.MoveLast
rstS.MoveFirst
    While Not rstS.EOF
    If rstS!Choix = True Then
        rstC.AddNew
            rstC!NumOrigine = rstS!NumOrigine
            ...
            rstC.Update
            rstS.MoveNext
    Wend

[Kyndred40]

merci ! j'ai en effet mis ce code et j'ai le droit à sa :


J'ai rajouté avant le Wend un End If pour essayer avant mais a part enlever le message d'erreur rien ne se passe ?
Et j'ai définit les variables rstC et RstS

[hyperion13]

re
oups !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set dbs = CurrentDb
Set rstS = Me.SF_DetailLot.Form.RecordsetClone ' source
Set rstC = dbs.OpenRecordset("ProdJour", dbOpenDynaset) ' cible
 
rstS.MoveLast
rstS.MoveFirst
    While Not rstS.EOF
    If rstS!Choix = True Then
        rstC.AddNew
            rstC!NumOrigine = rstS!NumOrigine
            ...
            rstC.Update
            rstS.MoveNext
    Wend

[Kyndred40]

Re,
Une fois modifié, maintenant l'application Crash et j'ai ce message :

Le code est :

Code :

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

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub ProdJValider_Click()
Dim dbs As Database
Dim rstC
Dim rstS
 
 
Set dbs = CurrentDb
Set rstS = Me.SF_DetailLot.Form.RecordsetClone ' source
Set rstC = dbs.OpenRecordset("ProdJour", dbOpenDynaset) ' cible
 
rstS.MoveLast
rstS.MoveFirst
    While Not rstS.EOF
    If rstS!Choix = True Then
       rstC.AddNew
           rstC!NumOrigine = rstS!NumOrigine
           rstC!Numero = rstS!Numero
            rstC!NumArticle = rstS!NumArticle
            rstC!CodeVariante = rstS!CodeVariante
            rstC!DateCommande = rstS!DateCommande
            rstC!DateLivDemander = rstS!DateLivDemander
            rstC!QteRestante = rstS!QteRestante
            rstC!QteManquante = rstS!QteManquante
            rstC!QtePretDepart = rstS!QtePretDepart
            rstC!PoidsManquant = rstS!PoidsManquant
            rstC!Observations = rstS!Observations
            rstC!NomDestinataire = rstS!NomDestinataire
            rstC!NumDestination = rstS!NumDestination
            rstC!NumDocExterne = rstS!NumDocExterne
            rstC!VotreRef = rstS!VotreRef
            rstC!Qte = rstS!Qte
            rstC!Poids = rstS!Poids
            rstC!Description = rstS!Description
            rstC!CodeMagasin = rstS!CodeMagasin
            rstC!QteExpe = rstS!QteExpe
            rstC!QteAExpe = rstS!QteAExpe
            rstC!NumSemaine = rstS!NumSemaine
            rstC!RefCommande = rstS!RefCommande
            rstC!IdLot = rstS!IdLot
            rstC!ReferenceLot = rstS!ReferenceLot
            rstC!Qteproduite = rstS!Qteproduite
 
 
            rstC.Update
            rstS.MoveNext
            End If
 
    Wend
 
 
 
 
 
End Sub

[hyperion13]

Voilà ce que c'est d'être en cours et de venir sur le forum. On écrit plus vite que son ombre !
Dans le Post#5, j'ai oublié End If,qu'il faut placer entre L12 et L13.
Dans ton Post#6, déplacer ton End If,entre L44 et L45.

[Kyndred40]

Re,
D'accord merci beaucoup je verrai sa demain en retournant au bureau je vous tient au courant !
Pas de soucis ça arrive à tout le monde de faire des erreurs d'inattention

[Kyndred40]

Merci cela fonctionne maintenant ! Je ne met pas la discussion à résolu car ce formulaire n'étant pas terminé si j'ai une question je préfère le laisser ouvert