Discussion :

[lmc71]

Bonjour le Forum
Tout d'abord malgré la pandémie actuelle je vous souhaite une meilleur année que 2020.
J'ai un souci, dans un formulaire issue d'une requête.
Je voudrais vider deux cases à cocher présentes dans ce formulaire. Initialement elles sont cochées et je voudrais à l'ouverture de ce formulaire ou à l'aide d'un bouton macro vider ces cases de tous les jeux d'enregistrements présents à l'aide d'une boucle If Then Else qui s'arrête quand toutes les cases sont vides.
Le formulaire s'appelle Jour_Present et les cases à cocher s'appelle Present et Doublets.
En vous remerciant d'avance
Cordialement

PS: Est-il possible de faire un choix aléatoire de deux jeux d'enregistrement d'une table ou requête d'une liste de jeux d'enregistrements. Si oui j'ouvrirai un post.

[Zekraoui_Jakani]

Essayez ceci:
Faites appel à cette fonction à l'ouverture de votre formulaire.

Code :

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

1
2
3
4
5
6
7
8
Function InitialiseCheckBoxes()
    Dim ctl As Control
 
    For Each ctl In Me.Controls
        On Error Resume Next
        If ctl.ControlType = acCheckBox Then ctl.Value = 0
    Next ctl
 End Function

[tee_grandbois]

bonjour,

Est-il possible de faire un choix aléatoire de deux jeux d'enregistrement d'une table ou requête d'une liste de jeux d'enregistrements. Si oui j'ouvrirai un post.

si j'ai bien compris la demande, c'est possible de choisir aléatoirement des enregistrements avec la propriété de la requête "Premières valeurs" en sélectionnant un pourcentage (à moduler par rapport au nombre total d'enregistrements):



ou directement en SQL:

Code :

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

SELECT TOP 10 PERCENT FROM ...

[lmc71]

Re
Je vous remercie de vos réponses rapides.

Pour Zekraoui_Jakani
Aucune case ne se vide à l'ouverture du formulaire.
Je me suis servi de Call et fonction placée Sur Ouverture.
J'ai placé le Code InitialiseCheckBoxes () dans la partie de mon formulaire Form_Jour_Présences (nom de mon formulaire)
Probablement code mal placé.

Cordialement

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
  Call InitialiseCheckBoxes
End Sub

Code :

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

1
2
3
4
5
6
7
8
Function InitialiseCheckBoxes()
    Dim ctl As Control
 
    For Each ctl In Me.Controls
        On Error Resume Next
        If ctl.ControlType = acCheckBox Then ctl.value = 0
    Next ctl
 End Function

Pour Tee_Grandbois
Je ne connais pas le nombre de jeux d'enregistrement qui évolue constamment. Je vais ouvrir post spécifique.

[Zekraoui_Jakani]

Essayez ceci, espérant que la source du formulaire n'est pas verrouillée:

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
17
18
19
20
21
22
23
24
Private Sub Form_Open(Cancel As Integer)
  Call InitialiseCheckBoxes
  Me.Refresh
End Sub
 
Function InitialiseCheckBoxes()
    Dim rs As Recordset
 
    Set rs = Me.RecordsetClone
 
    With rs
        .MoveFirst
        Do While Not .EOF
            .Edit
            !CheckBox1 = 0  'CheckBox1 doit être remplacé par le nom que vous avez défini
            !CheckBox2 = 0  'CheckBox2 doit être remplacé par le nom que vous avez défini
            'Si 'CheckBoxj contient des espaces, mettez de [ ] autour.
            .Update
            .MoveNext
        Loop
    End With
    rs.Close: Set rs = Nothing
 
 End Function

[lmc71]

Re
Tu est un Chef, tout fonctionne à merveille en ce qui concerne le vidage des cases.
J'ai constaté, lors que je coche certaines cases, dont la dernière du jeu d'enregistrement, ce jeu n'est pas pris en compte en tant qu'enregistrement.
Si je supprime ce code, le dernier jeu d'enregistrement est pris en compte.
Est-ce que tu vois de quoi cela peut provenir ?

Encore merci
Cordialement