اخفاء الجداول المرتبطه

[سلمان الشهراني]

السلام عليكم

بحثت وجدت اكواد تخفي الجداول المرتبطه ولكن ليس بشكل كلي
حيثُ تظهر من خلال اظهار الكائنات المخفية وكائنات النظام

فهل يوجد كود يمنع اظهارها

[kanory]

هل جربت هذا الكود ....

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

 

[سلمان الشهراني]

وفقك الله وكثر الله خيرك
ممتاز وسليم وفعلا اخفاها نهائياً

ممكن كود الاظهار

تم تعديل مايو 31, 2019 بواسطه سلمان الشهراني

[kanory]

تفضل ....

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

 

[سلمان الشهراني]

100%
تسلم ويعطيك الف عافيه

[jjafferr]

السلام عليكم 🙂

 

للعلم 🙂

 

 

جعفر