Question

我有一个包含2个字段的表格：学校名称；学生卡。
我想随机显示每个学校预定数量的学生证。
例如，来自学校A的2个随机学生ID； B学校提供3个随机的学生ID。
我还想让查询知道基于另一个查询或表（学校A：2条记录；学校B：3条记录；学校C：1条记录等）生成多少个随机记录（学生ID）。）

最终，这些内容将显示在报告中。每个学校名称1页，在学校名称下方随机选择学生ID。

到目前为止，我只能随机生成学生ID，但无法告诉查询为每所学校生成学生ID。

下面的两个链接显示了原始表的示例，以及我希望报表的外观。

表格：https://drive.google.com/open?id=1luFuH9zha92qUhvx5kxpJinyiGYCn9fQ
报告：https://drive.google.com/open?id=1ZHwQkOqHy2xJ2mbbphCG-4xwuiOeLh72

任何帮助将不胜感激！

谢谢！

Answer 1

如果要为每个学校生成随机的学生ID，请使用带有循环的记录集。这是一个解决方法（请注意：该代码未经测试）：

Dim rs as Recordset
'Select all school names
set rs = CurrentDb.OpenRecordset("SELECT SchoolName FROM SchoolTable") 

rs.MoveFirst

'Loop through all school names
Do While Not rs.EOF 

  'Execute your student ID randomly for the actual school name in the loop or do other stuff
  CurrentDb.Execute "YourQueryNameWhichYouAlreadyHave"
  rs.MoveNext

Loop

如何为字段的每个唯一值生成随机记录？

1 个答案: