Bonjour,

J'ai un sous-formulaire qui doit alimenter un autre sous-formulaire

j'ai écrit ce bout de code, mais j'ai un message qui me dit qu'il n'arrive pas atteindre l'autre formulaire :

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 Transfert_option_Click()
Dim rsEnregistrements As DAO.Recordset
Set rsEnregistrements = Me.RecordsetClone
With rsEnregistrements
   Do While Not .EOF
      If selection = True Then
         Me.Ligne_devis_sous_formulaire.Form.Recordset.AddNew
         [ligne_devis sous-formulaire]![Num_devis] = Me.numdevis
         [ligne_devis sous-formulaire]![Num_produit] = Me.numproduit
         [ligne_devis sous-formulaire]![DESIGNATION] = Me.DESIGNATION
         '[ligne_devis sous-formulaire]![DESIGNATION] = DLookup("[DESIGNATION]", "Materiel", "REF = '" & [Materiel] & "'")
         [ligne_devis sous-formulaire]![Remise] = 0.1
         [ligne_devis sous-formulaire]![Qté] = 1
         [ligne_devis sous-formulaire]![Pu] = DLookup("[Prix]", "Matériel", "REF = '" & [Materiel] & "'")
         Me.Ligne_devis_sous_formulaire.SetFocus
      End If
      .MoveNext
   Loop
End With
End Sub
Merci par avance pour votre aide.