Office中国论坛/Access中国论坛

标题: [求助]如何隐藏后端数据库路径 [打印本页]

作者: gdfsslec 时间: 2006-8-31 00:20
标题: [求助]如何隐藏后端数据库路径
我把数据库放在局域网上一台电脑的隐藏文件夹里，在其他电脑上用一个空的数据库链接访问（避免快捷方式显示路径）。但是当网路不通时，就会跳出窗口提示错误并显示出路径。我在论坛查了半天，有位版主建议建立一个窗体，启动时用这个窗体，然后用DIR判断，提示错误。但我试了一下，语句有误。请高手指点！

谢谢！
[attach]20083[/attach]

[此贴子已经被作者于2006-8-30 18:05:05编辑过]

作者: gdfsslec 时间: 2006-8-31 18:59
这个问题是不是很难啊？

作者: andymark 时间: 2006-8-31 19:34
try

Dim stAppName As String
Dim strFileName As String
strFileName = "\\bb\ddgl$\bm.mdb"

If Dir(strFileName, vbDirectory) = "" Then
MsgBox "网络不通"
DoCmd.Quit
Else
stAppName = "MSAccess.exe " & strFileName
Call Shell(stAppName, 1)
DoCmd.Quit acQuitSaveAll
End If

作者: gdfsslec 时间: 2006-9-1 00:52
我另外找到一个解决办法，就是用链接表的形式把两个数据库链接起来，然后加判断就可以了。

谢谢版主！

作者: tz-chf 时间: 2006-9-1 04:39
这种错误你自己捕捉就行了。

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