چگونگی پنهان کردن Table ها در اکسس

[samiasoft]

سلام دوستان

چگونه میتوان در یک فایل اکسس که حاوی Table هست این تیبل ها رو پنهون کرد یعنی در هنگام اجرا هیچ چیزی نمایش داده نشه؟

در فایل زیر اگر دریافت کنید مشاهده میکنید که همین کار صورت گرفته و سوال دومم این هست که چکونه میتوان این را به حالت اولیه برگرداند؟یعنی از حالت پنهان خارج کرد

فایل اکسس

[reza_1199]

دوست گرامی ببین این بدردت میخوره

[Abbas Amiri]

دوست گرامی ببین این بدردت میخوره

بعد از تغییر وضعیت مخفی یا آشکار شدن از دستور

Application.RefreshDatabaseWindow

استفاده کنید .

[saeed1234n]

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

If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _

    And tdf.Attributes = 1 Then

            tdf.Attributes = tdf.Attributes - dbHiddenObject

[Abbas Amiri]

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

If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _

    And tdf.Attributes = 1 Then

            tdf.Attributes = tdf.Attributes - dbHiddenObject

اگر در object Browser عبارت TableDefAttributeEnum رو جستجو کنید با تصویر زیر مواجه می شوید:

TableDefAttributeEnum.JPG

اینها ثوابت عددی هستند که برخی ویژگیهای یک جدول را مشخص می کنند که هرکدام مشخص کننده عددی خاص هستند . مثلا dbAttachedTable برایر 1073741824 می باشد .

چنانچه یک جدول عادی داشته باشید خصوصیت Attributes آن صفر خواهد بود و با توجه به تصویر فوق برای باقی حالات طبق جدول زیر است

TableDefAttributeEnum2.JPG

معمولا ثابت های شمارشی طوری تنظیم شده اند که می توانید ترکیبی از آنها را بکار ببرید ( با OR و AND کردن و یا جمع و تفریق) یعنی بطور مثال یک جدول هم می تواند سیستمی شده باشد و هم مخفی :

tdf.Attributes = dbHiddenObject + dbSystemObject

و یا

tdf.Attributes = dbHiddenObject OR dbSystemObject

در دستور دومی احتیاج به چک کردن این موضوع نیست که جدول قبلا مخفی نشده باشد .

زمانی هم که قصد برداشتن ویژگی داده شده را داشته باشیم مثلا آنرا ازحالت مخفی در آوریم بهترین روش AND NOT آنست

tdf.Attributes = tdf.Attributes And Not dbHiddenObject 

اگر بخواهیم مانند نمونه دوستمان مقدار را کم کنیم حتما بایستی وجود ویژگی در جدول چک شود درغیر اینصورت مقدار نادرستی میگیرد و باعث خطا خواهد شد.

در مورد

If Left(tdf.Name, 4) <> "msys" 

چک شده که جدول جزو جدولهای سیستمی نباشد که می شد بجای آن

And Not(tdf.Attributes Or dbSystemObject)

را هم نوشت که هیچ فرقی نمی کند .

[vivapersian@hotmail.com]

سلام
فایلی که دوستان گذاشته بودن خیلی جالب بود
ولی قابلیت مخفی کردن تیبل هایی که بصورت لینک به برنامه اضافه شده رو نداره
دوستان میتونن برای حل مشکل راهنمایی کنن؟؟؟؟

[vivapersian@hotmail.com]

دوستان کسی راه حلی نداره؟؟؟

[mazoolagh]

سلام
فایلی که دوستان گذاشته بودن خیلی جالب بود
ولی قابلیت مخفی کردن تیبل هایی که بصورت لینک به برنامه اضافه شده رو نداره
دوستان میتونن برای حل مشکل راهنمایی کنن؟؟؟؟

پیشتر بحث مفصلی در باره اش انجام شده - جستجو کنین
نتیجه نهایی و قطعی این بود :
نمیشه!

[vivapersian@hotmail.com]

خیلی ممنون