ник: Анатолий (Киев)
1. На BeforeUpdate проверять Len(Me![Поле].Text). Если меньше - сообщать и Cancel=True.
Также можно указать маску ввода из 4-х обязательных символов.
2. На Change поля:
If Len(Me![Поле].Text) >= 50 Then 'Чтоб не отвлекало, если меньше 50 символов
Me![Поле2] = 100 - Len(Me![Поле].Text)
Else
Me![Поле2] = Null
End If
|
На LostFocus поля и Current формы:
Me![Поле2] = Null