You could try something like this in the beforeupdate event of the combo.
dim head
head = DCount("[relationship]", "tblIndividuals", _
"[relationship] = 'head' AND [familyID] = " & Me.[familyID])
if head <>0 then
your msg here
cancel=true
end if
i'm presuming each member of the same family...