Discussion :

[carlostropico]

Bonjour à tous,
je voudrais mettre à jour le champs date d'une table automatiquement, si cette date est inférieur à la date du jour.
en gros, dès qu'une date de résiliation est passée et qu'un contrat n'est pas résilié, l'échéance est prolongée de la durée de renouvellement.
après plusieurs essais et recherches, voici le code qui je crois se rapproche de ce que je veux, mais ça ne fonctionne pas...
merci par avance pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub MAJDATERESIL_Click()
Dim DATEDUJOUR As String
 
DATEDUJOUR = Format(Date, "mm/dd/yy")
 
Dim sSQL As String
sSQL = "UPDATE T_contrat_ets WHERE [date_de_résiliation]<#" & DATEDUJOUR & "# AND [résilié]=no set [durée_du_renouvellement], AjDate(""yyyy"";[durée_du_renouvellement];[date_de_résiliation]));"
DoCmd.RunSQL (sSQL)
 
 
End Sub

[random]

et si on ne formatait pas datedujour ?

[carlostropico]

non, en fait je formate datedujour pou qu'il soit au format US,
mais je ne crois pas que cela ait un impact, je l'ai fait sans le formater,
mais ça ne marchait pas non plus.

[Jean-Philippe André]

salut,
et avec ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sSQL = "UPDATE T_contrat_ets WHERE [date_de_résiliation]<Date() AND [résilié]=no set [durée_du_renouvellement], AjDate(""yyyy"";[durée_du_renouvellement];[date_de_résiliation]));"

[carlostropico]

ça y est,
j'ai trouvé...enfin, j'ai trouvé, c'est pas très clean ( pas de prise en compte des années bisextiles mais bon....
alors voilà la réponse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub MAJDATERESIL_Click()
QL = "UPDATE T_contrat_ets SET date_de_résiliation = ([durée_du_renouvellement]*365)+[date_de_résiliation], date_fin_contrat = ([durée_du_renouvellement]*365)+[date_fin_contrat] WHERE [date_de_résiliation]<Date() And [résilié]=No And isnull([durée_du_renouvellement])=No;"
 
DoCmd.RunSQL (sSQL)
 
End Sub

merci, si vous avez une meilleure solution, dites le moi.
merci

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dateserial(year(date_de_résiliation )+([durée_du_renouvellement],month(date_de_résiliation),day(date_de_résiliation))

[carlostropico]

merki monsieur,
c'est tout à fait ça!!!!!
bonne journée