MS-доступ: очистить текст во всех элементах управления одним щелчком мыши

Question

у меня есть несколько списков и несколько текстовых полей в форме

Я хотел бы очистить их всех одной строкой кода. это возможно?

что-то вроде all_controls.text=""

Answer 1

Не с одной строкой кода. Вам придется пройти через все элементы управления с помощью петли.

Dim ctl As Control
For Each ctl In Me.Controls
    If (ctl.ControlType = acTextBox) Then
        ctl.Value = Null
    End If
Next ctl

http://www.tek -tips.com / faqs.cfm? FID = 5010