刷新所有链接表

时　间:2013-02-23 17:22:13
作　者:Big Young   ID：252  城市：襄阳
摘　要:刷新所有链接表。
正　文:

刷新所有链接表:
Public Sub LinkTableReflash()
    Dim dbs As DAO.Database
    Set dbs = CurrentDb
    Dim tdf As DAO.TableDef
    Dim NewDb As String
    Dim strPassword As String
    strPassword = "123456"
    NewDb = "C:\Users\HP4421S\Documents\罗斯文_be.accdb"
    For Each tdf In CurrentDb.TableDefs
'        If tdf.Attributes = dbAttachedTable Then
'            DoCmd.DeleteObject acTable, tdf.Name
'        End If
        If tdf.Attributes = dbAttachedTable Then
            dbs.TableDefs(tdf.Name).Connect = "MS Access;PWD=" & strPassword & ";" & "DATABASE=" & NewDb
            dbs.TableDefs(tdf.Name).RefreshLink         ' Relink the table.
        End If
    Next tdf
End Sub


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店