Office中国论坛/Access中国论坛

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

作者: yelang771 时间: 2006-1-8 19:56
标题: [求助]如何去掉分割后移動前台或后端資料庫后的出錯路徑提示?
rt

作者: yelang771 时间: 2006-1-8 19:57
分割后

移動前台或后台

點前台會提示找不到XXXX路徑下文件

請問如何去掉這個提示?謝謝

作者: fan0217 时间: 2006-1-9 00:51
不要这个提示有用吗？不正常连接后台，前台可以工作吗？

如果真的不要的话，把提示的Msgbox注释就可以了。

[此贴子已经被作者于2006-1-8 18:35:15编辑过]

作者: 一点通 时间: 2006-1-9 01:06
从新链接,链接好后就不会再有这个提示了

作者: yelang771 时间: 2006-1-9 19:21

以下是引用fan0217在2006-1-8 16:51:00的发言：

不要这个提示有用吗？不正常连接后台，前台可以工作吗？

如果真的不要的话，把提示的Msgbox注释就可以了。

有用﹐不想別人看到這個路徑。。

提示的Msgbox注释?

這個提示是系統提示﹐請問如何注釋掉?謝謝。

作者: yelang771 时间: 2006-1-9 19:22

以下是引用一点通在2006-1-8 17:06:00的发言：
从新链接,链接好后就不会再有这个提示了

謝謝﹐偶要的是沒有提示才好。。[em09]

作者: yelang771 时间: 2006-1-10 00:30
如何去掉那個提示啊。。。

作者: fan0217 时间: 2006-1-10 04:10
正确链接就没有了

作者: yelang771 时间: 2006-1-10 19:01
啊。。。

我要錯誤連接的時候還沒有那個提示。。。。。。

有沒有辦法?

作者: 一点通 时间: 2006-1-10 19:11
用这个方法自动链接后台数据库吧

http://www.office-cn.net/forum.php?mod=viewthread&tid=31053&replyID=&skin=1

作者: yelang771 时间: 2006-1-10 19:44
[原创]程序一启动就自动链接后台数据库

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

'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编辑过]

作者: 一点通 时间: 2006-1-10 19:48
C:\MyFolder\Mydb.mdb是你的后台数据库名吗？不是的话改一下这句代码

作者: yelang771 时间: 2006-1-10 20:18
謝謝。。

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

作者: yelang771 时间: 2006-1-11 16:50
..

作者: 一点通 时间: 2006-1-11 17:21
加载时写入这个语句看行不行

DoCmd.SetWarnings False '关闭系统提示

作者: yelang771 时间: 2006-1-11 21:46
還不行。。。

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