訪問VBA - 追加一個屬性到多個字段？

Question

我想一個字段屬性附加到多個新創建的領域，像這樣：

Set Robo0 = RoboCallDB.CreateProperty("Format", dbText, "0") 
    With RoboCallDB.TableDefs(sTableName) 
    .Fields("Account").Properties.Append Robo0 
    .Fields("ServAddrPhone").Properties.Append Robo0 
    .Fields("CustWorkPhone").Properties.Append Robo0 
    .Fields("SpouseWorkPhone").Properties.Append Robo0 
End With 

但代碼停在第一個追加後，給我運行時錯誤3367.（「無法追加。具有該名稱的對象已經存在集合中「）

我最終會做這樣的：

RoboCallDB.TableDefs(sTableName).Fields("Account").Properties.Append & _ 
    RoboCallDB.CreateProperty("Format", dbText, "0") 
RoboCallDB.TableDefs(sTableName).Fields("ServAddrPhone").Properties.Append & _ 
    RoboCallDB.CreateProperty("Format", dbText, "0") 
RoboCallDB.TableDefs(sTableName).Fields("CustWorkPhone").Properties.Append & _ 
    RoboCallDB.CreateProperty("Format", dbText, "0") 
RoboCallDB.TableDefs(sTableName).Fields("SpouseWorkPhone").Properties.Append & _ 
    RoboCallDB.CreateProperty("Format", dbText, "0") 

會有人能夠解釋爲什麼第一個片段無法正常工作，以及是否有比使用秒更優雅的方式ond片段？提前致謝！

Answer 1

我認爲在第一個版本中，您正在嘗試將相同的屬性實例添加到幾個字段中，這是不可能的。
在第二個代碼示例中，您將爲每個字段添加一個新實例。
換句話說，您爲每個字段創建一個屬性，而不是嘗試將同一個屬性分配給多個字段。