Question

我正在使用Access 2007中的数据库，一个前端和一些后端。

我喜欢将所有链接表转换为本地以进行离线工作，这样我就不会意外破坏数据。

删除所有关系和表格，然后运行已保存的导入。

我想在完成修改后重新创建链接表。问题是，Access不会保存链接表的导入。有没有办法简单地将所有表从后端链接到前端与VBA

Answer 1

我在网上找到了这个，虽然很慢

Function createAttached(strTable As String, strPath As String, strBaseTable As String) As Boolean
On Error GoTo CreateAttachedError

Dim tdf As TableDef
Dim strConnect As String
Dim fRetval As Boolean
Dim myDB As Database

    DoCmd.SetWarnings False
    Set myDB = CurrentDb
    Set tdf = myDB.CreateTableDef(strTable)

    With tdf
        .Connect = ";DATABASE=" & strPath
        .SourceTableName = strBaseTable
    End With

    myDB.TableDefs.Append tdf

    fRetval = True

    DoCmd.SetWarnings True

CreateAttachedExit:
    createAttached = fRetval
    Exit Function

CreateAttachedError:
    If Err = 3110 Then
        Resume CreateAttachedExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function

https://www.microsoftaccessexpert.com/Microsoft-Access-Code-LinkTable.aspx

使用vba创建访问中的链接表

1 个答案: