If User.Group = "审核组" Then Tables("申请表").Current("审核") = UserName Tables("申请表").Current("审核日期") = Date.Today() Tables("申请表").Current.Save()Else MessageBox.show("你无审核权限!")End If
请注意 你这边是两个用户 一个是User.Group 里面的用户 另外一个是UserName所以不一样的.