Dim r As Row = Tables("奖惩记录").Current If r.Isnull("姓名") OrElse r.Isnull("获奖年度") OrElse r.Isnull("等级") OrElse r.Isnull("名称")OrElse r.Isnull("证件") OrElse r.Isnull("颁奖日期") Then msgbox("本条记录不完整,请您填写完整申报单再增加新记录!") Else Tables("奖惩记录").Current.Locked = True Tables("奖惩记录").AddNew() End If