为什么导入数据后数据库窗口都出来了？

这是我的小号

明明在启动里已经禁止了数据库窗口，为什么导入数据后左侧的表、查询什么的都显示出来了呢？（如图所示）
在2003版本里倒没有这个问题，而2010就有。大家有木有解决办法呀？（禁用shift键也无效，不知道会不会跟里面写的菜单权限代码有关……求解啊！）

1. Function GetMenu(ByVal UserName As String)
   
2. '初始化
   
3. Dim cmdCtr As CommandBarControl
   
4. 
   
5. CommandBars("menu").Controls(1).Enabled = False
   
6. CommandBars("menu").Controls(2).Enabled = False
   
7. CommandBars("menu").Controls(3).Enabled = False
   
8. CommandBars("menu").Controls(4).Enabled = False
   
9.    
   
10. If UserName = "采购部" Then
    
11.     CommandBars("menu").Controls(1).Enabled = True
    
12.     CommandBars("menu").Controls(3).Enabled = True
    
13.     CommandBars("menu").Controls(4).Enabled = True
    
14. Else
    
15.     CommandBars("menu").Controls(2).Enabled = True
    
16.     CommandBars("menu").Controls(3).Enabled = True
    
17.     CommandBars("menu").Controls(4).Enabled = True
    
18. End If
    
19. End Function

复制代码

tmtony

要看你导入是使用什么代码才知道

这是我的小号

tmtony 发表于 2015-1-15 15:45
要看你导入是使用什么代码才知道

导入时，其实我只是重新链接表而已：

1. Function Relink(ByVal strTblName As String)
   
2. 
   
3. Dim strPath As String
   
4. On Error Resume Next
   
5. strPath = GetFileName(False)
   
6. If Len(strPath) > 0 Then
   
7.     DoCmd.SetWarnings False
   
8.     DoCmd.DeleteObject acTable, strTblName
   
9.     DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, strTblName, strPath, True
   
10. End If
    
11. End Function

复制代码

这是我的小号

有办法解决吗，站长？{:soso_e118:}

盗梦

这是我的小号 发表于 2015-1-15 16:00
导入时，其实我只是重新链接表而已：

TransferSpreadsheet 会导致数据窗口出来。你可以用ADO读取Excel文件。或者打开Excel对象读取数据

tmtony

DoCmd.TransferSpreadsheet  高版本有这个问题
我们是使用ADO方式 你可搜索一个论坛

zpy2

在设置〉隐藏导航