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

Question

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

我尝试了很多方法但都没有成功。

任何人都可以在这方面帮助我吗？

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 'property not found
    Set prp = tdf.CreateProperty("Description", dbText, "Link")
    tdf.Properties.Append prp
End If