قد يكون تم اخفاؤه
جرب هذا الكود اجعله في حدث زر أمر ( لاظهار الجداول المخفية )
Dim wrkSpace As Workspace
Dim tdf As TableDef
Dim dbs As Database
Set wrkSpace = DBEngine.Workspaces(0)
Set dbs = wrkSpace.OpenDatabase(txtDbName)
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 _
And tdf.Attributes = 1 Then
tdf.Attributes = tdf.Attributes - dbHiddenObject
End If
Next tdf
Set dbs = Nothing