Bonsoir,

Avec le code ci dessous je voudrai en cliquant sur la case à cocher "Ensemble" qui est placée dans le formulaire principal cocher toutes les cases de chaque enregistrement "Maselection" du sous formulaire associé, ou inversement.
Mais ça bloque sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Edit.Update
Comment résoudre le problème ?

Je ne connais pas bien VBA.
Merci d'avance,
Philippe

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Ensemble_AfterUpdate()
Dim i As Integer
 
With Me.RecordsetClone
.MoveLast
.MoveFirst
For i = 1 To .RecordCount
Me.MaSelection = Ensemble
Edit.Update
.MoveNext
Next
End With
End Sub