关于隐藏表和查询问题

qdjqx

请教，怎样使用VB代码实现隐藏MDB文件中的表和查询，生成MDE文件后，无法查看到隐藏的表和查询，谢谢！

goto2008

学习一下这个安全问题

rjacky

楼上的，拜托你不要对几年前的旧贴进行这种没意义回复的疯狂挖坟行为，好不？

maple99

使用安全工作组来设置

kennylee

放在模块,在窗体设按钮

Private Sub Command0_Click()

call 显隐当前DB表(true)'隐藏

End Sub

qdjqx

请问，kennylee,这段代码放在哪使用。谢谢。

kennylee

Public Sub 显隐当前DB表(tof As Boolean) '显示/隐藏当前数据库的表或查询(true隐藏\false显示)
Dim dbs As Database
Set dbs = CurrentDb
Dim tf As TableDef
Dim qf As QueryDef

For Each tf In dbs.TableDefs
If Left(tf.Name, 2) <> "ms" And Left(tf.Name, 1) <> "～" Then
Application.SetHiddenAttribute acTable, tf.Name, tof
End If
Next

For Each qf In dbs.QueryDefs
If Left(qf.Name, 1) <> "～" Then
Application.SetHiddenAttribute acQuery, qf.Name, tof
End If
Next
End Sub

fan0217

用Application 对象的SetHiddenAttribute 方法

SetHiddenAttribute 方法

参阅应用于[url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthSetHiddenAttribute.htm#example]示例[/url]特性

SetHiddenAttribute 方法用于设置 Access 对象的隐藏属性。

expression.SetHiddenAttribute(ObjectType, ObjectName, fHidden)

expression      必需。返回 Application 对象的表达式。

ObjectType   必需 [url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthSetHiddenAttribute.htm#]AcObjectType[/url]。必须为 ObjectType 参数输入一个常量；acDefault 不是有效的输入项。











AcObjectType 可以是下列 AcObjectType 常量之一：



acDataAccessPage



acDefault



acDiagram



acForm



acFunction



acMacro



acModule



acQuery



acReport



acServerView



acStoredProcedure



acTable

ObjectName     String 型，必需。[url=mkMSITStore:E:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthSetHiddenAttribute.htm#]字符串表达式[/url]，标识 Access 对象的名称。

fHidden     Boolean 型，必需。值为 True 会设置隐藏属性，值为 False 则会清除隐藏属性。

说明

GetHiddenAttribute 和 SetHiddenAttribute 方法一起使用时，可提供一种通过 Visual Basic 代码改变对象隐藏属性的方法。使用这两个方法，可以设置或读取对象的“属性”对话框中可用的隐藏选项。

若要使用 SetHiddenAttribute 方法来设置该选项，可将参数设为 True 或 False，如下例所示。

1. Application.[b]SetHiddenAttribute[/b] acTable,"Customers", True

复制代码

一点通

[转贴]

在表的名字前加



~TMPCLP



可以隐藏这个表，用查看系统或隐藏对象也无法看到，但可以在MSysObjects这个表中查得。



在关闭数据库或压缩数据库后，该表不会消失。



另外手工删除表时，系统也会自动命名这个为 ~TMPCLPXXXXXX，不过和手工改表名称不同，被删除的表在MSysObjects的　Flags 字段值为4097，在关闭数据库或压缩数据库后，该表将消失

qdjqx

请问，可以举一个例子吗，多谢！