如何在VBA中添加/修改LinkTable的“Description”属性值？

Question

我有一个LinkTable，它指向我的Access数据库中现有的SQL server表。我需要更改该表链接的“Description”属性值。

我试过很多方法，但都失败了。

在这方面，有没有人可以帮我？

Answer 1

一些笔记。

Dim db As DAO.Database
Dim tdf As TableDef

Set db = CurrentDb
Set tdf = db.TableDefs("Table1")

On Error Resume Next
tdf.Properties("Description") = "Link"

If Err.Number = 3270 Then
    Set prp = tdf.CreateProperty("Description", _
        dbText, "Link")
    tdf.Properties.Append prp
End If