ابجکتهای فرم

[michkadol]

با سلام
چطوری میتونیم ابجکتهای رو یک فرم رو در یک جدول لیست کنیم؟

lable10
textbox11
command9
و ...

[mazoolagh]

DIM CTL AS CONTROL
DIM CONTROL_NAME AS STRING
DIM CONTROL_TYPE AS LONG
FOR EACH CTL IN ME.CONTROLS
CONTROL_NAME=CTL.NAME
CONTROL_TYPE=CTL.CONTROLTYPE
...
NEXT


برای لیست کامل CONTROLTYPEها در ACCESS HELP عبارت CONTROLTYPE رو سرچ کنین. برای هر کنترل یک مقدار عددی تعیین شده که برای VBA بعنوان ثابت تعریف شده. مثلا CONTROLTYPE کنترل از نوع TEXTBOX برابر 109 هست که مقدار ثابت تعریف شده اش ACTEXTBOX هست.

[michkadol]

DIM CTL AS CONTROL
DIM CONTROL_NAME AS STRING
DIM CONTROL_TYPE AS LONG
FOR EACH CTL IN ME.CONTROLS
CONTROL_NAME=CTL.NAME
CONTROL_TYPE=CTL.CONTROLTYPE
...
NEXT


برای لیست کامل CONTROLTYPEها در ACCESS HELP عبارت CONTROLTYPE رو سرچ کنین. برای هر کنترل یک مقدار عددی تعیین شده که برای VBA بعنوان ثابت تعریف شده. مثلا CONTROLTYPE کنترل از نوع TEXTBOX برابر 109 هست که مقدار ثابت تعریف شده اش ACTEXTBOX هست.
با تشکر

اگه بخوام ابجکتها رو داخل یک جدول داشته باشم باید چه کار کنم
مثلا یک جدول باشه که نام فرم و نام ابجکت رو نمایش بده
من در نمونه زیر دستوراتی که شما گفته بودینرو جا دادم ولی یه مشکلی داره لطفا یه نگاه بهش بیندازین

[mehdi_fiz]

سلام دوست عزیز

نمونه فایل شما اصلاح شد

مشکل از نحوه استفاده ازحلقه for بود

موفق باشید

[Younestalebi]

دوست عزیز نمونه اصلاحی یه مشکل داره و اون, اینه که شما هربار فرم رو لود کنین یه بار ابجکتها اضافه می شن, باید جلوی اینکار گرفته بشه می تونید برای اینکار فیلدهای توی جدول رو کلیدی قرار بدین تا از ورود تکراری جلوگیری بشه

[mehdi_fiz]

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

[michkadol]

عالی بود متشکرم

[Younestalebi]

دوستان عزیز
می توانید قبل از حلقه For یه کد بنویسید که اگر نام فرم در Table1 موجود بود حلقه اجرا نشود و اگر وجود نداشت حلقه اجرا شود.