[求助]如何去掉 分割 后 移動 前台或 后端資料庫 后的出錯路徑提示?

yelang771

[原创]程序一启动就自动链接后台数据库



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'2005-08-18   中俄双雄演义日


'By 狠狠活


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Public Sub LinkTables(strDatabase As String)
Dim dbs As Database
Dim tdf As TableDef
Dim intI As Integer
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(0)
For intI = 0 To dbs.TableDefs.Count - 1
    Set tdf = dbs.TableDefs(intI)
    If Len(tdf.Connect) > 0 Then
        tdf.Connect = ";DATABASE=" & strDatabase
        tdf.RefreshLink
    End If
Next intI
End Sub
'调用方法：


Call LinkTables("C:\MyFolder\Mydb.mdb")

--------------------------------------------

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''




'2005-08-18   中俄双雄演义日



'By 狠狠活



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Public Sub LinkTables(strDatabase As String)
Dim dbs As Database
Dim tdf As TableDef
Dim intI As Integer
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(0)
For intI = 0 To dbs.TableDefs.Count - 1
    Set tdf = dbs.TableDefs(intI)
    If Len(tdf.Connect) > 0 Then
        tdf.Connect = ";DATABASE=" & strDatabase
        tdf.RefreshLink
    End If
Next intI
End Sub
'调用方法：



Call LinkTables("C:\MyFolder\Mydb.mdb")

----------------------------------------------------------------------------------------

謝謝﹐還會有提示的。。。。。。C:\MyFolder\Mydb.mdb錯誤路徑。。。。

沒有達到我想要的效果。。。

有別的方法嗎?

好象注釋dll可以嗎?不過不知道控制這個錯誤提示的是哪個dll.

----------------------------------------

[此贴子已经被作者于2006-1-10 12:16:12编辑过]

一点通

C:\MyFolder\Mydb.mdb是你的后台数据库名吗？不是的话改一下这句代码

yelang771

謝謝。。

偶要路徑不對了﹐也沒有那個提示。

yelang771

..

一点通

加载时写入这个语句看行不行

DoCmd.SetWarnings False '关闭系统提示

yelang771

還不行。。。