Discussion :

[tee_grandbois]

bonjour,
pour cocher les enregistrements filtrés il est plus simple de passer par RecordsetClone qui met à jour uniquement les enregistrements concernés (affichés à l'écran), c'est plus simple que de mettre à jour la table par requête:

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
Private Sub ToutSelec_AfterUpdate()
Dim ors As Recordset
Set ors = Me.RecordsetClone
If ors.RecordCount > 0 Then
     ors.MoveFirst
     Do Until ors.EOF
        ors.Edit
        ors.Fields("Choix").Value = Me.TouSelec
        ors.Update
        ors.MoveNext
     Loop
End If
Set ors = Nothing
 
End Sub

[Kyndred40]

Bonjour,
Merci beaucoup cela fonctionne ! Je ne connaissais pas cette propriété RecordSetClone merci de me l'avoir fait découvert !

[tee_grandbois]

bonjour,
si cela fonctionne, il faudra penser à fermer la discussion (bouton )
pense à faire de même pour tes autres discussions encore ouvertes si tu penses que le problème à l'origine de chacune est également résolu.
En voici quelques unes encore ouvertes:
https://www.developpez.net/forums/d2...ement-d-champ/
https://www.developpez.net/forums/d2...us-formulaire/
https://www.developpez.net/forums/d1...cess-sharpnom/
https://www.developpez.net/forums/d2...cutez-requete/
https://www.developpez.net/forums/d2...es-formulaire/
Merci.