Office中国论坛/Access中国论坛

标题: 如何在数据库路径错误时，自动打开链接窗体 [打印本页]

作者: jpj123123 时间: 2008-2-17 12:34
标题: 如何在数据库路径错误时，自动打开链接窗体
各位老大：
请问如何在数据库路径错误时，自动打开链接窗体，进行数据库链接啊!谢谢!!!!!

作者: Grant 时间: 2008-2-17 14:15
佣搜索功能查找链接关键字一大堆呢

作者: jpj123123 时间: 2008-2-17 14:50
请版主说具体点好吗？我是初学者啊!谢谢!

作者: jpj123123 时间: 2008-2-17 14:58
请版主帮忙看看这段代码错在哪里？提示“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 时间: 2008-2-17 15:18
就是sql变量没有定义喽.
前面要加一个dim sql as string

作者: jpj123123 时间: 2008-2-18 14:51
谢谢老大，解决了!!

作者: rcylbx 时间: 2008-7-26 23:25
[:34] [:26] [:26]

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