Admettre les doublons sauf une valeur

Bonjour,

Je comprends parfaitement votre problème. Vous voulez vous assurer qu'il ne puisse y avoir qu'un seul Directeur dans votre table T_Personnel, tout en permettant plusieurs Adjoints et Gardiens.

Voici une solution que vous pouvez implémenter :

Validation dans le formulaire

Dans l'événement "Avant MAJ" (BeforeUpdate) de votre formulaire, ajoutez ce code VBA :

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Fonction = "Directeur" Then
        ' Vérifier s'il existe déjà un directeur (excluant l'enregistrement actuel si on modifie)
        Dim strSQL As String
        Dim intCount As Integer
        
        If Me.NewRecord Then
            ' Nouveau record
            strSQL = "SELECT COUNT(*) FROM T_Personnel WHERE Fonction = 'Directeur'"
        Else
            ' Modification d'un record existant
            strSQL = "SELECT COUNT(*) FROM T_Personnel WHERE Fonction = 'Directeur' AND ID_Personnel <> " & Me.ID_Personnel
        End If
        
        intCount = DCount("*", "T_Personnel", Replace(Mid(strSQL, InStr(strSQL, "WHERE")), "COUNT(*)", "*"))
        
        If intCount > 0 Then
            MsgBox "Il ne peut y avoir qu'un seul Directeur dans l'école !", vbExclamation, "Attention"
            Cancel = True
            Me.Fonction.SetFocus
        End If
    End If
End Sub

Vous pouvez également faire ceci :

Contrainte au niveau de la base de données
Vous pouvez aussi créer un index unique conditionnel :

Ouvrez la table T_Personnel en mode Création
Allez dans l'onglet "Index"
Créez un nouvel index nommé "DirecteurUnique"
Définissez le champ comme "Fonction"
Cochez "Unique" et "Ignorer les valeurs Null"

Mais cette solution est moins flexible car elle donnera une erreur système moins conviviale.

Bonjour!

Merci à Monsieur Bruno pour l'intérêt qu'il a accordé à mon problème.

j'ai copié le code vba et je l'ai collé dans l'évènement après MAJ de mon formulaire.

Mais je constate un message d'erreur lorsque je passe à l'essai. il est le suivant: Erreur de syntaxe (opérateur absent) dans l'expression WHERE Fonction = 'Directeur'

Que dois-je faire? 

Bonjour,

Disons que tu utilises un champ fonctionne dans la table personne, tu peux créer un index unique qui interdit les doublons de directeur .

CREATE UNIQUE INDEX UniqueDirecteur 
ON personne (fonction) 
WHERE fonction='Directeur';