Case à cocher unique

Bonjour et merci pour ton intention. Oui je saisie les informations dans un formulaire.Je ne comprends pas ta question concernant le langage ? Je n'ai pas de code dans ma Bdd car inutile jusque présent;

Bonjour et merci pour ton attention.
La case à cocher est dans un table nommée contact_client. Il s'agit d'une Bdd Access des plus basique.J'ai 3 tables, une commercial, une client, et un contact client. Dans ma table commercial, un champ N° Auto, un champ nom et un lien vers ma table client. Dans ma table client, un champ n°, un champ Nom_du_client, un champ adresse, ville etc, un champ lien vers contact. Dans ma table contact, un champ N°, un champ nom du contact, un champ type case à cocher. Et c'est ce fameux champ que je cherche à rendre "unique".
Merci encore
Je tiens à préciser que cela doit faire 2 heures que j'essaie de répondre, mais rien n'y fait, j'ai changé de PC, et là ça à l'air de fonctionner......

Non j’ai une relation un à plusieurs

Bonsoir,
Merci pour ton aide, mais comme expliqué plus haut, j'ai du changer de PC et je me suis embrouillée dans mes champs cités, car j'ai pris mon PC Perso, alors que ma base est sur mon PC Pro.... oups.....
Dans ma table commercial : N°Employé, Nom et Prénom
Dans ma table client : N°Client, Nom, adresse...., Lien avec Commercial
Dans ma table contact client :N°Contact, Nom du contact, Lien avec Client, Case à cocher "Favori"

J'ai un début de solution, dans ma table Contact, j'ai créé un champ qui compte mes "Case à cocher", que j'ai nommé "CompteMail" et dans mon formulaire, en source contrôle j'écris :

=SomDom"[Favori]";"T3_ContactClient")

Ensuite dans mon formulaire :

Private Sub Favori_Click(Cancel As Integer)
Dim sql As String
Dim rep As Long

If Me.CompteMail.Value < 0 Then

rep = MsgBox("Vous ne devez choisir qu'un seul mail de contact. Voulez-vous conserver ce mail ?", vbYesNo, "ATTENTION")
'si la réponse est non : il décoche le contact coché
If rep = vbNo Then

Me.Favori = False

Else
'Decoche toutes les cases à cocher et garde le contact désiré
  
    sql = "update T3_ContactClient set Favori = false"
    CurrentDb.Execute sql
   
End If
End If
Me.Requery
End Sub

Ce code fonctionne à peu près bien, à un détail près, si je décoche toutes mes cases, j'ai quand même le message, car l'actualisation se fait après... je pense que je devrais positionner ce code ailleurs, mais je tourne en rond.
De plus, il y a des fois, mais pas à chaque fois, il me dit qu'une autre personne est en train de modifier mes données en même temps, alors que je suis sure d'être seule sur cette base pour l'instant;

Si tu as des idées pour moi, je suis preneuse et encore désolée pour ma confusion.
Sandrine