设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1892|回复: 6
打印 上一主题 下一主题

[其它] access链接表问题

[复制链接]
跳转到指定楼层
1#
发表于 2006-9-4 23:48:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问,access链接表是绝对路径,请问怎么才能设置成相对路径,有什么好办法吗?我不想下发的表格还规定使用者的存放位置
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-9-4 23:57:00 | 只看该作者
请用"相对路径"关键字搜索一下旧贴
3#
 楼主| 发表于 2006-9-5 00:07:00 | 只看该作者
大哥说具体点好不好?我不是很懂啊,你说的搜索找不到解决方法,谢谢
4#
发表于 2006-9-5 00:14:00 | 只看该作者
做一个 链接窗体。可以选择任何路径,包括局域网内各电脑的路径。
5#
 楼主| 发表于 2006-9-5 18:11:00 | 只看该作者
有能在具体点吗?[em06][em06]
6#
发表于 2006-9-5 20:26:00 | 只看该作者
在打开数据库的时候,检查链接是否正确,如果不正确,通过程序检查当前路径的后台,并链接正确即可。
7#
发表于 2006-9-5 20:27:00 | 只看该作者
以下是网络上提供的一个刷新链接表的函数:

Public Function ReLink(ByVal strName As String, ByVal strPath As String, ByVal strPWD) As Boolean
    Dim dbs As Database
    Dim tdf As TableDef, i As Variant

  On Error GoTo ErrorHandler

    ReLink = False
    Set dbs = CurrentDb
   
   
    For Each i In Application.CurrentData.AllTables  '历遍的有表
    If DCount("*", "MSysObjects", "[Name]='" & i.Name & "' And [Type]=6") > 0 Then
                       '判断只有链接表才运行以下代码
      strName = i.Name
    Set tdf = dbs.TableDefs(strName)
    tdf.Connect = "WD=" & strPWD & ";database=" & strPath
    tdf.RefreshLink

    End If
    Next i
   
    ReLink = True
    Exit Function
   
ErrorHandler:    ' 错误处理程序。
   

    MsgBox "刷新失败!" & vbCr & vbCr & "失败原因 :" & vbCr & vbCr & _
        "错误代码 : " & Err.Number & vbCr & _
        "错误描述 : " & Err.Description, _
        vbCritical
End Function
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-3 03:40 , Processed in 0.118408 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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