Ajout date dans plusieurs champs via Bouton

Bonjour,
Mon problème c'est que je veut faire quelque chose de simple mais je trouve pas la solution. Ce que je veut faire c'est de modifier un champ pour y rajouter la date d'aujourdhui. Ce champ est au départ vide.

Mais voila pour pouvoir ajouter la date d'aujourd'hui il doit cocher une case a cocher. Mais le soucis c'est qu'il peut choisir de cocher plusieurs case de plusieur enregistrements qui ne se suivent pas forcément.

Exemple :
Enregistrement 1: case a cocher pas cocher
Enregistrement 2: case a cocher cocher
Enregistrement 3: case a cocher pas cocher
Enregistrement 4: case a cocher cocher

  Dim oRst As DAO.Recordset
  Dim oDb As DAO.Database
  Set oDb = CurrentDb
  Set oRst = oDb.OpenRecordset("Inscrire")
  Dim i As Integer
    
  Do While i <= LngNbEnregistrement 

'LngNbEnregistrement est définis dans une méthode et renvoie le nombre compter d'enregistrements (pas la clé unique)
  
  If Me.Achever.Value = True Then
    'Passe en mode modification
    oRst.Edit 'c est ici que ca passe pas plus loin et je sais pas pour quoi.
    'Affecte la date actuelle
    oRst.Fields("Date_Archivage").Value = Now()
    'Met à Jour
    oRst.Update
    'Passe au suivant
    oRst.MoveNext
  Else
    i = i + 1
  End If
  
  Loop
  
  'Libération des objets
  oRst.Close
  oDb.Close
  Set oRst = Nothing
  Set oDb = Nothing

Le but de ce code est de tourné tanqu'il trouve la case a cocher cocher, il ajoute la date du jour.

Merci de votre aide.