将数据分配给用户

Question

我有一个带有前端的 ms access 2007 数据库。用户将访问前端，他们将更新一些数据。为了简化这一过程，我们又创建了一个前端来将数据上传到数据库，这些数据将自动到达特定用户的前端。
我的问题是，例如：我将 100 个索赔编号上传到数据库，有 5 个用户处理此索赔。
在这里，我使用记录集从数据库中获取数据并像 FIFO 一样分发给用户。因此，在完成此操作之前，不允许用户处理其他进程。所以 5 个用户通常会有 1 或 2 个用户休息，直到其余用户完成工作。所以想将这 100 个 Claim 平均分配给这 5 个用户。

Private sub Form_Load() 
Dim strqry as string  
Dim rs as ADODB.Recordset  
strQry="select xyz,abc,ffg from tblImport where isworked='N'"  
set rs = currentdb.openrecordset(strqry)

if not (rs.EOF and rs.BOF) then  
me.textbox0.value=Cstr(rs!xyz)  
me.textbox1.value=Cstr(rs!abc)  
end if

End sub

我们是否有任何选项可以平均分配它？

Answer 1

这是我用来 allocate/assign 向用户清点的代码示例。这将按优先顺序将库存分配给用户。

strqry = "Select [ClaimID] from ClaimsTable"
strqry2 = "Select [UserName] from UsersTable"

rs1.Open strqry2, cn1, adOpenStatic
rs2.Open strqry, cn2, adOpenStatic

rs2.MoveFirst
Do While Not rs2.EOF

    If rs1.EOF = True Then rs1.MoveFirst

    claim = CStr(rs2![ClaimID])
    User = CStr(rs1![UserName])

    'Insert this data to any table and pull inventory for the users.   
    Debug.Print claim & "-" & User

    rs2.MoveNext
    rs1.MoveNext
Loop

将数据分配给用户

Assigning Data to the users

database

ms-access

vba

ms-access-2007