Discussion :

[Philippe608]

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

[tee_grandbois]

Bonsoir,

je te mets quelques annotations dans ton code d'origine, pour que tu comprennes pourquoi il ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Ensemble_AfterUpdate() 
Dim i As Integer
 
With Me.RecordsetClone            '<===== Ceci ne clone pas le RecordSet du sous formulaire mais celui du formulaire (Me. = formulaire en cours)
    .MoveLast                     
    .MoveFirst
    For i = 1 To .RecordCount
        Me.MaSelection = Ensemble '<===== Ceci ne met pas à jour le RecordSet complet mais seulement le 1er enregistrement, de plus MaSelection ne faisant pas partie de Me. génèrera une erreur
        Edit.Update               '<===== Anomalie : on édite le RecordSet avec .Edit et ensuite on met à jour avec .Update
        MoveNext
    Next                          '<===== Pense à indenter ton code pour plus de lisibilité
End With
End Sub

je te propose ce code qui devrait fonctionner à la condition que tu remplaces NomSousFormulaire par le nom du sous-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
Private Sub Ensemble_AfterUpdate()
Dim oRs As Recordset
Set oRs = Me.NomSousFormulaire.Form.RecordsetClone
 
If oRs.RecordCount > 0 Then
     oRs.MoveFirst
     While Not oRs.EOF
        oRs.Edit
        oRs.Fields("MaSelection").Value = Me.Ensemble
        oRs.Update
        oRs.MoveNext
     Wend
End If
Set oRs = Nothing
 
End Sub

[Philippe608]

Bonjour et grand merci pour votre réponse, je vais faire des essais dans la journée.

Si on a un formulaire en mode continu uniquement comment adapter ce code ? "sans formulaire principal"

Encore merci et joyeux Noël à vous.
Philippe

[tee_grandbois]

Bonjour,

Si on a un formulaire en mode continu uniquement comment adapter ce code ? "sans formulaire principal"

Si tu avais compris mes annotations cela n'aurait pas du être un problème ...
Je te donne la solution en guise de cadeau :
Il suffit d'enlever la référence au sous formulaire : Me.NomSousFormulaire.Form.RecordsetClone

Joyeuses Fêtes

[Philippe608]

En effet, c'est plus simple que je le pensai, merci beaucoup.

Bonnes Fêtes de fin d'année.
Philippe