شرط if برای چک کردن باز یا بسته بودن یک فرم

[Shahramdindoust]

سلام
چطور میشه داخل شرط if باز یا بسته بودن فایل رو قرار داد. مثلا میخواهیم بگوییم :

if اگر فرم باز است then
کارهایی رو انجام بده
else
هیچ کاری نکن
end if
.
عجب چیزی نوشتم اگه برنامه نویسی فارسی بود هم حال میداد ها. چرا کسی به فکر ساخت یک کامپایلر فارسی نیست فک کنم خیلی سخت باشه.

[narpco]

If CurrentProject.AllForms("frm_rollcall_A").IsLoaded = true Then

[Shahramdindoust]

ببخشید این

frm_rollcall_A چیه؟ باید به جاش اسم فرم خودمو بنویسم درسته ؟

[Shahramdindoust]

لطفا سوال بالا رو جواب بدین و همچنین بگین که آیا لازمه در ادامه else بذارم وبگم اگه فرم مورد نظر باز نبود هیچ کاری نکن یا همون if رو ببندم کافیه؟

[narpco]

If CurrentProject.AllForms("frm_rollcall_A").IsLoaded = true Then
عملیات مورد نظر
else
عملیات مورد نظر
end if
دوست عزیز از اینکه در جمع ما هستید بسیار خوشحالیم
منتها بسیار دوستانه و عاشقانه پیشنهاد می کنم دوره اکسس مقدماتی و پیشرفته رو که در اکثر سایت ها مثل افیس باز فرادانش و امثالهم هست رو تهیه کنید و تمرین نمایید
الیته اگر دوست داشتید و علاقه مند بودید ....موفق باشید

[padide55]

لطفا سوال بالا رو جواب بدین و همچنین بگین که آیا لازمه در ادامه else بذارم وبگم اگه فرم مورد نظر باز نبود هیچ کاری نکن یا همون if رو ببندم کافیه؟

سلام
یه مقدار هم خودتون بررسی کنید
کد بالا رو هم با نام فرم خودتون و هم با همین کد تست کنید

در ادامه بعد از then هم باید کاری که قراره انجام بشه رو بیارید

مثلا
If CurrentProject.AllForms("myform1").IsLoaded = true Then
msgbox "فرم باز است"
else
msgbox "فرم بسته است"
endif

بجای مسیج هر عملکردی لازم دارید قرار بدین

ضمنا
else الزامی نیست

[Shahramdindoust]

بله ممنون