Access限制录入日期是星期一

2017-10-09 16:32:00
黄善超
原创
207

在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
    分享