Public Function 合格(ByVal rybm As Long) As Boolean
Dim jcrq As Date
合格 = True
If DCount("*", "T001个人评分", "人员编码=" & rybm) > 1 Then
jcrq = DMax("检视日期", "T001个人评分", "人员编码=" & rybm)
If DLookup("是否存在一票否决项", "T001个人评分", "人员编码=" & rybm & " and 检视日期=#" & jcrq & "#") = True Then
合格 = False
Else
If DLookup("评估分数", "T001个人评分", "人员编码=" & rybm & " and 检视日期=#" & jcrq & "#") < 80 Then
合格 = False
Else
If DAvg("评估分数", "T001个人评分", "人员编码=" & rybm) < 80 Then
合格 = False
End If
End If
End If
Else
If DLookup("是否存在一票否决项", "T001个人评分", "人员编码=" & rybm) = True Then
合格 = False
Else
If DLookup("评估分数", "T001个人评分", "人员编码=" & rybm) < 80 Then
合格 = False
End If
End If
End If
End Function
这个函数可以判断第一部分，即是否合格。
但是评比得分的条件好像与得分有冲突，比如6004，一次76分，一次78分，没有否决项，应该加5分？
特别感谢您的认真解答。6004第四季度得分应该是5分，我打错了