PDA

View Full Version : عدم دسترسی به فیلد های table


IMANAZADI
جمعه 22 مهر 1390, 11:00 صبح
با سلام خدمت دوستان عزیز
یک سوال داشتم
چطوری میتونم table رو در اکسس قفل کنم یا روش پسورد بزارم فقط تیبل
یعنی اینکه کسی نتونه بره تو design view یا نوع فیلداشو عوض کنه ؟؟
خیلی ممنون
با تشکر
IMANAZADI
جمعه 22 مهر 1390, 13:15 عصر
کسی نیست راهنمایی کنه ؟؟
mehdi_fiz
جمعه 22 مهر 1390, 14:31 عصر
سلام دوست عزیز

شما باید جداولتون رو سوپر مخفی کنید
تو سایت جستجو کنید هست
موفق باشید
IMANAZADI
جمعه 22 مهر 1390, 17:57 عصر
غیر از این راهی نداره مثلا با VB کد نوشت که تیبل به حالت DESIGN نره
اگه میشه راه این سوپر مخفی رو بگید
IMANAZADI
یک شنبه 01 آبان 1390, 12:23 عصر
چقدر هم جواب گرفتیم
یعنی کسی تا به حال نمیخواسته یکی از TABLE ها رو عدم دسترسی DESIGN بده
Abbas Amiri
جمعه 20 آبان 1390, 14:29 عصر
با تابع زیر متوانید یک جدول را سوپر مخفی یا نمایان کنید:


Sub TableVisibility(tableName As String, Visible As Boolean)
Dim tdf As DAO.TableDef
Dim db As DAO.Database
Set db = CurrentDb()
Set tdf = db.TableDefs(tableName)
If Not Visible Then
tdf.Attributes = tdf.Attributes Or dbHiddenObject
Else
tdf.Attributes = tdf.Attributes And (Not dbHiddenObject)
End If
Set tdf = Nothing
RefreshDatabaseWindow
End Sub
hf.farhadi
جمعه 16 تیر 1391, 22:19 عصر
آقای امیری ممنون از زحمتتون

بعد از کپی کردن در ماژول برای فراخوانی اون در کدام آبجکت و چطوری باید استفاده کنیم . ممنون
Abbas Amiri
جمعه 16 تیر 1391, 22:42 عصر
چنانچه بخواهید تمام جداول را مخفی کنید از کدهای زیر استفاده کنید


Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
TableVisibility tdf.Name, False
Next
hf.farhadi
شنبه 17 تیر 1391, 14:01 عصر
جناب امیری عزیز نفرمودین



بعد از کپی کردن در ماژول برای فراخوانی اون در کدام آبجکت و چطوری باید استفاده کنیم . ممنون
Abbas Amiri
شنبه 17 تیر 1391, 19:15 عصر
برای شما هم باید شرح داد !
مثلا در روال کلیک یک باتن به اسم HideAllTables کدهای پست 8 رابنویسید ویا در تابع Startup که جهت عملیات اولیه ایجاد کرده اید
Hedesh
دوشنبه 19 تیر 1391, 01:43 صبح
با سلام
آیا کدی هم هست که بتونه تمام کوئری ها را سوپر مخفی کنه؟
ضمنا آیا بدون کد نمایش جداول ، برای نمایان کردن جداول مخفی شده راه دیگری هم هست؟ مثلا اگر من جدولهام رو با این کد مخفی کنم کسی می تونه از بیرون مقدار TableVisibility را مساوی True قرار بده.
Abbas Amiri
دوشنبه 19 تیر 1391, 02:02 صبح
باسلام
متاسفانه برای کوئریها فقط بصورت معمولی اینکار انجام میشود واگر گزینه ShowHiddenObjects فعال شود بصورت سایه نمایش داده میشوند
ودر مورد دوم چنانچه فایل اکسس پسورد نداشته باشد از طریق هربرنامه ای میتوان به آن رفرنس زد و به توابع آن دسترسی پیداکرد
البته میتوان پنجره دیتابیس راپنهان کرد تا همه چیز مخفی شود . ضمن اینکه میتوان کوئریها را بصورت کد ذخیره کرد ودرجای مناسب استفاده کرد
amin13688
جمعه 16 تیر 1402, 07:57 صبح
سلام
بسیار عالی و کاربردی
خیلی دنبال این مطلب در نت بودم ولی چیزی دست گیرم نشد
ممنون