用代码将链接表的attributes属性改成1,隐藏链接表, 再生成mde文件即可 代码: Sub asdfasdfa() '隐藏 For Each tabdef In CurrentDb.TableDefs Debug.Print tabdef.Name Debug.Print tabdef.Attributes If tabdef.Attributes = 1073741824 Then tabdef.Attributes = 1 End If Next End Sub
Sub asdfasdfa1() '显示 For Each tabdef In CurrentDb.TableDefs Debug.Print tabdef.Name Debug.Print tabdef.Attributes If tabdef.Attributes = 1073741825 Then tabdef.Attributes = 0 End If Next End Sub