访问 VBA 编程如何重新编号字段

Question

嗯，我是 ACCESS 的新手。在我的数据库中有一个字段我希望用于排序目的。我想要一个 VBA 脚本，它使以下内容。 如果我突出显示一条记录（表视图）并执行它执行以下功能。它将新记录添加到数据库中，其值与突出显示的值相同，但排序字段增加一。 最后，函数修改排序号等于或高于添加的记录排序号的所有记录的排序字段加一。 我问的太难了吗？我尝试了自动编号，但它不可编辑，因此我可以拥有我想要的特定排序顺序。有人可以给我一个代码示例吗？有没有更简单的方法可以做到这一点？ 任何帮助将不胜感激

迈克尔

Answer 1

我认为没有简单的方法可以做到这一点（也许是数据宏？），但我建议您执行以下操作：

1. 使用您的记录创建一个表单，可以使用连续视图和表单页眉/页脚，也可以作为未绑定表单，在数据表视图的子表单中包含记录。
2. 向表单页眉/页脚添加一个按钮，该按钮将运行您的宏

您的宏应该执行以下操作：

1. 保存当前选定行的排序字段值。
2. 开始交易
3. 执行UPDATE 语句以更新所有连续的排序字段值。
4. 从当前记录中获取值并将它们嵌入到INSERT 语句中，最好带有参数。 INSERT 应该将保存的排序字段值放入新记录中。执行INSERT。
5. 结束交易。