用数字 1 到 6 标记新记录，均匀分配

Question

我带来了一个需要分成 6 个列表的记录集。我正在使用字段 WrkList 来保存范围为 1-6 的列表编号。我不想手动将数字添加到每个新记录中，重复序列为 (1, 2, 3, 4, 5, 6)，因为它们被引入。WrkList 字段允许记录由6 名员工使用使用该字段作为该查询条件的查询。在任何一天，超过 1200 条记录可能会全天附加到表中，并且需要更新 WrkList 字段。我希望这些在 6 个组中尽可能均匀地分配，因为每个新的记录集都被附加。任何有关入门的帮助将不胜感激。

Answer 1

基本上，您将在 DAO 中打开一个记录集，其中包括所有 WrkList 为 Null 的记录。您将按照他们进入的顺序或其他一些逻辑标准对其进行排序 - 任何有助于您的工作人员有一个连贯的工作队列的东西（可能根本没有顺序）。

您将从头到尾浏览记录集并使用变量byteWrkList 更新WrkList 字段。

这个变量的值会随着每次编辑而改变。它将递增 1，或者如果上次编辑时为 6，它将返回到 1。

注意：此代码未指定您已过滤为 Null！ OpenRecordset 必须基于过滤 Null 的查询！ （或者它必须基于执行相同操作的 SQL 字符串。）

Option Compare Database
Option Explicit

Private Sub AllocateTasks()
    Public byteMax As Byte, byteWrkList as Byte
    byteMax = 6
    byteWrkList = 1

    Dim rstTask As Recordset
    Set rstTask = CurrentDb.OpenRecordset("tableOfTasks")

    Do Until rstTask.EOF 
        if byteWrkList > byteMax then
            byteWrkList = 1
        else
            byteWrkList = byteWrkList + 1
        end if

        rstTask.Edit

        ' Make sure you are not over-writing an existing value!
        ' Make sure it is NULL, or that your recordset excluded NULLs.
        rstTask!WrkList = byteWrkList
        rstTask.Update

        rstTask.MoveNext

    Loop

    rstTask.Close
    Set rstTask = Nothing

End Sub

那么你只需要一种调用（触发）上述代码的方法......但你的帖子并没有足够的信息来暗示那是什么。

有其他（和优雅的）方法来获取byteWrkList，例如使用应用于自动编号索引的mod() 函数。 （这并不重要。我不得不把它从我的胸口拿走，因为mod() 很有趣。）确实，有其他方法可以完全处理这个问题；但这是我要开始的。