Function
LockTextControls(frm As Form) As Boolean
═════Dim ctl As Control
═════? включаем
обработку ошибок
═════On Error GoTo Error_LockTextControls
═════' перечисляем
элементы управления формы
═════For Each ctl In frm. Controls
══════════? если элемент управления
является полем или полем со
списком,
══════════' устанавливаем свойство
Locked как True
══════════If ctl .ControlType acTextBox Or ctl,
ControlType= acComboBox Then
═══════════════ctl .Locked = True
══════════End It
═════Next ctl
═════? возвращаем
True, если операция была успешной
═════LockTextControls=True
Exit_LockTextControls:
═════Exit Function
Error_LockTextControls:
═════MsgBox Err & ": " & Err.
Description
═════LockTextControls = False
═════Resume Exit_LockTextControls
End Function
