Bonjour,

j'ai ecrit un petit code, pour copier dans un champ la date la plus importante, entre deux champs date.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Dim dateEcart As Long
Dim date1 As Date
Dim date2 As Date
 
date1 = Nz([D_Maint_HD], "10/12/1980")
date2 = Nz([D_Maint_HDES], "10/12/1980")
dateEcart = DateDiff("m", date2, date1)
If dateEcart >= 0 Then
msgBox dateEcart
    Me.[Fin_abonnement].Value = Me.[D_Maint_HD]
Else
    Me.[Fin_abonnement].Value = Me.[D_Maint_HDES]
End If
End Sub
Il m'affiche bien untexte box, avec une valeur positive...
sauf que il s'arrete là... il ne veut pas donner la valeur de [D_maint_HD] au champ [fin_abonnement]

par contre si je fais un bouton avec:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.Fin_abonnement = Me.[D_Maint_HD]
là ça marche...

donc par A+B = je ne comprend pas !!

Si quelqu'un voit l'erreur... moi je la voit pas...