Discussion :

[Invité]

bonjour à tous,
j'ai un formulaire continu m'affichant les vacations de tous les employés avec les heures effectuées pour chaque vacation.
Au moyen de 2 listes déroulantes je peux filtrer l'affichage par nom et par année, et dans l'entête du formulaire j'ai un champ indépendant destiné à m'afficher après filtrage le total annuel des heures comptabilisées pour un employé.
La requête créée avec l'assistant fonctionne cependant mais je n'arrive pas à faire apparaitre la valeur obtenue dans ledit champ.

Code :

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

SELECT Sum(Tbl_Temp.Duree) AS SommeDeDuree FROM Tbl_Temp;

Quelqu'un que je remercie d'avance a t'il une solution à me proposer ?

[ClaudeLELOUP]

Bonjour,

La source du champ :

Code :

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

=Dsum("Duree";"tbl_temp")

[Invité]

merci pour ta reponse Claude,

alors voilà j'ai placé le code dans le vb du formulaire comme ça (sur l'action bouton de validation du filtrage) :

Code :

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

CumulHeures = DSum("[Duree]", "Tbl_Temp")

apres avoir verifié la syntaxe avec F1.

Ca me dit "impossible d'attribuer une valeur a cet objet"

[ClaudeLELOUP]

C'est directement dans le formulaire que la source de CumulHeures
doit être "= DSum("[Duree]", "Tbl_Temp")"

A l'heure actuelle tu as probablement "= autre chose" ce qui explique ton message d'erreur.

[Invité]

bon ok, autant pour moi....

j'avais tenté cette solution auparavant mais en vain, devait y avoir une erreur de syntaxe ou un "truc" qui traine dans un paramètre du champ.

Par contre peux-tu m'expliquer pourquoi ça ne fonctionne pas quand je place cette expression dans le code ?

[ClaudeLELOUP]

Si à l'origine ton contrôle n'a pas de source,

Code :

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

CumulHeures = DSum("[Duree]", "Tbl_Temp")

fonctionnera

[Invité]

je viens de réessayer , I'm sorry ... maintenant ça fonctionne !

Grrrrrr parfois j'ai du mal à saisir...

Bon ben y a plus qu'à retransformer en heures minutes avec "fix" dans un string

Merci beaucoup pour ce coup d'éclairage.

[Invité]

ca peut depanner quelqu'un

Code :

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

1
2
3
4
5
Dim NbHeures, NbMinutes As Long
 NbHeures = Fix(CumulHeures / 60)
 NbMinutes = CumulHeures - (NbHeures * 60)
 
Informations = NbHeures & " h " & NbMinutes & " mns" & " comptabilisees pour M. " & ChoixNom & " au cours de l'annee " & ChoixAnnee

à +