如何在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
    Set prp = tdf.CreateProperty("Description", _
        dbText, "Link")
    tdf.Properties.Append prp
End If