附   件：

点击下载此附件

演示图：

创建关系：

删除关系：

源   码：

'创建一对多的关系
Private Sub cmd_建关系_Click()
On Error GoTo 出错
    Dim db As DAO.Database
    Dim fld As DAO.Field
    Dim rl As DAO.Relation
    '在当前数据库中创建关系
    Set db = CurrentDb
    Set rl = db.CreateRelation
        '设置关系的名称
        rl.Name = "工资信息"
        '设置一对多关系的一端数据表
        rl.Table = "T_员工资料"
        '设置一对多关系的多端
        rl.ForeignTable = "T_员工工资"
        '设置一端的关联字段
        Set fld = rl.CreateField("员工编号")
        '设置多端的关联字段
        fld.ForeignName = "员工编号"
        '将关联字段保存至关系的字段对象集合中
        rl.Fields.Append fld
    '将关系保存至数据库的关系对象集合中
    db.Relations.Append rl
    Set fld = Nothing
    Set rl = Nothing
    db.Close: Set db = Nothing
    MsgBox "已经创建“工资信息”关系！"
    Exit Sub
出错:
    MsgBox Err.Description, , "您出错了！"
End Sub
'删除关系
Private Sub cmd_删关系_Click()
On Error GoTo 出错
    Dim db As DAO.Database
    Set db = CurrentDb
    '删除“工资信息”关系
    db.Relations.Delete "工资信息"
    MsgBox "已经删除“工资信息”关系！"
    Exit Sub
出错:
    MsgBox Err.Description, , "您出错了！"
End Sub