用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條評論