Discussion :

[chfouche]

Bonjour,

Dans une gestion commerciale que nous avons développée, nous cherchons à faire apparaitre à l'aide de compteurs sur le formulaire d'acceuil le nombre de commandes en en attente / en cours de preparation et traitées.

Nous utilisons 3 requetes et la fonction Dcount, et cela marche, mais le temps de calcul est tres lent et cela nuit à l'utilisation de l'application.
Si quelqu'un a une suggestion pour faire quelque chose de plus élégant et surtout de plus efficace nous le remercions par avance .

Pour le moment nous utilisons sur les évenements du formulaire :
- sur activation

et le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
labCpteAtraiter.Caption = DCount("[N°mvt]", "[req001CommandesNonExportees]")
 
labCpteExpCiel.Caption = DCount("[N°mvt]", "[req001CommandesNonFacturees]")
 
labCpteDactuAttente.Caption = DCount("[N°mvt]", "[req001CommandesNonTerminees]", "[Facture CIEL]=True")
 
End Sub

Par avance merci.

Charles

[olive_tp]

Je ne suis pas expert mais je crois effectivement savoir que les fonctions de domaine ont la réputation d'être peu véloces.

Je vois 2 chemins qui peuvent être explorer:
- si les décompte que tu souhaites faire porte sur des requêtes qui sont déjà utilisées dans le formulaire, tu peux peut-être tenter de dupliquer/cloner le recordset utilisé, et filtrer / te ballader dedans (en ayant gardé la position initiale qqpart pour pouvoir replacer le recordset sur sa position initiale à la fin du traitement de calcul);
- si les décomptes portent sur des requêtes qui ne sont pas utilisées dans le formulaire, tenter de mettre à jour les données directement par un code VB - cf. exemple ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function maj_labCpteAtraiter as Integer
Dim str_sql as String
Dim db as DAO.Database
Dim rst as DAO.Recordset
str_sql = "SELECT DISTINCT [N°mvt] FROM [req001CommandesNonExportees]"
Set db = Application.CurrentDb
set rst = db.OpenRecordset(str_sql)
rst.Movelast
maj_labCpteAtraiter = rst.RecordCount
rst.Close
Set rst = Nothing
Set db = Nothing
End Function

Puis mettre le code suivant dans le formulaire:

Code :

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

1
2
3
Private Sub Form_Current()
labCpteAtraiter.Caption = maj_labCpteAtraiter
End Sub

Je ne sais pas si la chose est très élégante (perso, je ne trouve pas ) mais c'est la seule solution que j'ai trouvée pour certains de mes formulaires et c'est plutôt efficace. En espérant que cela te soit d'une qqconque aide!

[chfouche]

Merci beaucoup Olive_tp.
Dans la pratique ta solution ne donne pas des performances différentes de l'utilisation de la fonction dcount. C'est toujours très lent des qu'il y a plus de 25 enregistrements. Du coup c'est vrai que ce n'est pas vraiment très elegant car ca rajoute plusieurs lignes de codes.

Si quelqu'un sait, je le remercie d'avance.

[Jean-Philippe André]

salut,
peut-être qu'une approche du type:

Code SQL :

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

SELECT * INTO tbltemp From tarequete

suivi d'un

Code :

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

Dcount("*","tbltemp")

serait plus rapide ?