Tom's Guide > Forum > Programmation > [RESOLU]additionner des heures sous ACCESS

[RESOLU]additionner des heures sous ACCESS

Forum Programmation : [RESOLU]additionner des heures sous ACCESS

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 

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


Message édité par lazy87 le 10-06-2008 à 11:32:11
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.

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!

Répondre à Rakipu

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:

Répondre à lazy87

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 ?

Répondre à gillou_gre

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

Répondre à lazy87
Tom's Guide > Forum > Programmation > [RESOLU]additionner des heures sous ACCESS
Aller à :

Il y a 1740 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens