Discussion :

[electrosat03]

Bonjour à tous,

Dans un form, je réalise un filtrer par formulaire, j'aimerais compter le nbre d'enregistrement afin de mettre un message s'il n'y a aucune données.

J'ai une procédure Form_ApplyFilter et si je compte dans cette procédure, il y a erreur, sans doute parce que le tri n'est pas encore effectué

J'ai essayé diverses méthodes, mais rien ne fonctionne

Merci pour votre aide

[deedolith]

J'ai essayé diverses méthodes, mais rien ne fonctionne

Voyons que dit ma boule de cristal ....
Rien !
Ah, j'oubliait, elle ne fonctionne que chez les charlatans.

Trêve de plaisanteries, qu'as-tu essayé ?
Des codes à nous montrer ?

[electrosat03]

Salut,

Code :

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

Me.RecordsetClone.RecordCount

Code :

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

1
2
3
Dim rs As Object
    Set rs = Me.Recordset.Clone
NbreEnregistrement = rs.Count

[deedolith]

Avec un recordset, il faut avoir navigué jusqu'a la fin au préalable.
Faute de quoi, la propriéte RecordCount ne donne que le nombre d'enregistrements qui ont été chargés.

Sinon, tu peux toujours exploiter la fonction d'aggrégation COUNT() dans une requête (selon les cas, ça peut être plus rapide).

[electrosat03]

Salut,

Merci c OK

[tee_grandbois]

bonjour,

j'aimerais compter le nbre d'enregistrement afin de mettre un message s'il n'y a aucune données.

dit comme cela, cette phrase me semble bizarre (peut être parce que l'utilisation de afin n'est pas appropriée)
J'aurai plutôt écrit: "si il y a des enregistrements, j'aimerai en afficher le nombre, sinon afficher un message si il n'y a aucune donnée".
Si le filtre est appliqué sur clic d'un bouton, voici une solution en partant du code donné par electrosat03 et la correction de deedolith:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ors As DAO.Recordset
 
Set ors = Me.RecordsetClone
If ors.RecordCount > 0 Then
    ors.MoveFirst
    ors.Movelast  ' on se positionne au dernier enregistrement pour mettre à jour le RecordCount
    Me.NbreEnregistrements =  ors.RecordCount   ' NbreEnregistrements est (à priori)  un contrôle du formulaire
Else
    Me.NbreEnregistrements = 0    
    Msgbox  "La recherche n'a trouvé aucune donnée" 
End If
 
Set ors = Nothing

[electrosat03]

Merci, tout fonctionne

Je mets en résolu