Discussion :

[sebinator]

Bonjour,

Sur un formulaire j'ai 3 champs

- Date_enr au format date
- Duree_enr au format numérique, liste qui va de 1 à 15.
- Date_prochain_renouv au format date

Le principe de fonctionnent :

une date est entrée dans le champ Date_enr (par ex : 01/01/2000)
une selection est faite dans Duree_enr (par ex: 10) et le champ Date_prochain_renouv se met à jour avec la bonne valeur (01/01/2000 + 10 ans) soit 01/01/2010

Je cherche à mettre a jour le champ Date_enr automatiquement avec la nouvelle valeur qui se trouve dans Date_prochain_renouv.

J'ai mis mon code sur l'evemenent sur changement :
Date_dernier_renouv = Date_prochain_renouv

Cela ne fonctionne pas. Pas de message d'erreur ou autre.

Comment je peux faire ?

Merci d'avance.

Seb

[helios77]

essaie de mettre un msgbox pour voir si il rentre bien dans ton évenement deja
ensuite, en deboggage, regarde bien les valeurs de tes variables que tu stockes..

[Domi2]

Bonjour,

Plutôt que l'événement Sur changement, j'utiliserais l'événement Après MAJ de la liste déroulante, avec le code suivant (à tester).

Code :

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

1
2
3
4
5
Private Sub Duree_enr_AfterUpdate()
 
    Me.Date_prochain_renouv.Value = DateAdd("yyyy", Me.Duree_enr, Me.Date_enr - 1)
 
End Sub

Domi2