Mise a jour & Création d'enregistrement

Bonjour à tous,

Je travail sur Access, je sais qu'il y a un forum dédié à cela mais je ne sais pas si celui ci est autant fréquenté.

Je dispose d'une table "Etablissements" et un Formulaire "Etablissement":

L'objectif, est de pouvoir modifier un Etablissement déjà présent ou en créer un nouveau si celui n'existe pas, donc je ne souhaites pas avoir de doublon dans la colonne "Nom_Etab".

Je dispose de 9 colonnes dans cette table, certain champ sont obligatoires à la saisie et d'autre non, le problème se pose dans ce dernier cas.

Le code que j'ai créer me retranscrit les informations dans la table mais ne veut pas prendre en compte une valeur "Null" même si le champ n'est pas obligatoire.

Auriez vous une astuce à cela?

https://www.transfernow.net/aO88kG062020

Private Sub Btn_Enregistrement_Click()
    Dim db As Database
    Dim rs As Recordset
    Dim chaineSQL As String
    Dim ctl As Access.Control
    Dim i&

     Set db = CurrentDb
     chaineSQL = " Select * from Etablissements where ID_Etab = " & id & " "
     Set rs = db.OpenRecordset(chaineSQL)

     With rs
         DoCmd.OpenTable "Etablissements", acViewNormal
         If B_New = False Then
            DoCmd.GoToRecord acDataTable, "Etablissements", acGoTo, id
            .Edit
            !Adresse_Etab = Adresse
            !CP_Etab = CP
            !Ville_Etab = Ville
            !Dep_Etab = Dep
            !Tel_Etab = Tel
            !Regle_visite_Etab = Regle
            !Regle_visite_detail_Etab = Regle_detail

        Else
            .AddNew
            !Adresse_Etab = Adresse
            !CP_Etab = CP
            !Ville_Etab = Ville
            !Dep_Etab = Dep
            !Tel_Etab = Tel
            !Regle_visite_Etab = Regle_visite
            !Regle_visite_detail_Etab = Regle_visite_detail
        End If
        .Update
    End With
    DoCmd.Close acDataTable, "Etablissements", acSaveYes
    rs.Close
End Sub

Merci à vous