如何在VBA中添加/修改LinkTable的'Description'屬性值？

Question

我有一個LinkTable指向我的Access數據庫中的一個現有的SQL服務器表。 我需要更改該錶鏈接的'描述'屬性值。

我曾嘗試過很多方法，但未能做到這一點。

任何人都可以在這方面幫助我嗎？

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