我有一个链接表，链接到我的目录本身的.txt文件

Question

我有一个链接表，它链接到我的目录本身的.txt文件。现在我需要在Form中创建一个命令按钮，这可以帮助我在需要时使用VBA代码重新链接.txt文件。

任何人都可以帮助我。

Answer 1

你不必。无论何时打开表格，文件/数据都将“按原样”读取。

如果您想更新文本文件，只需将其替换为新文件。

Answer 2

感谢您的回复。但无论如何我需要刷新我的链接表。所以我觉得这段代码很有帮助。                                                         Private Sub Command3_Click（）

Dim b As Boolean
b = RefreshLinkedTables()                                                                        End Sub  
                                                                                                 Function RefreshLinkedTables() As Boolean
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb

For Each tb In db.TableDefs
    ' Skip system files.
    If (Mid(tb.Name, 1, 4) <> "MSys" And Mid(tb.Name, 1, 4) <> "~TMP") Then
        Debug.Print tb.Name
        Debug.Print tb.Connect
        'If (Mid(tb.Connect, 1, 5) = "ODBC;") Then

            If (tb.Name = "P60DZ30") Then
                tb.RefreshLink
                Debug.Print "Refreshing fields data"
                tb.Fields.Refresh

            End If
        'End If
        Debug.Print "=== === ==="
    End If
    db.TableDefs.Refresh
Next

Set db = Nothing

RefreshLinkedTables = True
Exit Function

结束功能