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



我是ACCESS的新手。在我的数据库中,有一个字段我想用于排序。我想要一个VBA脚本,它可以生成以下内容。如果我高亮显示一条记录(表视图)并执行该函数,它会执行以下操作。它会向数据库中添加一条新记录,该记录的值与高亮显示的值相同,只是排序字段增加了一。最后,该函数将排序编号等于或高于添加的记录排序编号的所有记录的排序字段修改为递增一。我的要求太难了吗?。我尝试了自动编号,但它不可编辑,所以我可以有我想要的特定排序顺序。有人能给我一个代码样本吗?。有更简单的方法吗?如有任何帮助,将不胜感激

Michael

我不认为有简单的方法可以做到这一点(也许是数据宏?),但我建议您做以下操作:

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

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

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

最新更新