تفضل يا أبو الحسن
Private Sub srch_All_AfterUpdate()
If Me.srch_All = "All" Then
Me.srch_Date_From = DateSerial(2020, 1, 1)
Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1
Else
Me.srch_Date_From = ""
Me.srch_Date_To = ""
End If
End Sub
DATA1041-5.mdb