在Access 2016中添加带有随机数（宏或VBA）的记录

Question

对于此问题似乎没有任何解决方案。

我有一个91列的表。第一列是我将提供的唯一编号。以下90个单元格必须填入1到99之间的随机数。每个数字只能在此记录中使用一次。

我可以将数据库连接到MSSQL数据库，并用一个非常简单的Python脚本将行添加到表中。 Access将导入这些添加的行。但是这很耗时，并且不是非常用户友好的。

我认为可以在Access中完成所有这些操作（不需要外部数据库或脚本），但我无法找到关于此主题的任何内容。

帮助非常欢迎，谢谢。

Answer 1

我可以建议两种可能：

• 你可以写一个VBA函数返回1到99之间的随机数，同时跟踪先前数返回给定行（通过module-level variables）。必须有某种方式指示移动到下一行 - 无论是魔术值还是函数都应该有可选参数。然后，您可以将此函数用作SQL语句的一部分，并使用它执行批量INSERT。

• 你可以插入记录，然后在插入

  • 要么用记录（DAO或ADO）
  • 或用SQL语句填充值插入SQL字符串后填充它们声明
  • 或SQL语句和查询参数

Answer 2

创建RA ndom编号，将它放在你的领域。在随后的过程中，循环遍历所有填充的字段（即当前-1）以确保在放入字段之前不存在匹配。 （即Do not while.nomatch - >创建随机数）