Code pour le cumul

mohalesage Messages postés 162 Statut Membre -  
mohalesage Messages postés 162 Statut Membre -
Bonjour,

je tente d'afficher sur une zone de text le cumul d'une série de résultat, mais jusqu'à maintenant, je n'ai pas arrivé à le faire.

je vous remercie d'avance pour votre aide






A voir également:

3 réponses

irongege Messages postés 43559 Date d'inscription   Statut Modérateur Dernière intervention   5 081
 
Bonjour

Et si tu nous mettais ce que tu as codé ?
0
mohalesage Messages postés 162 Statut Membre 1
 
Bonjour l'Ami

Voilà ce que j'ai écris comme code, sans résultat

THNMATIN est l'identifiant du total des heures du matin dans la BD
THNAPM est l'identifiant du total des heures de l'après midi dans la BD

lblTHnJ est l'objet pour l'affichage du total des heures du Matin et d'après midi.
Son identifiant dans la BD est THNJ





Dim y As Date
Dim THNMATIN, THNAPM


RS.Open

y = RS![THNMATIN] + RS![THNAPM]
lblTHnJ.Caption = y

RS.Close



Merci d'avance
0
mohalesage Messages postés 162 Statut Membre 1
 
Enfin les mais, j'ai trouvé la solution, mais n'empêche pas de me faire des remarques, si elle y en a.


Dim FirstNumber As Date
Dim SecondNumber As Date
Dim Result As Date
Dim y As Date

FirstNumber = CDate(lblTHnM)
SecondNumber = CDate(lblTHnApm)
Result = CDate(lblTHnM) + CDate(lblTHnApm)

RS.Open

y = Result
lblTHnJ.Caption = y

RS.Close




Merci quand même,
je tente maintenant de réussir le code du cumul de la période


votre aide est la bienvenue
0