زهرة النرجس قام بنشر مارس 16, 2009 مشاركة قام بنشر مارس 16, 2009 اخواني الاعزاء لدي قاعدة بيانات وارغب في اخفاء الجدوال عن طريق كود حتى لا يتم التلاعب بها ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابو ياسر قام بنشر مارس 17, 2009 مشاركة قام بنشر مارس 17, 2009 الأخت زهرة تحية طيبة وبعد : هذه أول مشاركة لي جئت وعندي مشكلة أريد لها حلا سأعرضها بعد هذه المشاركة تفضلي هذا الكود : Private Sub إخفاء_مع_عدم_إظهارها_بالخيارات_Click() Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next Set tbl = Nothing db.Close Set db = Nothing End Sub Next tdf Set dbs = Nothing End Sub رابط هذا التعليق شارك More sharing options...
m_orouk قام بنشر مارس 17, 2009 مشاركة قام بنشر مارس 17, 2009 و اين يتم وضع هذا الكود رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر مايو 10, 2014 مشاركة قام بنشر مايو 10, 2014 يُنقل ............ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.