Discussion :

[Daniel-Gérald]

Bonjour à tous, merci pour les bon conseils obtenu.

Voici j'ai un problème de boucle sur mon formulaire en continu.

Mon formulaire est basé sur une requête avec 3 champs (Numérique), 2 champs (Date) et 1 champ Case à Cocher.

NOM DE MES CHAMPS:
1-IdForm
2-NoDossP
3-NoDossS
4-DtSysteme
5-DtEntrevue
6-CCvalVerrou avec critère 0

Ma requête sélectionne tout les enregistrements dont la case à cocher est décocher. Jusqu'ici pas de problème.

Dans mon formulaire j'ai un champ DtVerrou qui est indépendant, et un bouton de commande pour verrouiller.

Lorsque j'inscrit une date dans le champ DtVerrou et que je clic sur mon bouton de commande (Verrouiller), je veux que toutes mes CCValVerrou soit cocher selon le critère DtSysteme < DtVerrou.

MON PROBLÈME: Seulement une seule case à cocher se coche.

MON CODE:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BtmVerrou_Click()
 
 
    For Each ctl In Me.Controls
        If Me.DtSysteme < Me.DtVerrou Then
        Me.CCValVerrou = -1
 
        End If
 Next ctl
 
End Sub

Merci

P.S.: Je ne suis pas très fort en VB.

[madefemere]

Bonjour,

Il te faut accéder à tes données via un recordset et tu peut faire la boucle. La boucle que tu fais ne concerne que les contrôles pour le moment.

Un code qui devrait le faire :

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
Private Sub BtmVerrou_Click()
Dim rst As dao.Recordset
Set rst = Me.RecordsetClone 'Faire du formulaire un recordset
With rst
    .MoveFirst 'Aller au début de l'enregistrement du formulaire - recordset
    While Not .EOF 'Parcourir les enregistrements tant qu'on n'a pas atteint la fin
        If Format(![DtSysteme], "mm/dd/yyyy") < Format(Me.DtVerrou, "mm/dd/yyyy") Then 'Vérifier la condition
            .Edit
            ![CCvalVerrou] = True 'Mettre Oui si condition valide
            .Update
        Else
            .Edit
            ![CCvalVerrou] = False 'Sinon non
            .Update
        End If
        .MoveNext 'aller au prochain enregistrement
    Wend 'Fin de la boucle
End With
Me.Requery
Set rst = Nothing 'Libérer le recordset
End Sub

Bonne continuation

[Daniel-Gérald]

Yessssssssssss, ça fonctionne.

Merci infiniment.