Code pour le cumul

Bonjour

Et si tu nous mettais ce que tu as codé ?

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

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