Acceda a VBA: Encuentre el número máximo en la columna y agregue 1
En mi base de datos de Access, tengo una tabla llamada "Demande". Quiero leer todos los registros en la columna "Numero de Commande" y leer el número más grande en la columna para poder usar ese número para el siguiente registro nuevo.
Así que aquí está mi mesa:
El Índice Clave es para el Numero de Commande.
y aquí está mi código actualmente:
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
Gracias por toda la ayuda.