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

Question

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

迈克尔

Answer 1

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

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

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

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