Discussion :

[Daniel87000]

Bonjour,
Comment dupliquer en VBA dans Access un enregistrement de formulaire contenant plusieurs sous formulaires
D'une part dans le même formulaire (Dupliquer un devis)
D'autre part dans un autre formulaire (Dupliquer un enregistrement de devis dans le formulaire commande ou facture)
Grand merci d'avance.

[Invité]

Bonjour

Où bloques-tu ?

Si c'est pour accéder aux champs des différentes parties, je te conseille la lecture de cet article : Les syntaxes d'appel : Interaction des formulaires et états.

Philippe

[Daniel87000]

Bonsoir,
Je bloque sur l'écriture du code en VBA

[Invité]

Re

Bonsoir,
Je bloque sur l'écriture du code en VBA

C'est à dire ? Qu'as-tu fait ?

Philippe

[Daniel87000]

J'ai essayé d'adapter le code fourni par Microsft ACC2000
J'ai fait un essai dans la base exemple les comptoirs
ca duplique l'enregistrement du formulaire "Orders" mais pas du sous formulaire
"Orders détails"
de plus cela n'enregistre pas l'enregistrement dupliqué

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
Private Sub btnDuplicate_Click ()
Dim dbs As DAO.Database, Rst As DAO.Recordset
Dim F As Form
 
' Return Database variable pointing to current database.
Set dbs = CurrentDb
Set Rst = Me.RecordsetClone
 
On Error GoTo Err_btnDuplicate_Click
 
' Tag property to be used later by the append query.
Me.Tag = Me![OrderID]
 
' Add new record to end of Recordset object.
With Rst
   .AddNew
      !CustomerID = Me!CustomerID
      !EmployeeID = Me!EmployeeID
      !OrderDate = Me!OrderDate
      !RequiredDate = Me!RequiredDate
      !ShippedDate = Me!ShippedDate
      !ShipVia = Me!ShipVia
      !Freight = Me!Freight
      !ShipName = Me!ShipName
      !ShipAddress = Me!ShipAddress
      !ShipCity = Me!ShipCity
      !ShipRegion = Me!ShipRegion
      !ShipPostalCode = Me!ShipPostalCode
      !ShipCountry = Me!ShipCountry
   .Update                     ' Save changes.
   .Move 0, .LastModified
End With
Me.Bookmark = Rst.Bookmark
 
' Run the Duplicate Order Details append query which selects all
' detail records that have the OrderID stored in the form's
' Tag property and appends them back to the detail table with
' the OrderID of the duplicated main form record.
 
DoCmd.SetWarnings False
DoCmd.OpenQuery "Duplicate Order Details"
DoCmd.SetWarnings True
 
'Requery the subform to display the newly appended records.
Me![Orders Subform].Requery
 
Exit_btnduplicate_Click:
Exit Sub
 
Err_btnDuplicate_Click:
MsgBox Error$
Resume Exit_btnduplicate_Click:
End Sub