سلمان الشهراني قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 السلام عليكم بحثت وجدت اكواد تخفي الجداول المرتبطه ولكن ليس بشكل كلي حيثُ تظهر من خلال اظهار الكائنات المخفية وكائنات النظام فهل يوجد كود يمنع اظهارها رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر مايو 31, 2019 أفضل إجابة مشاركة قام بنشر مايو 31, 2019 هل جربت هذا الكود .... Private Sub ViewTablePage() DoCmd.SelectObject acTable, , True SendKeys "{F5}" End Sub Private Sub VisibleTable_Click() Dim db As Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing Call ViewTablePage End Sub 4 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 (معدل) وفقك الله وكثر الله خيرك ممتاز وسليم وفعلا اخفاها نهائياً ممكن كود الاظهار تم تعديل مايو 31, 2019 بواسطه سلمان الشهراني 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 تفضل .... Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If If tdf.Attributes = 1073741825 Then tdf.Attributes = 0 Next tdf Set dbs = Nothing Call ViewTablePage 4 1 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 100% تسلم ويعطيك الف عافيه رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يونيو 3, 2019 مشاركة قام بنشر يونيو 3, 2019 السلام عليكم 🙂 للعلم 🙂 جعفر 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان