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 |
Partager