在记录集中记录随机记录的代码

<
移动到随机记录- Steven Jones的扩展
如果不是（记录集的名称。Bof和记录集的名称。EOF）然后
将光标重置为开始
如果（记录集name.cursortype > 0）然后
Recordset.MoveFirst的名字
其他的
记录集的名称查询。
最后如果

姓名的记录集_totalrn = - 1
记录集的_totalrn =集name.recordcount '只有工作在一些记录中记录的名称，但快得多
如果（记录集的名称_totalrn = - 1）然后，如果它不工作，我们仍然有

算总通过遍历记录集中的记录
记录集的_totalrn = 0名
而（不记录名字，EOF）
记录集的_totalrn =记录集的名字_totalrn + 1名
recordset.movenext的名字
走

将光标重置为开始
如果（记录集name.cursortype > 0）然后
Recordset.MoveFirst的名字
其他的
记录集的名称查询。
最后如果

最后如果

现在做最后的调整，移动到随机记录。
记录集的_totalrn =记录集的名称_totalrn - 1名
如果记录集的名称_totalrn > 0
随机化
记录集的名称。将Int（（（记录集的名称_totalrn + 1）* Rnd）
最后如果
最后如果
所有的事；你应该检查之前显示一个空的记录集
%>