for each

[فردان فردان]

آیا در اکسس هم دستوری مثل fro each که در ویژوال بیسیک است و به یکی یکی کنترلها دسترسی پیدا می کنیم وجود دارد
من می خواهم به یک یک کنترلهای یک فرم دسترسی پیدا کرده و روی آنها برنامه نویسی کنم، البته بدون این که نام کنترلها را خودم یکی یکی وارد کنم.
لطفا راهنمایی بفرمایید.

[amirzazadeh]

سلام
بله اين دستور وجود دارد.
نمونه كد:

Sub CleanControl(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acComboBox
.Value = ""
.BackColor = vbWhite
Case acTextBox
.Value = ""
.BackColor = vbWhite
End Select
End With
Next ctl
End Sub
...................
موفق باشيد