Перевірка введених користувачем даних

Кнопка Save з попереднього розділу без проблем запише порожню назву компанії або некоректний email у таблицю Customers, оскільки в cmdSave_Click нічого не перевіряє дані перед збереженням. Валідація — це етап, який виконується перед збереженням, щоб виявити проблеми, поки їх ще легко виправити, а не після того, як вони вже стали некоректними даними у робочому аркуші.

Обов'язкові поля

Найпростіша перевірка: чи залишився цей TextBox порожнім?

If Trim(txtCompanyName.Value) = "" Then
    MsgBox "Company Name is required."
    txtCompanyName.SetFocus
    Exit Sub
End If

Trim тут важливий більше, ніж здається — користувач, який введе лише кілька пробілів, пройде перевірку на = "", оскільки " " технічно не є порожнім рядком, але це так само непридатне значення, як і справжня порожнеча. SetFocus переміщує курсор безпосередньо у проблемне поле, щоб користувач не шукав, яке саме поле потрібно виправити — невелика деталь, яка робить форму значно зручнішою.

Перевірка числових значень

IsNumeric перевіряє, чи може значення бути перетворене на число, не намагаючись виконати саме перетворення і не ризикуючи помилкою:

If Not IsNumeric(txtReorderLevel.Value) Then
    MsgBox "Reorder Level must be a number."
    txtReorderLevel.SetFocus
    Exit Sub
End If

Ця перевірка виявить, якщо у числове поле введено, наприклад, "twenty", як показано на скріншоті вище. Лише після проходження цієї перевірки можна безпечно писати код на кшталт CInt(txtReorderLevel.Value) далі у процедурі — спочатку валідація, потім перетворення, щоб уникнути неочікуваних помилок при конвертації.

Перевірка дат

IsDate працює за тим же принципом, але для дат замість чисел:

If Not IsDate(txtOrderDate.Value) Then
    MsgBox "Order Date must be a valid date."
    txtOrderDate.SetFocus
    Exit Sub
End If

Повідомлення про помилки, які збирають усі проблеми одразу Три перевірки вище одразу виконують Exit Sub, щойно знаходять одну проблему — це підходить для коротких форм, але дратує у довших, коли користувач виправляє одну помилку, а одразу стикається з наступною. Більш зручний підхід — накопичувати список усіх проблем і показувати одне загальне повідомлення:

Private Sub cmdSave_Click()
    Dim errors As String
 
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
    End If
 
    If Not IsNumeric(txtReorderLevel.Value) Then
        errors = errors & "- Reorder Level must be a number" & vbNewLine
    End If
 
    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, _
            vbExclamation
        Exit Sub
    End If
 
    ' ... all checks passed, safe to save now
End Sub

Це та сама техніка формування рядка, що й у макросі попереднього розділу для сповіщення про залишки — errors починається порожнім, і кожна невдала перевірка додає до нього ще один рядок, замість негайного виходу. Лише після виконання всіх перевірок процедура перевіряє, чи залишився errors порожнім, що дозволяє користувачу побачити всі проблеми з введенням одразу, а не проходити через кожну помилку окремо.

Завдання

1. Перепишіть cmdSave_Click із завдання попереднього розділу так, щоб формувався рядок помилок, перевіряючи, що Company Name, Contact та Email не порожні.
2. Додайте четверте текстове поле, txtReorderLevel, лише для цієї вправи, і перевірте його за допомогою IsNumeric.
3. Виведіть одне об'єднане MsgBox зі списком усіх проблем, використовуючи vbExclamation як іконку, і переходьте до коду ListRows.Add лише якщо рядок помилок порожній.
4. Перевірте, залишивши всі поля порожніми та натиснувши Save — переконайтеся, що всі очікувані рядки помилок з'являються в одному повідомленні.