访问 VBA：查找列中的最大数字并加 1

Question

在我的 Access 数据库中，我有一个名为“Demande”的表。我想读取“Numero de Commande”列中的所有记录并读取该列中最大的数字，以便我可以将该数字用于下一个新记录。

这是我的桌子：

关键索引是针对 Numero de Commande 的。

这是我当前的代码：

 Dim highestInt as Integer
 Dim newNumeroCommande as Integer

 Set currentDatabase = CurrentDb
 Set rstDemande = currentDatabase.OpenRecordset("Demande")

 ' Find the highest integer in the column "Numero de Commande"

 newNumeroCommande = highestInt + 1
 rstDemande.AddNew
 rstDemande("Numero de Commande").Value = newNumeroCommande 
 rstDemande.Update

感谢您的所有帮助。

Answer 1

只要该列仅包含没有字母的数值，那么您就可以使用：

NewNumeroCommande = Dmax("[Numero de Commande]", "Demande") + 1

注意：这不是我推荐的方法，而只是 Access 的内置选项，如果可能的话，您可以使用自动编号来省去麻烦，或者您可以有一个单独的“计数器”表来记录最高记录数，当如果您想创建另一个表，可以锁定该表，将值加一（然后使用它），然后释放锁，这在多用户环境中会更有效。