Do you want the current DateTime value stored in the field?
Me.ControlName = Now() should do it
Private Sub Cocher26_Click()
If me.Cocher26=-1 then
Me.Reception_Date = Date
Else
Me.Reception_Date = Null
End If
End Sub
...Worth several beers...
...So if MTM is True, and it's November 29, 2019, I want it to add a month when it's November 30, 2019...
[B]If Me.MTM=-1 then
[COLOR="Red"]Me.EndDate =[/COLOR] DateAdd("m",1, Me.EndDate)
Else
[COLOR="red"]Me.EndDate =[/COLOR] Me.EndDate
End If[/B]