Mise en rouge formulaire Access

Hello,

Je suis en train de "construire" une base de donnée Access 2007. Les bases, les relations fonctionne mais maintenant je souhaiterai y ajouter un peu d'intelligence.

J'ai donc voulu mettre lors d'un nouvelle enregistrement que les champs soit rouge tant qu'il soye vide.

Mais dès lors ou j'ai exécuter ma macro tout mes champs de tout les enregistrement sont devenu rouge... (même ceux rempli). Deplus lorsque je remplis le nouvel enregistrement cela reste rouge....

Etant débutant je viens donc quérir votre aide :D

Voilà mon code :

'------------------------------------------------------------ 
' BTN_Nouveau_test_Click 
' 
'------------------------------------------------------------ 
Private Sub BTN_Nouveau_test_Click() 
On Error GoTo Btn_nouv_Gest_Pers_Click_Err 

    On Error Resume Next 
    DoCmd.GoToRecord , "", acNewRec 
    Nom_Personne.SetFocus 
    lngRed = RGB(255, 0, 0) 
     
    Me.Nom_Personne.BackColor = lngRed 
    Me.Prenom_Personne.BackColor = lngRed 
    Me.FK_Lieu.BackColor = lngRed 
    Me.Tél_Personne.BackColor = lngRed 
    Me.Email_Personne.BackColor = lngRed 
    Me.Date_de_Naissance.BackColor = lngRed 
    If (MacroError <> 0) Then 
        Beep 
        MsgBox MacroError.Description, vbOKOnly, "" 
    End If 


Btn_nouv_Gest_Pers_Click_Exit: 
    Exit Sub 

Btn_nouv_Gest_Pers_Click_Err: 
    MsgBox Error$ 
    Resume Btn_nouv_Gest_Pers_Click_Exit 

End Sub 

Merci d'avance,
Meilleures salutations

Prince-Lumy