office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access限制錄入日期是星期一

2017-10-09 16:32:00
tmtony8
原創
1966

在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
    分享
    北京十一选五基本走势