我正在制作一个用户表单,该表单将允许用户单击日历中的日期,并使用该日期更新表单上的标签框(请参见下图)。我想编写一个代码来检查/确保“每周开始”日期总是在星期一,如果没有,将显示错误并清除那些标签。
我有一个“输入”按钮,已经在其中输入了我想要的代码(请参见下文),但是当用户单击日历上的错误日期时,希望自动显示错误。
如果有一种类似于TextBox AfterUpdate事件的方式进行操作,我将不胜感激。
'Error message stored in Enter button if work week is selected that does
'not start on a Monday
If Not Format(datFirstDay, "w") = "2" Then
MsgBox ("Please select a work week that starts on Monday.")
lblStartDate.Caption = ""
lblStopDate.Caption = ""
LengthNo.Caption = ""
End If
答案 0 :(得分:0)
用户似乎正在从日历中选择日期,而您只是在使用标签显示所选日期。显示设置标签值的代码将很有帮助。您应该将错误检查与在日历上输入日期而不是与标签相关的任何事件相关联。谈论标签上的事件是一条红鲱鱼。