VBA/access Generation numero

je voudrai dans le formulaire Etudiants (sous Access) dans la case Num_etudiant generer automatiquement un Nombre a partir du derniere entree ( ex: si etudiant a la 4eme ligne son num c'est 4)
et ca s'execute a l'entree du formulaire et je rentre le code suivant :

Private Sub Num_étud_Enter()
Dim i As interger
i = 0

Do
If [tables]![Etudiants]![Num_étud] <> "" Then
i = i + 1
Loop Until [table]![Etudiants]![Num_étud] = ""

Num_étud = i + 1

End Sub

mais si je met "Public sub", ca fait rien, et si je met "Sub" aussi
merci d'avance!!!

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. si tu faisais une requête
    avec fonction de regroupement et max tu obtiendrais la plus grande valeur
    tu y ajouterais 1
    puis tu ferais pour l'enregistrement suivant requete.requery
    elle est pas belle, la vie ?