کنترلها در اکسس [بایگانی]

bani_hashemi

دوشنبه 23 بهمن 1385, 13:23 عصر

در کدنویسی چگونه به مجموعه ای از کنترلها اشاره کنم به عنوان مثال می خواهم متغییری از نوع کنترل در نظر بگیرم که شامل تما م textbox های یک فرم باشد و عملیاتی روی همه آنها اجرا شود مثلا رنگ همه آنها تغییر کند یا اینکه به صورت کلی بتوان روی خصویت on got focus آنها دستوری نوشت
با تشکر فراوان
هاشمی

mohammadgij

دوشنبه 23 بهمن 1385, 13:57 عصر

Dim ctlControlsSubform As control
For Each ctlControlsSubform In Me.[اسم فرم].Form.Controls
If ctlControlsSubform.ControlType = acTextBox Or ctlControlsSubform.ControlType = acComboBox Or ctlControlsSubform.ControlType = acOptionGroup Or ctlControlsSubform.ControlType = acCheckBox Then
With ctlControlsSubform
.ControlSource = ctlControlsSubform.Name
End With
End If
Next