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!!!