[AC-2003] Boucle sur un contrôle d'un formulaire [Résolu]

[jmde]

Bonjour,

J’ai un formulaire en mode continu et je voudrais, lorsque je coche ma case à cocher qu'elle prenne la valeur true et toutes les autres la valeur false.

J’ai essayé plusieurs solutions et notamment avec le ctrl actif screen.activation mais je n’y arrive pas.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cocher50_Click()
Dim ctl As Control
 
For Each ctl In Forms![frm Adresse Mail Expéditeurs].Controls
If TypeOf ctl Is CheckBox Then
      If Nz(ctl.Value) = True Then
        ctl.Value = True
      Else
        ctl.Value = False
     End If
End If
Next ctl
End Sub

Merci pour votre aide.

Salutations

[fbtsra]

Bonjour Jacques,

A ma connaissance, le code que vous utilisez ne va balayer que les contrôles de l'enregistrement en cours.

Vous pouvez utiliser (table et champ à vérifier) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
 
Set db = CurrentDb
Set rst = db.OpenRecordset("tbl Mail Expéditeurs")
 
rst.MoveLast
 
rst.MoveFirst
 
rst.Edit
 
 
If Me.Selection = True Then
 
    Do Until rst.EOF
 
        rst.Edit
        rst!Selection = False
        rst.Update
        rst.MoveNext
    Loop
 
Me!Selection = True
 
End If
 
Me.Refresh

ou plus simple via requête codée :

Code :

1
2
3
4
5
6
If Me.Selection = True Then
Application.DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [tbl Mail Expéditeurs] SET [tbl Mail Expéditeurs].Selection = False;"
Me.Selection = True
Application.DoCmd.SetWarnings True
End If

Bcdt

[jmde]

Bonjour fbtsra,

Merci pour la réponse, c'est ok ça marche.

Salutations