用VBA代碼建立表間字段的關系

Sub CreateRelationX()

Dim relNew As關系

With currentdb
set relnew =。createrelation ("Table 2，Table 1ID number"，" Table 2"，" Table 1"，dbrelationenforce dbrelationUnique)' dbrelationUnique)表示一對一
rel new . fields . append rel new . create field(" ID")
rel new . fields！身份証。ForeignName ="number"
。關系。追加relnew
。以...結尾

末耑接頭

位律師廻複