求助:如何恢复mde中被DAO隐藏的表?

wmok

是用以下代码隐藏的,然后生成了MDE,现在想要这个MDE中一个表的数据,不知道如何恢复?谢谢!!!!  
  Dim tabdef As DAO.TableDef
    For Each tabdef In CurrentDb.TableDefs
                tabdef.Attributes = 1
    Next

wmok

找到了这段代码,可以正常隐藏/恢复当前库中的表,如何修改才能隐藏/恢复其它mdb和mde中的表啊?请高手帮帮忙!!!跪谢!!!!!现在数据出不来,急死我了......

Function chediyincangbiao()     '彻底隐蔽所有的表格包括链接表及系统表等

On Error GoTo Err_Command0_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 db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSACCESSXML" _
      or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
      or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then
      
    Else
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
    End If
    Next i
    Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."

Exit_Command0_Click:
    Exit Function

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Function

todaynew

找到了这段代码,可以正常隐藏/恢复当前库中的表,如何修改才能隐藏/恢复其它mdb和mde中的表啊?请高手帮帮忙!!!跪谢!!!!!现在数据出不来,急死我了......

Function chediyincangbiao()     '彻底隐蔽所有的表格包括链 ...
wmok 发表于 2009-3-12 18:32

wmok

不行的,这样设置也出不来!!!
系统表也被隐藏了....

wmok

我上传附件吧!!!!

明镜

这是mde,无法恢复的.是否传一个mdb的,请高手帮帮忙.

wmok

就只有这个MDE呀,客户的资料都在里面.....

ACMAIN_CHM

看来已经用excel搞定了。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

wmok

是的,谢谢大家!!!
得到数据就满足了....
哈哈...