在MDB里运行如下代码试试看。
Function SHOW()
On Error GoTo Err_Command1_Click
Dim db As Database
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
If Mid(db.TableDefs(i).Name, 1, 4) <> "MSYS" Then
CurrentDb.TableDefs(db.TableDefs(i).Name).Attributes = 0
End If
Next i
db.QueryDefs.Refresh
For i = 0 To db.QueryDefs.Count - 1
If Mid(db.QueryDefs(i).Name, 1, 3) <> "~sq" Then
Application.SetHiddenAttribute acQuery, db.QueryDefs(i).Name, 0
End If
Next i
Set db = Nothing Exit_Command1_Click:
Exit Function
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Function
