关系消失 - MS Access 2016

在MS Access 2016中，如果关系消失了，可以通过重新创建关系来解决。以下是一个包含代码示例的解决方法：

Sub CreateRelationship()
    Dim db As DAO.Database
    Dim rel As DAO.Relation
    Dim fld As DAO.Field
    
    ' 获取当前数据库对象
    Set db = CurrentDb
    
    ' 创建新的关系对象
    Set rel = db.CreateRelation("关系的名称")
    
    ' 设置关系的属性
    With rel
        ' 设置关系的表名
        .Table = "主表名称"
        
        ' 设置关系的外键字段
        Set fld = .CreateField("主表外键字段")
        .Fields.Append fld
        
        ' 设置关系的引用表名
        .ForeignTable = "引用表名称"
        
        ' 设置关系的引用字段
        Set fld = .CreateField("引用表字段")
        .Fields.Append fld
    End With
    
    ' 将关系添加到数据库中
    db.Relations.Append rel
    
    ' 更新数据库中的关系
    db.Relations.Refresh
    
    ' 释放对象资源
    Set fld = Nothing
    Set rel = Nothing
    Set db = Nothing
End Sub

你可以根据具体情况修改代码中的表名、字段名和关系的名称。运行此代码可以创建一个新的关系，并将其添加到数据库中。