Я создаю пользовательскую форму, которая позволит пользователю нажимать на дату в календаре и обновлять ярлык в форме с датой (см. Изображение в приложении). Я хотел бы написать код, который будет проверять / гарантировать, что дата начала недели всегда будет в понедельник, а если нет, то будет отображаться ошибка и эти ярлыки будут очищены.
У меня есть кнопка «Ввод», где я уже запрограммировал то, что хочу (см. Ниже), но хотел бы, чтобы ошибка автоматически отображалась, когда пользователь нажимает неправильную дату в календаре.
Если есть способ сделать это способом, аналогичным событию 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
Изображение того, как выглядит форма.