Discussion :

[lololebricoleur]

Bonjour,

Dans un formulaire lié à une table temporaire, j'aimerais vérifier l'état des enregistrements affichés pour décider si je dois ou non lancer une action.
Plus précisément, les enregistrements affichés dispose d'une cas à cocher pour être sélectionnés individuellement et je ne lance l'action que si au moins un enregistrement est sélectionné.

Je sais le faire en faisant une requête sur la table liée mais je me dis qu'il doit y avoir plus simple.
Notamment de passer en revue les enregistrement affiché pour vérifier combien sont sélectionnés ?

Est-ce possible et si oui comment svp ?

Merci d'avance de votre aide

[tee_grandbois]

bonjour,

Je sais le faire en faisant une requête sur la table liée mais je me dis qu'il doit y avoir plus simple.

les solutions les plus simples sont celles qui posent le moins de souci :

Code :

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

1
2
3
If Dcount("*","TableTemporaire","CaseaCocher=True") <> 0 Then
'ou 
If Dsum("CaseACocher","TableTemporaire") <> 0 Then

Abs(Dsum("CaseACocher","TableTemporaire")) donne également le nombre de cases cochées

[lololebricoleur]

Merci Tee,

Ok, j'avais pas pensé au fonction de groupement de domaine, en effet.

Mais pour ma gouverne et un éventuel usage ultérieur, peut-on parcourir les enregistrements affichés dans un formulaire ?

Merci ;-)

[tee_grandbois]

oui, c'est possible, ci-dessous un exemple:

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
' pour compter le nombre d'occurrences cochées
Dim lgNbCasCoch As Long
 
With Me.RecordsetClone
    If .RecordCount <> 0 Then
        .MoveFirst
        Do Until .EOF
            If .Fields("CaseACocher") Then lgNbCasCoch = lgNbCasCoch + 1
            .MoveNext
        Loop
    End If
End With
 
If lgNbCasCoch > 0 Then
    MsgBox "nombre d'enregistrement sélectionnés: " & lgNbCasCoch
    '...
End If

[lololebricoleur]

Merci Tee ;-)

[Robert1957]

Bonjour lololebricoleur, tee_grandbois,

Il est possible de parcourir les enregistrements avec le

Code :

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

1
2
3
4
Dim rsrt as DAO.Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
etc...

Bonne journée

Oupss je viens de voir qu'on répondait en même temps...