Faire disparaître de la liste déroulante toute valeur déjà selectionnée

Private Sub CommandReinitialiser_Click()
    DoCmd.SetWarnings False
        DoCmd.RunSQL "Update tblbenef Set tblbenef.x = False;"
        DoCmd.RunSQL "Update tblbons Set tblbons.y = False;"
    DoCmd.SetWarnings True
    
    Me.Requery: Me.Refresh

End Sub

Private Sub idbe_AfterUpdate()
Dim strSQL As String

' mise à jour de la table tblbenef sélection
strSQL = "Update tblbenef Set x = true Where idbe = " & Me.idbe.Column(1) & ";"
CurrentDb.Execute strSQL, dbFailOnError

' rechargement de la liste avec les nouvelles valeurs
Me.idbe.RowSource = Me.idbe.RowSource

End Sub

Private Sub idbo_AfterUpdate()
Dim strSQL As String
 
' mise à jour de la table tblbons après sélection
strSQL = "Update tblbons set y = True where idbo = " & Me.idbo.Column(2) & ""
CurrentDb.Execute strSQL, dbFailOnError
 
'rechargement de la liste avec les nouvelles valeurs
Me.idbo.RowSource = Me.idbo.RowSource
End Sub

SELECT *
FROM tblbenef LEFT JOIN tbldistrib ON tblbenef.idbe = tbldistrib.iddis;

SELECT *
FROM (tblbenef LEFT JOIN tbldistrib ON tblbenef.idbe = tbldistrib.iddis) RIGHT JOIN tblbons ON tbldistrib.iddis = tblbons.idbo;

SELECT [Nom] & " " & [prenom] AS A, *
FROM tblbons INNER JOIN (tblbenef INNER JOIN tbldistrib ON tblbenef.idbe = tbldistrib.idbe) ON tblbons.idbo = tbldistrib.idbo;