کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

ویژگی Filter در فرم





Form.Filter Property




Use the Filter property to specify a subset of records to be displayed when a filter is applied to a form, report, query, or table. Read/write String.



از ویژگی Filter برای ذخیره یک فیلتر و بکار بردن آن در زمان دیگری استفاده کنید . فیلترها با اشیاء در جایی که ساخته شده اند ذخیره می شوند  . آنها بصورت خودکار زمانیکه شئ مثل فرم باز می شود بارگذاری می شود اما بصورت خودکار اعمال نمی شوند.



عبارتی که می دهد بدون Where است می توانید سابفرم را فیلتر کنید و عبارت پراپرتی فیلتر آنرا در متغیری ذخیره کنید و  نمایش آنرا در قالب Msgbox یا در TextBox ببینید



Me.Filter="Country='USA'"

Me.FilterOn=True



Dim Form As Form

Set Form = Forms("fmClientLogDtls2")

Form.Filter = "logDtlsID = " & Me!logDtlsID.Value & ""
Form.FilterOn = True



Subform.Form Property



Use the Form property to refer to a form or to refer to the form associated with a subformcontrol. Read-only Form.



برای رجوع به فرم یا فرم مرتبط با کنترل سابفرم از ویژگی Form استفاده کنید.



پس طبق گفته بالا برای استفاده ازکنترل سابفرم باید به پراپرتی فرم اشاره کرد و بعد نام کنترل 



مثال :  رجوع به مقدار ذخیره شده ( پراپرتی Value بعد از رفتن فوکوس به جای دیگر مقدار میگیرد ) کنترل MyTextBox در ( کنترل ) سابفرم با نام SubformControl4  که در سابفرم ۳  قرار گرفته  و ۳ در ۲ و ۲ در MySubformControlName ... خلاصه سابفرم در سابفرم است بشتابید  !!!


Forms(“MainFormName”). Controls(“MySubformControlName“). Form.Controls(“SubformControl2”). Form.Controls(“SubformControl3”). Form.Controls(“SubformControl4”). Form.Controls("MyTextBox").Value




Controls.Count Property


Use the Count property to determine the number of items in a specified collection. Read-only Long.



Forms("Form1").Controls.Count 



شماره ایندکس از صفر شروع میشود پس باید Count-1 شود.

ایندکس می تواند تغییر کند ( مثلا در حذف جدول و دوباره ایجاد کردن با همان نام )  پس بهتر است نام فرم ذکرشود