Hi, there is a problem abou
Option Compare Database
Option Explicit
Dim myDate As Date
Public Function GetFirstDayOfWeek() As Date
Dim currDate As Date
Dim firstDay As Date
If Me.SmartDate = 0 Then
currDate = Date ' get current date
firstDay = currDate -...