Pb de date [ACCESS] - Programmation
Marsh Posté le 18-06-2002 à 14:41:03
Tu peux utiliser la fonction DateAdd , voila un exemple :
Dim v_madate As Date
Dim v_madate2 As Date ' la date + 8 mois
'exemple avec la date courante
madate = Date
'on ajoute 8 mois à la date courante
madate2 = DateAdd("m", 8, madate)
Marsh Posté le 18-06-2002 à 14:55:42
j fais ça :
Dim madate As Date
Dim madate2 As Date ' la date + 8 mois
Dim rs As Object
Dim i As Integer
Set rs = Me.RecordsetClone
For i = 1 To rs.RecordCount
'exemple avec la date courante
madate = abonnement_date
'on ajoute 8 mois à la date courante
madate2 = DateAdd("m", 8, madate)
MsgBox madate2
Next
-->abonnement_date = date a laquel il faut ajouter 8mois pour la tester
Marsh Posté le 18-06-2002 à 15:02:43
le prob c que qd je lance ça , il me trouve toujours la meme date
il rajoute 8mois a la date en cours et non pas a abonnement_date
comment fair ??
merci !
Marsh Posté le 18-06-2002 à 15:10:33
comment calcules tu ton abonnement_date ?
Marsh Posté le 18-06-2002 à 15:10:33
CYFL a écrit a écrit : j fais ça : -->abonnement_date = date a laquel il faut ajouter 8mois pour la tester |
c'est un champ de ta table ou une variable ?
Marsh Posté le 18-06-2002 à 15:11:50
Bolino a écrit a écrit : c'est un champ de ta table ou une variable ? |
on a posté à la même seconde
Marsh Posté le 18-06-2002 à 15:12:49
Harkonnen a écrit a écrit : on a posté à la même seconde |
je suis grilled
c'est vrair que c'est rare
Marsh Posté le 18-06-2002 à 15:21:16
CYFL a écrit a écrit : le prob c que qd je lance ça , il me trouve toujours la meme date il rajoute 8mois a la date en cours et non pas a abonnement_date comment fair ?? merci ! |
c'est normal, tu ne fait pas rs("abonnement_date" )=madate2 dans ta boucle.
EDIT : ni de rs.update et de rs.close à la fin de ta procedure
Marsh Posté le 18-06-2002 à 15:21:52
CYFL a écrit a écrit : oui c un champ de ma table |
ben alors, si c'est un champ, c'est normal qu'il te trouve la même date, vu qu'elle est fixe !
tu le fais exprès décidément...
Marsh Posté le 18-06-2002 à 15:23:07
mareek a écrit a écrit : c'est normal, tu ne fait pas rs("abonnement_date" )=madate2 dans ta boucle. |
putain, mais c'est vrai en plus, j'avais même pas fait gaffe !
CYFL, tu mérites le goudron et les plumes !
Marsh Posté le 18-06-2002 à 15:23:42
et ben tut te calme.j tué personne non ?
Alors remettons nous au travail
Marsh Posté le 18-06-2002 à 15:25:16
CYFL a écrit a écrit : le prob c que qd je lance ça , il me trouve toujours la meme date il rajoute 8mois a la date en cours et non pas a abonnement_date |
A mon avis la textbox qui contient cette fameuse date s'appelle aussi "abonnement_date" non ?
dans tous les cas comme dis mareek là tu dois prendre ton champ dans le recordset:
madate=rs!abonnement_date
Marsh Posté le 18-06-2002 à 15:29:07
CYFL a écrit a écrit : et ben tut te calme.j tué personne non ? Alors remettons nous au travail |
roo, mais c'était une plaisanterie
mais comment veux tu utiliser une date stockée dans une base de donnée si tu n'extrait pas ensuite cette date du recordset ?
mareek a raison !
Marsh Posté le 18-06-2002 à 15:32:17
j' avais juste un peu oublié les méthodes pour un recordset !!!!
Marsh Posté le 18-06-2002 à 15:41:19
je veuts fair un test sur cette date
c pour ça que je parcourre le jeux d'enregistrement
Marsh Posté le 18-06-2002 à 15:42:09
et ensuite ?
Marsh Posté le 18-06-2002 à 15:44:54
c un test pour savoir ,
si abonnement_date + 8mois est superieur ou égal a la date du jour
et bien on fait une action
voila ce que je voudrais fair !!
Marsh Posté le 18-06-2002 à 15:59:02
CYFL a écrit a écrit : c un test pour savoir , si abonnement_date + 8mois est superieur ou égal a la date du jour et bien on fait une action voila ce que je voudrais fair !! |
if dateadd("m",8,rs![abonnement_date])>=date then
Marsh Posté le 18-06-2002 à 14:22:24
je voudrais ajouter 8 mois a une date pour fair un test
et j'arrive pas !!!
help !