标题: [求助]关于朱亦文老师的链接有密码库的问题 [打印本页] 作者: 天天网上 时间: 2004-1-28 02:19 标题: [求助]关于朱亦文老师的链接有密码库的问题 [attach]3261[/attach]
使用了朱老师的源码，但是链接好后再进入时产生已经有链接表存在的错误。
该怎样判断已经链接，不再进行链接代码？作者: zhuyiwen 时间: 2004-1-28 07:06
' =========================================================
' TestRefreshLink 函数: 用于测试链接表是否正常链接, 并返回
' 测试结果
' =========================================================
Public Function TestRefreshLink(ByVal strName As String, ByRef strErr As String) As Boolean
Dim dbs As Database
Dim tdf As TableDef
On Error GoTo ErrorHandler
TestRefreshLink = False
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strName)
tdf.RefreshLink
TestRefreshLink = True
strErr = "OK!"
Exit Function
ErrorHandler:
strErr = "ERROR! " & Err.Number & ". " & Err.Description
End Function 作者: 天天网上 时间: 2004-1-28 16:35
谢谢，按照朱老师的函数已经搞定。
我是这样实现的：
if TestRefreshLink("tab基础表","OK") = False then
链接........
..........
共10几个表
else
exit sub
end if