Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› DAOADOADP链接表DBMS › 查看内容

刷新链接表的函数

1970-1-1 08:00| 发布者: harsonliao| 查看: 1982| 评论: 0

Function RefreshLinks(strFileName As String) As Boolean
On Error GoTo Exit_ERR

Dim tdf As TableDef
RefreshLinks = False
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
    tdf.Connect = ";DATABASE=" & strFileName & ""
    tdf.RefreshLink
End If
Next tdf
RefreshLinks = True
Exit Function
Exit_ERR:
Select Case Err
Case 3011
   MsgBox "指定数据库中没有所需数据.....", vbExclamation
Case 3031
   MsgBox "指定数据库需要输入密码.....", vbExclamation

End Select
Exit Function
End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

刷新链接表的函数

最新评论

相关分类