récupérer toutes les valeurs d'un sous formulaire a un autre

Version imprimable

bonjour
je voudrai transférer toutes les lignes d'un sous formulaire a un autre en cliquant sur un bouton trans

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Forms.f_facture.Réf = Forms.f_bon_livraison.C_N_Bon
Forms.f_facture.N_Bon = Compteur
Forms.f_facture.Compteur = Forms.f_facture.N_Bon
Forms.f_facture.Code_Client = Me.Code_Client
Forms.f_facture.Nom_Client = Me.Nom_Client
Forms.f_facture.adresse_Client = Me.adresse_Client
Forms.f_facture.RC = Me.RC
Forms.f_facture.NIF = Me.NIF
Forms.f_facture.N_ART = Me.N_ART
Forms.f_facture.Date_Sor = Me.Date_Sor
Forms.f_facture.Chauffeur = Me.Chauffeur
Forms.f_facture.Véhicule = Me.Véhicule
Forms.f_facture.Mode_Paiement = Me.Mode_Paiement
Forms.f_facture.Remise = Me.Remise
Forms![f_facture].Form![SF_Detail_Facture]![Code_Art].Value = Form!SF_Detail_BL!Code_Art.Value
Forms![f_facture].Form![SF_Detail_Facture]![Désignation].Value = Form!SF_Detail_BL!Désignation.Value
Forms![f_facture].Form![SF_Detail_Facture]![Qte_Sor].Value = Form!SF_Detail_BL!Qte_Sor.Value
Forms![f_facture].Form![SF_Detail_Facture]![Prix_Uni].Value = Form!SF_Detail_BL!Prix_Uni.Value
Forms![f_facture].Form![SF_Detail_Facture]![Rem].Value = Form!SF_Detail_BL!Rem.Value

le problème avec ce code il copie juste la 1ere ligne

06/02/2020, 15h23
Jean-Philippe André

Bonjour,

ne serait-il pas plus pertinent de faire un transfert des données dans les tables qui servent de sources auxdits sous-formulaire ?

Si par exemple ton Sous formulaire 1 utilise la table A et le sous formule 2 la table B, il faudrait faire une insertion dans la table B a partir des données de la table A, selon les conditions qui correspondent.
09/02/2020, 09h07
minou7590

bonjour,
merci pour ta réponse mais j'arrive pas a trouver le code exact pour le faire
10/02/2020, 15h09
Jean-Philippe André

Salut,

quels sont tes essais ? quelles erreurs rencontres-tu ?

Quels sont les noms de tables et les rowsource des formulaires ?

salut
j'ai essayé avec ce code

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
34
35
36
37
38
39
40
 
Private Sub Commande21_Click()
 
 
  Dim critere As String
    Dim db As DAO.Database
    Dim acApp As New Access.Application
    Dim eng As DBEngine
    Dim rs1 As Recordset
    Dim rs2 As Recordset
 
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("tbl_facture_detail", DB_OPEN_DYNASET)
    Set rs2 = db.OpenRecordset("tbl_bl_detail", DB_OPEN_DYNASET)
 
 
 
While Not rs2.EOF
 
      With rs1
 rs2.MoveNext
            .AddNew
 
            rs1.Fields("n_bon") = rs2.Fields("n_bon").Value
            rs1.Fields("code_art") = rs2.Fields("code_art").Value
            rs1.Fields("Désignation") = rs2.Fields("Désignation").Value
            rs1.Fields("qte_sor") = rs2.Fields("qte_sor").Value
            rs1.Fields("mode_paiement") = rs2.Fields("mode_paiement").Value
            rs1.Fields("prix_uni") = rs2.Fields("prix_uni").Value
             rs1.Fields("rem") = rs2.Fields("rem").Value
 
 
           .Update ' MAJ du nouvel enregistrement
 
 
    End With
 
Wend
 
End If

les noms des tables "tbl_bl_detail" et "tbl_facture_detail"
le msg d'erreur "erreur d'exécution '3201':
vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table <Tbl_facture>.