Calculer un numerotation automatique avec des noms et prenom

J'ai suivi une aide d'une autre forum mais on dirait qu'il son inactif il ne me réponds pas je vous envoie le lien maintenant et les étapes que j'ai suivi.
la 1ère étape c'est crée la fonction autonumber :
avec ce lien : http://grenier.self-access.com/access/tables-et-relations/numerotation-personnalisee/

Voici le 1er code je l'ai tester dans l'exemple du lien et tout fonctionne a merveille

' ---
' NUMEROTATION AUTOMATIQUE PERSONNALISEE
' ---
' Entrée : strTable <- Nom de la table.
' strField <- Nom du champ contenant le numéro
' strFormat <- Gabarit décrivant comment formater
' le numéro.
' intDigits <- Nombre de caractères pour le
' numéro proprement dit.
' dtDate <- Date de référence pour le calcul
' de l'année, du mois...
'
Function AutoNumber( _
ByVal strTable As String, _
ByVal strField As String, _
Optional ByVal strFormat As String = "", _
Optional ByVal intDigits As Integer = 4, _
Optional ByVal dtDate As Date = #1/1/100#)

' Quelques variables...
On Error GoTo AutoNumberErr
Dim varMarkers As Variant, varMark As Variant
Dim strCriteria As String
Dim strNum As String, lngNum As Long, strPart As String

' Quelques retraitements...
If dtDate = #1/1/100# Then dtDate = Now()
strField = "[" & strField & "]"
strFormat = Replace(strFormat, "'", "''")

' Marqueurs à remplacer
varMarkers = Array("YYYY", "YY", "Q", "MM", "WW", "DD")
For Each varMark In varMarkers
' Formater la date et l'injecter dans le template
strPart = Format(dtDate, varMark, vbMonday, vbFirstFourDays)
strFormat = Replace(strFormat, "[" & varMark & "]", _
Format(strPart, String(Len(varMark), "0")))
Next

' On cherche la valeur maximale déjà employée dans la table
strCriteria = strField & " LIKE '" & strFormat & "*'"
strNum = Nz(DMax(strField, strTable, strCriteria), "")

' On crée le nouveau numéro
lngNum = IIf(strNum = "", 1, Val(Mid(strNum, Len(strFormat) + 1)) + 1)
strFormat = strFormat & Format(lngNum, String(intDigits, "0"))

' Valeur finale
AutoNumber = strFormat
Exit Function

AutoNumberErr:
MsgBox "Erreur : " & Err.Description, vbCritical
AutoNumber = ""
Exit Function
End Function

Et en deuxième (ou dernier) lieu j'ai cette partie la:

le lien : http://grenier.self-access.com/access/tables-et-relations/numerotation-personnalisee-variante-3/

et voici ce que j'ai
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strCode As String
Dim strPrefixe As String

' Vérifier que le nom et le prénom
' sont renseignés, puisqu'ils servent
' dans le préfixe de numérotation
If IsNull(Me.Nom) Or IsNull(Me.Prénom) Then
MsgBox "Le nom et le prénom doivent être renseignés !", vbExclamation
Cancel = True
Exit Sub
End If

' Préfixe à utiliser pour la numérotation
strPrefixe = UCase(Left(Me.Nom, 3) & Left(Me.Prénom, 3))

' Numérotation
If IsNull(Me.Id) Then
Me.Id = AutoNumber("tbl Personnes", "Id", strPrefixe, 3)
End If
End Sub

Mais je ne trouve pas le résultat.
Pour fini je souhaite automatisé le formulaire pour les numéros trouver se retrouve sur deux table différents.

Astuces pour m'aider vite fait : comme je suis pas douer en VBA : il suffit de créer une petite table contenant avec 3 noms et prénoms et un ID vide et essaie le code pour voir