ผมได้ลองอ่านบทความของอาจารย์ที่แนะนำการ Hidden table ที่ถูก link มานั้น แต่นำโค๊ดที่แนะนำไว้มาลองใช้ยังไม่สามารถทำได้ อยากขอให้อาจาร์ยแนะนำวิธีให้หน่อยครับ สมมุติ Table ที่ถูก Link ชื่อว่า Money ครับ ขอบคุณมากครับ

Dim db As DAO.Database
Dim T As DAO.TableDef
Dim TType As String
Dim TName As String
Dim Attrib As String
Dim I As Integer
Set db = CurrentDb()
For I = 0 To db.TableDefs.Count - 1
Set T = db.TableDefs(I)
TName = T.Name
Attrib = (T.Attributes And dbHiddenObject)
'MsgBox TName & IIf(Attrib, ": Hidden Table", ": Not Hidden" & _
'"Table1")
Next I