求助！数据有效性规则问题

for i=1 to 10

if dcount( "成员"&i,"表名","日期=# " & me.日期 &"# and 组长='" & me.组长 &"' and 成员&i is not null)>0 then

msgbox "输入的成员重复,请重新输入!",vbokonly,"提示"

me.成员&i.setfocus

exit sub

end if

next