Office中国论坛/Access中国论坛

标题: 求助:如何恢复mde中被DAO隐藏的表? [打印本页]

作者: wmok 时间: 2009-3-12 18:16
标题: 求助:如何恢复mde中被DAO隐藏的表?
是用以下代码隐藏的,然后生成了MDE,现在想要这个MDE中一个表的数据,不知道如何恢复?谢谢!!!!
  Dim tabdef As DAO.TableDef
For Each tabdef In CurrentDb.TableDefs
            tabdef.Attributes = 1
Next

作者: wmok 时间: 2009-3-12 18:32
找到了这段代码,可以正常隐藏/恢复当前库中的表,如何修改才能隐藏/恢复其它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 时间: 2009-3-12 19:38

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

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

[attach]36591[/attach]

作者: wmok 时间: 2009-3-12 20:07
不行的,这样设置也出不来!!!
系统表也被隐藏了....

作者: wmok 时间: 2009-3-12 20:19
我上传附件吧!!!![attach]36592[/attach]

作者: 明镜 时间: 2009-3-12 20:30
这是mde,无法恢复的.是否传一个mdb的,请高手帮帮忙.

作者: wmok 时间: 2009-3-12 20:36
就只有这个MDE呀,客户的资料都在里面.....

作者: ACMAIN_CHM 时间: 2009-3-12 20:52
看来已经用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 时间: 2009-3-12 22:11
是的,谢谢大家!!!
得到数据就满足了....
哈哈...

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)