[求助]如何隐藏后端数据库路径

gdfsslec

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

谢谢！

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

gdfsslec

这个问题是不是很难啊？

andymark

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

我另外找到一个解决办法，就是用链接表的形式把两个数据库链接起来，然后加判断就可以了。

谢谢版主！

tz-chf

这种错误你自己捕捉就行了。