更新查询中的审核问题

11123　发表于：2016-11-12 13:38:03 　

想做个审核按钮，把审核人，审核状态修改，Forms!SysFrmMain!Nicknam 是平台中的用户昵称，比如是王五，怎么把它更新到tbl中？

If Me.sfrList![审核状态] = "已审核" Then

If MsgBox("已审核过了,不用再审核!", vbInformation, "提示") = vbOK Then
Exit Sub
End If
Else
DAORunSQL "update tbljk set 审核状态='已审核',审核人=‘ Forms!SysFrmMain!Nicknam ‘’,审核日期=now() WHERE [序号]=" & SQLText(Me.sfrList![序号])

Me.RefreshDataList

上述结果是把Forms!SysFrmMain!Nicknam更新到审核人了，而不是对应的”王五”

如果把单引号去掉，又提示错误，请教该如何修改？

Top

KevinFan 发表于：2016-11-12 14:15:20

Forms!SysFrmMain!Nicknam是读取当前登陆用户的昵称！如果你要固定写王五，可以这样写：审核人='王五'

如果你的系统做了职员表，你想审核的时候手动选择职员，那么需要添加一个组合框（组合框行来源设置到职员表的姓名），假如组合框名称为职员，那么代码可以修改为：审核人='me.职员'

Top

11123 发表于：2016-11-13 21:40:53

我的目的就是获取（Forms!SysFrmMain!Nicknam）当前登陆用户的昵称！而不是固定写王五，比如用ADMIN登陆，那么就是“管理员”，用王五登陆才把是王五更新到审核人里，代码该怎么写？

Top

MDZZ 发表于：2016-11-14 08:31:32