Office中国论坛/Access中国论坛

标题: 请教啊 [打印本页]

作者: 188166764 时间: 2006-10-21 16:59
标题: 请教啊
在论坛中我下了一个源程序,用于链接拆分数据库的,就是能打开"浏览对话框"查找数据库的那种,如何在输入错误路径时能出现自制的对话框?本来出现的是"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

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