Access限製録入日期是星期一

在Access中，録入數據往往需要一些限製。比如録入的日期必鬚是星期一，否則齣錯。

當選擇日期是非星期一時，會自動選取今天的這箇星期的星期一

效果圖：

詳細源碼：

Private Sub Text1_AfterUpdate()
    If Weekday(Me.Text1, vbMonday) <> 1 Then
        MsgBox "日期必鬚是星期一", vbInformation, "提示"        
        Me.Text1 = DateAdd("d", -Weekday(Date, vbMonday) + 1, Date) 
    End If
    
End Sub