未解决，请各位对表隐藏后的矛盾问题支支招

sbsfhgl

以下借用别人的代码：
Private Sub Form_Load()
Dim tbl As DAO.TableDef
If CurrentDb.Properties("StartupShowDBWindow") = False Then
Set tbl = CurrentDb.CreateTableDef("")
tbl.C & Left(date, 4) & ";DATABASE=MYDALI"
tbl.Attributes = dbAttachSavePWD
tbl.Name = "AAA"
tbl.SourceTableName = "AAA"
CurrentDataBase.TableDefs.Append tbl
CurrentDataBase.TableDefs.Delete "AAA"
End If
End Sub
如果我将启动中“显示数据库窗口”勾去掉，则代码提示找不到对象表。如果我把勾打上，进入系统后就看得到表，真矛盾，请问怎么改？

[ 本帖最后由 sbsfhgl 于 2007-12-27 14:12 编辑 ]

andymark

试试下面的代码

1. 
   
2. Dim tabDef As TableDef
   
3. Dim qryDef As QueryDef
   
4. Set tabDef = New TableDef
   
5. Dim strFileName As String
   
6. 
   
7. Set dbs = CurrentDb
   
8. For Each tabDef In dbs.TableDefs
   
9. If tabDef.Name <> "pig_label" And tabDef.Name <> "lot" And tabDef.Name <> "mb_iso" And tabDef.Name <> "label" And tabDef.Name <> "z1_label" And tabDef.Name <> "system_label" And tabDef.Name <> "comm" And tabDef.Name <> "dow_1" And tabDef.Name <> "sanxin_label" And tabDef.Name <> "nhh" And tabDef.Name <> "sh" And tabDef.Name <> "weisu" And tabDef.Name <> "com(月份)" And tabDef.Name <> "com(total)" And tabDef.Name <> "com_MB(月份)" And tabDef.Name <> "com_mb(total)" Then ' dbHiddenObject '0,4
   
10. 
    
11. tabDef.Attributes = 1
    
12. End If
    
13. 
    
14. Next
    
15. 
    
16. For Each qryDef In CurrentDb.QueryDefs
    
17. If Left(qryDef.Name, 1) <> "~" Then
    
18. Application.SetHiddenAttribute acQuery, qryDef.Name, False
    
19. End If
    
20. Next
    
21. MsgBox "成功地隱藏了該資料庫的所有表"
    

复制代码

sbsfhgl

上面代码能成功的将数据表隐藏，但不能隐藏数据库窗口，如果要进一步隐藏数据库窗口还应怎么做叱？

goto2008

学习

andymark

看来是误解题意了, 可参考下面的例子
http://www.office-cn.net/forum.php?mod=viewthread&tid=43195

sbsfhgl

不对呀，要隐藏数据库窗口必须把启动中“显示数据库窗口”勾去掉才行呀。

sbsfhgl

。。。。。。。。。。。。。。。。

gdfsslec

楼主隐藏的目的是什么？这样隐藏有什么效果呢？

sbsfhgl

就是只有窗体了呀，因为其它东东在，一不好看，二容量让人把表里的数据改了，因为我设了权限的

t小宝

原帖由 sbsfhgl 于 2007-12-26 17:30 发表
以下借用别人的代码：
Private Sub Form_Load()
Dim tbl As DAO.TableDef
If CurrentDb.Properties("StartupShowDBWindow") = False Then
Set tbl = CurrentDb.CreateTableDef("")
tbl.C & Left(date, 4) & ";D ...

这里的代码并不完整,是哪里出错?