[AC-2003] Condition sur changement de date [Résolu]

[ortiz]

Bonjour,

Dans un formulaire j'ai un champ "Date-V1" que je souhaiterais augmenter d'un an si je coche une case (C-V1) au format "oui/non".
J'ai écrit un code VBA sur le champ "Date V1" (Après MAJ)

Code :

1
2
3
4
5
Private Sub C_Date_V1_AfterUpdate()
If Me.C_V1 = True Then
Me.C_Date_V1 = DateAdd("yyyy", 1, #1/1/2003#)
End If
End Sub

Mais ça ne fonctionne pas. Pourriez-vous m'aider à résoudre ce problème ?

Avec mes remerciements,
Ortiz

[NguyenRD]

Salut,

Essaie de mettre ce code dans l'Event AfterUpdate de C-V1 au lieu de C-Date-V1.

a+

[nefertari]

Bonjour,

Ton code tu dois le mettre sur l'évenement Click de ta Case à Cocher.

Code :

1
2
3
4
5
6
 
Private Sub C_V1_Click()
     If Me.C_V1 = True Then
          Me.C_Date_V1 = DateAdd("yyyy", 1, #1/1/2003#)
     End If
End Sub

Voici ton résultat : 01/01/2004.

Par contre, si tu laisse cette valeur dans ton code #1/1/2003#, tu obtiendras toujours le même résultat

[ortiz]

Bonjour,

Effectivement ça fonctionne mieux sur la case à cocher.

J'avais trouver ce code dans un FAQ access (http://access.developpez.com/faq/?page=dates#dateAdd) "Comment ajouter des jours, des mois ou des années à une date ?".

Mais ce que je souhaiterais c'est que la date inscrite dans mon champ Date V1, qui n'est pas toujours la même suivant mes clients, augmente d'un an: si 01/06/2012 ça devient 01/06/2013, si 01/11/2012 ça devient 01/11/2013 etc... Or avec ce code je suis obligé de mettre une date (exemple: #01/01/2013#) et si j'écris

Code :

Me.C_Date_V1 = DateAdd("yyyy", 1)

ça ne fonctionne pas.

Donc comment pourrais-je écrire ce code ?

Merci de votre aide

Cordialement,
Ortiz

[forges]

Il faut que tu mette la date à laquelle tu veux ajouter un an.

Code :

1
2
 
Me.C_Date_V1 = DateAdd("yyyy", 1, C_Date_V1)

Pour la syntaxe de DateAdd fais un F1 dessus

[ortiz]

Bonjour,

Ok ça fonctionne très bien.
C'est ce que j'avais écris mais avec des [] ou des ", et ça ne fonctionnait pas.

Merci à tous de votre aide

Cordialement