在MS Access中构建用户访问矩阵，实现数据可见性与用户关注管控

嘿，我来帮你搞定这个MS Access的用户数据可见性和关注设置问题！你一开始想在用户表加列的思路其实不太灵活——要是以后用户多了，列会越来越多，维护起来简直头疼。咱们换个更专业的做法，用**关联表（Junction Table）**来处理用户关注关系，扩展性和维护性都强得多。下面是一步步的实现方案：

先把你的用户表（假设叫Users）保留原有字段（比如UserID、UserName这些基础信息），然后新建一张专门存关注关系的表，命名为User_Following，字段设置如下：

• FollowerID：数字型，关联Users.UserID（关注者的ID）
• FollowedUserID：数字型，关联Users.UserID（被关注者的ID）
• 把FollowerID和FollowedUserID设为复合主键，这样就能避免同一个用户重复关注另一个用户的情况。

这个表单要实现：输入/选择用户名后，显示所有用户的复选框列表，勾选即可设置关注。

1. 表单基础设置 #

• 创建一个新表单，命名为frm_SetFollowings
• 添加一个下拉框（比文本框更不容易输错），命名为cbo_SelectedUser，行来源设为SELECT UserID, UserName FROM Users ORDER BY UserName，绑定列设为1（存UserID），列数设为2，列宽设为"0cm;5cm"（隐藏ID列，只显示用户名）。

2. 显示带复选框的用户列表 #

• 在表单里添加一个连续子表单，命名为sub_FollowingList
• 子表单的行来源用这个查询（把[Forms]![frm_SetFollowings]![cbo_SelectedUser]换成你主表单的控件名）：

SELECT 
    u.UserID,
    u.UserName,
    IIF(uf.FollowerID IS NOT NULL, True, False) AS IsFollowing
FROM 
    Users u
LEFT JOIN 
    User_Following uf ON u.UserID = uf.FollowedUserID AND uf.FollowerID = [Forms]![frm_SetFollowings]![cbo_SelectedUser]
ORDER BY 
    u.UserName;

• 在子表单里添加：
  • 文本框绑定UserName，显示用户名
  • 复选框绑定IsFollowing，命名为chk_IsFollowing

3. 保存关注设置（写VBA代码） #

因为复选框绑定的是查询的计算字段，没法直接保存，所以要写代码处理勾选/取消的动作：

• 打开表单的VBA编辑器，在子表单的chk_IsFollowing的AfterUpdate事件里写：

Private Sub chk_IsFollowing_AfterUpdate()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim followerID As Long
    Dim followedID As Long
    
    Set db = CurrentDb()
    followerID = Forms!frm_SetFollowings!cbo_SelectedUser.Value
    followedID = Me.UserID.Value
    
    ' 如果勾选，插入记录；取消则删除记录
    If Me.chk_IsFollowing.Value = True Then
        ' 先检查是否已存在，避免主键冲突
        Set rs = db.OpenRecordset("SELECT * FROM User_Following WHERE FollowerID = " & followerID & " AND FollowedUserID = " & followedID)
        If rs.EOF Then
            rs.AddNew
            rs!FollowerID = followerID
            rs!FollowedUserID = followedID
            rs.Update
        End If
        rs.Close
    Else
        db.Execute "DELETE FROM User_Following WHERE FollowerID = " & followerID & " AND FollowedUserID = " & followedID
    End If
    
    ' 刷新子表单，确保状态显示正确
    Me.Requery
    Set rs = Nothing
    Set db = Nothing
End Sub

• 另外，在主表单的cbo_SelectedUser的AfterUpdate事件里加一句Me.sub_FollowingList.Requery，切换用户时自动刷新列表。

现在要让用户只能看到自己和关注的用户的内容，只需要在查询数据的时候加过滤条件就行。比如你有一张业务表BusinessData，里面有OwnerUserID字段表示数据所属用户，那查询可以这么写：

SELECT * FROM BusinessData
WHERE 
    OwnerUserID = [CurrentUserID]  -- 替换成获取当前登录用户ID的方式，比如用表单控件或者全局变量
    OR OwnerUserID IN (
        SELECT FollowedUserID FROM User_Following WHERE FollowerID = [CurrentUserID]
    )

如果是在表单里过滤，直接把这个查询设为表单的行来源就行。

• 最好用用户ID而不是用户名来关联，因为用户名可能会改，ID是唯一不变的
• 如果想限制用户只能设置自己的关注，在主表单加载时可以自动把cbo_SelectedUser设为当前登录用户，并且禁用这个控件，避免用户修改
• 可以在子表单里加个“全选”“取消全选”的按钮，提升操作体验，代码就是遍历子表单的所有复选框设置状态

内容的提问来源于stack exchange，提问作者F1racer