Mettre à jour un enregistrement apres un test

Bonjour,

Bonjour,
Grâce aux réponses trouvées dans le forum, j'ai pu avancé dans mon projet. Mais je me heurte à une nouvelle difficulté
J'ai un formulaire issu de deux tables, je teste un champ "code plan", s'il est null je voudrais qu'il me mette non ok dans le champ catégorie (mise à jour de ce champ qui au départ est vide), s'il n'est pas vide je veux qu'il mette ok
J'ai donc créé le code ci-dessous mais j'ai un problème avec la boucle car celui-ci me met bien 'ok' ou 'non ok' mais pour tous les enregistrements, il ne tient pas compte du test si myvariant est nul ou pas
Dés qu'il arrive sur un premier test, il déroule tout le fichier
la table à mettre à jour s'apPelle T011FECX

Private Sub code_Plan_GotFocus()
    Dim db As DAO.Database: Set db = CurrentDb
    Dim r As DAO.Recordset: Set r = db.OpenRecordset("T011FECX")
    Dim myvariant As Variant
    myvariant = [code plan]
    Do While Not r.EOF                      'test si on se trouve en fin de fichier
        If IsNull(myvariant) Then           'si myvariant est nul on affiche un message d'info
            MsgBox "code plan vide"
            r.Edit
            r![Category] = "non ok"         'on met  non ok dans le champ category
            r.Update
        Else                                'si myvariant n'est pas nul, on affiche un message d'info
            MsgBox "code plan non vide"
            r.Edit
            r![Category] = "ok"             'on met ok dans le champ category
            r.Update
       End If
        r.MoveNext
    Loop
End Sub

MERCI