用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
。以...结尾
末端接头
位律师回复
0条评论