请教啊

188166764

在论坛中我下了一个源程序,用于链接拆分数据库的,就是能打开"浏览对话框"查找数据库的那种,如何在输入错误路径时能出现自制的对话框?本来出现的是"3024错误"

Private Sub OK_Click()
Dim tabDef As TableDef
FileName.SetFocus
For Each tabDef In CurrentDb.TableDefs
If Len(tabDef.Connect) > 0 Then
tabDef.Connect = ";DATABASE=" & Me.FileName.Text                          '& "WD=" + 后台数据库密码
tabDef.RefreshLink
End If
Next
MsgBox "数据库连接成功！"

DoCmd.Close acForm, Me.Name
End Sub