如何在数据库路径错误时，自动打开链接窗体

jpj123123

各位老大：
       请问如何在数据库路径错误时，自动打开链接窗体，进行数据库链接啊!谢谢!!!!!

Grant

佣搜索功能查找 链接 关键字一大堆呢

jpj123123

请版主说具体点好吗？我是初学者啊!谢谢!

jpj123123

请版主帮忙看看这段代码错在哪里？提示“sql =”处变量没有定义!谢谢了!!!
Private Sub OK_Click()
On Error GoTo Err_OK_Click
Dim tabDef As TableDef
If IsNull(Me.FileName) Then
   MsgBox "请打开需要链接的后台数据库文件！", vbExclamation + vbOKOnly, "提示"
Else
If MsgBox("请确认打开的后台数据库文件是否正确。" & Chr(10) & Chr(10) & "如果正确，请按“确定”。" & Chr(10) & "否则，请按“取消”后重新选择。", vbExclamation + vbOKCancel, "警告") = vbOK Then
FileName.SetFocus
For Each tabDef In CurrentDb.TableDefs
If Len(tabDef.Connect) > 0 Then
tabDef.Connect = ";DATABASE=" & Me.FileName.Text
tabDef.RefreshLink
'1111111111111111111111111111111111
Else
        sql = "update datelujin set lujin='" & Me.FileName & "'"
            DoCmd.SetWarnings False
            DoCmd.RunSQL sql
            DoCmd.SetWarnings True
End If
Next
MsgBox "后台数据库链接成功！", vbExclamation + vbOKOnly, "提示"

DoCmd.close acForm, Me.Name


End If
     
End If

Exit_OK_Click:
    Exit Sub

Err_OK_Click:
    MsgBox "选择的后台数据库错误！" & Chr(10) & Chr(10) & "请重新选择要链接的后台数据库！", vbExclamation + vbOKOnly, "警告"
    Resume Exit_OK_Click
   

End Sub

haemon

就是sql变量没有定义喽.
前面要加一个dim sql as string

jpj123123

谢谢老大，解决 了!!

rcylbx

[:34] [:26] [:26]