Se connecter avec
S'enregistrer | Connectez-vous

[RESOLU]additionner des heures sous ACCESS

Dernière réponse : dans Programmation

Salut à tous !!
Bon le titre est pas très clair ... En fait j'ai un formulaire où on rentre une durée dans une zone de texte mais avec un masque de saisie (=> HH:MM ). Ces durée sont enregistrées dans mon tableau 'durée' (je suis très imaginatif (>^^)> ) mais je voudrais pouvoir afficher la durée total.
Par exemple si on rentre 1:30 et 2:45 que le total affiche 4:15 ... Et non pas 3:75 ( de toute façon même ça j'arrive pas à le faire xD).
Enfin bref donc voilà je sais que par ici on aime pas trop ACCESS et je vous comprends parfaitement mais je pense que cela pourrait être utile à beaucoup de personne (oui oui ... surtout à moi :whistle:  ).
Par contre étant donné que je suis en stage il faut que se soit fait sous ACCESS / VB donc voilà je vous laisse carte blanche ^^.
Merci d'avance à tout ceux qui prendront la peine de me lire
ByeBye

edit: pour la solution si ça vous interesse MP

Autres pages sur : resolu additionner heures access

Lassé par la pub ? Créez un compte
Expert Programmation

Ben, dans ton formulaire, tu mets le résultat d'une requête où tu ajoutes tous les trucs de ton tableau durée? C'est bien des dates que tu as mis comme type pour ton champ? Enfin j'en sais rien, je dis ça comme ça!

Salut!
bin ouai forcèment j'ai tenté un truc du genre:
=>pour ajouter dans le tableau une durée
Private Sub Commande2_Click()
Dim base As Database
Dim tsaisie As Recordset
Set base = CurrentDb()
Set tsaisie = base.OpenRecordset("DUREE", DB_OPEN_DYNASET)

tsaisie.AddNew
Texte0 = tsaisie![durée]
tsaisie.Update

End Sub

déjà ça ... ça marche pas (>- -'<)

=>et après j'avais pensé à ça comme requête
CurrentDb.Execute "SELECT SUM(durée) FROM DUREE"

donc voilà ... dite moi si je suis totalement fou et si je risque de mourir du typhus xD
byebye :hello: 

Salut, Lazy87

Quelle est la source de ta zone de texte ? Est-ce le champ de ta table DUREE ? Si oui, ce champ est-il de type Date/Heure ? Si oui, il "suffit" de mettre ceci dans la source de ton champ total:

=Somme([Durée])

Ca marche ?

Non comme cela ça ne marche pas, mais en fait il suffit de passer par le code:
Private Sub Commande2_Click() 'enregistre les durée dans la table
Dim base As Database
Dim tsaisie As Recordset
Set base = CurrentDb()
Set tsaisie = base.OpenRecordset("DUREE", DB_OPEN_DYNASET)

tsaisie.AddNew
tsaisie![durée] = Texte0
tsaisie.Update

End Sub

Private Sub Commande5_Click() 'fais la somme
Dim min As Integer
Dim heure As Integer

min = Val(Right(Texte0, 2)) + Val(Right(Texte6, 2))
heure = Val(Left(Texte0, 2)) + Val(Left(Texte6, 2))
If min >= 60 Then
heure = heure + 1
min = min - 60
total = Str(heure) & ":" & Str(min)
End If

donc voilà après on peut arranger le code pour l'application plus jolie mais en gros ça fonctionne.
Merci à tout ceux qui ont répondu (>^^)>
byebye
Lassé par la pub ? Créez un compte

Créer un nouveau sujet

Tom's guide dans le monde