如何使用另一个表中的随机记录更新表

Question

我正在尝试从Query（trackList）中检索随机记录，并使用MS Access中的VBA使用该记录更新表（setList）。我已经从记录集中分配了整数值，当我运行调试时，一切都正常运行。当我从批处理文件中调用它时，它继续以字母数字顺序检索记录。有没有更好的方法来实现这一目标？

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("_Sun00Q")

strName = rst.Fields("PLNames")
strSetName = rst.Fields("SetName")

Set rst2 = dbs.OpenRecordset(strName & "_trackList_RndOrd")
intPLNid = rst2.Fields("PLNid")
intId = rst2.Fields("id")

SQL = "UPDATE " & strSetName & " SET id=" & intId & " WHERE PLNid=" & intPLNid

DoCmd.RunSQL SQL

Answer 1

您可以将第一个表作为记录集打开，生成random integer，然后将记录集的AbsolutePosition移动到该随机整数。这应该让你到记录集中的随机点。然后将该记录添加到第二个表中。