تغییر مقادیر پراپرتی های کنترل در فرم یا گزارش با ControlType

استفاده از   ControlType Propert 

در مثال زیر در کنترل های فرم  لوپ زده میشود فقط مورد Lable که با acLabel مشخص شده  و پراپرتی SpecialEffect و BorderStyle را عوض میکند ... کد را کپی نکنید اول خط به خط یاد بگیرید بعد مستفیذ شوید 

For Each ctl in frm.Controls

With ctl

انتخاب موارد تیپ کنترل Select Case .ControlTpye

مورد لیبل Case acLabel

اگر پراپرتی اسپشیال افکت برابر ثابت Shadow بود

If .SpecialEffect = acEffectShadow Then

اسپشیال افکت لیبلی که Shadow بود به نرمال تبدیل میشود

SpecialEffect = acEffectNormal

بوردر لیب هم فرضا اگر ثابت Transparent بود به Solid تغییر می یابد

BorderStyle=1

Else

End if

End Select

Next

Constant	Control
acBoundObjectFrame	Bound object frame
acCheckBox	Check box
acComboBox	Combo box
acCommandButton	Command button
acCustomControl	ActiveX (custom) control
acImage	Image
acLabel	Label
acLine	Line
acListBox	List box
acObjectFrame	Unbound object frame or chart
acOptionButton	Option button
acOptionGroup	Option group
acPage	Page
acPageBreak	Page break
acRectangle	Rectangle
acSubform	Subform/subreport
acTabCtl	Tab
acTextBox	Text box