ник: osmor
поправочка
свойство text - есть не у всех контролов
SetFocus делать не обязательно
dim ctl as control
dim frm as form
set frm = me
For Each ctl in frm.Controls
With ctl
Select Case .ControlType
Case acTextBox
.value = "" 'или .value = Null (если позволяют условия на значение
Case acListBox
.value = "" 'или .value = Null (если позволяют условия на значение
Case acComboBox
.value = "" 'или .value = Null (если позволяют условия на значение
End Select
End With
Next ctl