الأخت زهرة تحية طيبة وبعد :
هذه أول مشاركة لي جئت وعندي مشكلة أريد لها حلا سأعرضها بعد هذه المشاركة تفضلي هذا الكود :
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