如何在MS Access中按轮询方式将记录分配给选定用户

方法一：纯SQL实现（适合Access环境） #

这种方法无需编写代码，通过临时行号字段结合模运算完成轮询分配，能避免记录冗余问题。

操作步骤： #

1. 给主表添加一个临时长整型字段，命名为RowNum（用于标记每条记录的顺序）。
2. 执行以下SQL生成连续行号（需将主键字段替换为主表实际的唯一主键，比如ID）：

UPDATE 主表
SET RowNum = (SELECT COUNT(*) FROM 主表 AS T WHERE T.主键字段 <= 主表.主键字段);

3. 执行更新查询，通过模运算匹配轮询的用户：

WITH RankedUsers AS (
    SELECT UserName, 
           (SELECT COUNT(*) FROM [Selected Users] AS U WHERE U.UserName <= [Selected Users].UserName) AS UserRank
    FROM [Selected Users]
)
UPDATE 主表
INNER JOIN RankedUsers ON (主表.RowNum - 1) MOD (SELECT COUNT(*) FROM [Selected Users]) + 1 = RankedUsers.UserRank
SET 主表.User = RankedUsers.UserName;

4. 分配完成后，删除临时字段：

ALTER TABLE 主表 DROP COLUMN RowNum;

方法二：VBA代码实现 #

如果SQL逻辑不好理解，用VBA循环逐条分配更直观，还能灵活控制只处理空记录。

代码示例： #

Sub 轮询分配用户()
    Dim db As DAO.Database
    Dim rsMain As DAO.Recordset
    Dim rsUsers As DAO.Recordset
    Dim userArr() As String
    Dim i As Integer
    Dim userIndex As Integer
    
    Set db = CurrentDb()
    ' 读取选定用户列表到数组
    Set rsUsers = db.OpenRecordset("SELECT UserName FROM [Selected Users]")
    If Not rsUsers.EOF Then
        rsUsers.MoveLast
        rsUsers.MoveFirst
        ReDim userArr(0 To rsUsers.RecordCount - 1)
        i = 0
        Do While Not rsUsers.EOF
            userArr(i) = rsUsers!UserName
            i = i + 1
            rsUsers.MoveNext
        Loop
    End If
    rsUsers.Close
    
    ' 遍历主表空记录，轮询分配
    Set rsMain = db.OpenRecordset("SELECT * FROM 主表 WHERE User IS NULL")
    userIndex = 0
    Do While Not rsMain.EOF
        rsMain.Edit
        rsMain!User = userArr(userIndex)
        rsMain.Update
        ' 循环切换用户索引
        userIndex = (userIndex + 1) Mod (UBound(userArr) + 1)
        rsMain.MoveNext
    Loop
    rsMain.Close
    
    ' 释放资源
    Set rsMain = Nothing
    Set rsUsers = Nothing
    Set db = Nothing
    MsgBox "用户分配完成！"
End Sub

注意事项： #

• 替换代码中的主表、Selected Users、UserName、User为实际的表名和字段名。
• VBA需确保引用了Microsoft DAO x.x Object Library（在VBA编辑器的「工具→引用」中勾选）。
• SQL方法会覆盖主表所有User字段值，VBA方法仅处理空记录，可按需选择。

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