主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ 隐藏、显示表的自定义函数
Public Function HideAllTables(Hidden As Boolean) As Boolean
On Error Resume Next
Dim tdf As Object
'循环所有表
For Each tdf In CurrentDb.TableDefs
If Not tdf.Name Like "MSys*" Then '表名称不是以Msys开头的表
If Hidden = True Then
tdf.Attributes = 1 '隐藏
Else
tdf.Attributes = 0 '显示
End If
End If
Next
End Function
