设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 2106|回复: 15
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
1#
发表于 2006-1-8 19:56:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
rt
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
16#
 楼主| 发表于 2006-1-11 21:46:00 | 只看该作者
還不行。。。
15#
发表于 2006-1-11 17:21:00 | 只看该作者
加载时写入这个语句看行不行

DoCmd.SetWarnings False '关闭系统提示
14#
 楼主| 发表于 2006-1-11 16:50:00 | 只看该作者
..
13#
 楼主| 发表于 2006-1-10 20:18:00 | 只看该作者
謝謝。。

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

12#
发表于 2006-1-10 19:48:00 | 只看该作者
C:\MyFolder\Mydb.mdb是你的后台数据库名吗?不是的话改一下这句代码
11#
 楼主| 发表于 2006-1-10 19:44:00 | 只看该作者
[原创]程序一启动就自动链接后台数据库



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


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

10#
发表于 2006-1-10 19:11:00 | 只看该作者
9#
 楼主| 发表于 2006-1-10 19:01:00 | 只看该作者
啊。。。

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

有沒有辦法?
8#
发表于 2006-1-10 04:10:00 | 只看该作者
正确链接就没有了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-3 03:30 , Processed in 0.094197 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表