Default Date when clear button selected

[renjithpl]

  Hi All,

Need a macro or a solution to keep a default date as max date in application when clear button selected.

Regards

Renjith

[christophebrault]

if i well understood, you have a button that clear all selection ?

If it's that case, just add an action to that button to select your default date in your field Date.

[renjithpl]

Sub SetClearState_Dashboard()

vDefaultDate1=DATE(Max(Date),'DD/MM/YYYY')

Set defaultDate = ActiveDocument.Variables("vDefaultDate1")
ActiveDocument.Fields("CalDate").Select defaultDate.GetContent.String
ActiveDocument.SetClearState

End Sub

[renjithpl]

Sub SetClearState_Dashboard()

vDefaultDate1=DATE(Max(Date),'DD/MM/YYYY')
 

Set defaultDate = ActiveDocument.Variables("vDefaultDate1")

ActiveDocument.Fields("CalDate").Select defaultDate.GetContent.String

ActiveDocument.SetClearState 

End Sub