用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
。以...结尾

末端接头