Маска и проверка Проверить дату ввода по текстовому полю в vba

Question

Привет, я получаю дату в текстовом поле в Ms-Access в формате «yyyy / mm / dd»
для проверки Проверить дату ввода введенным пользователем, мой код в текстовом поле LostFocus DateCutting:

On Local Error GoTo Baddates
myDate = DateCutting.Text
TextBox1.Text = FormatDateTime(myDate, "yyyy/mm/dd")
Baddates:
MsgBox "Please Insert Correct Date! "

Например, я хочу запретить вводить 15 для месяца, но получаю сообщение «Пожалуйста, введите правильную дату!» всегда так сосредоточьтесь на следующем объекте.

Answer 1

Вам нужно намного больше - маска ввода, формат, и код - слишком много, чтобы размещать здесь.

Изучите мой проект VBA.DateEntry с полным кодом.

Документация, включая демонстрационное приложение, опубликована здесь:

Ввод даты в формате ISO с маской ввода и полной проверки в Microsoft Access