Case à cocher qui cochent toutes les autres

**lucas-18** · 26/10/2010, 13h39

Bonjour,

J'explique mon problème.
Comme vous pouvez le voir dans mon image en annexe, j'ai un formulaire principal avec 2 sous formulaires.

C'est le sous formulaire de droite "detail" qui me pose problème et une checkbox "deleteall" qui me permet de cocher ma checkbox "paid" de tous les enregistrements de ce sous formulaire "detail".

La source de ce sous formulaire est une table dans lequels les champs "deleteall" et "paid" sont repris.

Voici le code que j'ai placé que la checkbox "deletall" sur l'événement Après MAJ :

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 deletall_AfterUpdate()
Dim i As Integer
With Me.RecordsetClone
.MoveLast
.MoveFirst
For i = 1 To .RecordCount
.Edit
!paid = deleteall
.Update
.MoveNext
Next
End With
End Sub

Toutes les cases à cocher se cochent sauf la 1ère et une fenêtre "conflit d'écriture" s'ouvre (voir annexe).

Auriez-vous une méthode plus simple pour pouvoir cocher la case à cocher de tous les enregistrements d'un enregistrement principal (relation formulaire et sous formulaire) ???

Merci

**marot_r** · 26/10/2010, 17h05

Je pense que ton problème vient du fait que la 1ère ligne est actuellement en modification donc tu ne peux pas la changer.

Essaye en cliquant dans l'enr d'en dessous et voit si cela marche.

A+

**lucas-18** · 26/10/2010, 17h18

Envoyé par marot_r

Je pense que ton problème vient du fait que la 1ère ligne est actuellement en modification donc tu ne peux pas la changer.

Essaye en cliquant dans l'enr d'en dessous et voit si cela marche.

A+

Bien vu Marot_r !

Il ne tient en effet pas compte de l'enregistrement sur lequel je suis ...

Une idée pour contourner ce problème ?