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

Question

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

迈克尔

Answer 1

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

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

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

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