根据查询出来的结果进行批量审核

王萌萌　发表于：2018-03-07 13:41:14 　

我想根据查询结果进行批量审核，条件是开始日期、结束日期、姓名（可以为空）。

代码如下：

    DoCmd.SetWarnings False
    msgbox "审核成功后无法修改数据"
    DoCmd.RunSQL "UPDATE tbl_编织车间计件 SET 审核状态 = '已审核', 审核人 = '系统管理员', 审核日期 = Date()" _
               & "WHERE 姓名 Like '*" & Me.姓名 & "*' AND me.生产日期 Like '*" & Me.开始日期 & "*' & me.结束日期"
    DoCmd.SetWarnings True
    msgbox "审核成功"
    Me.sfrDetail.Requery

Top

MDZZ 发表于：2018-03-07 14:08:33

1日期区间用 between and

2日期变量写法不是你的写法【Access扫盲知识】声明模块变量的用法,变量符号用法,文本型变量.日期型变量,数字型变量,数值型变量的符号表示法[Access软件网] http://www.accessoft.com/article-show.asp?id=8013

3换行后 where 前面不加个空格？

Top

王岚发表于：2018-03-07 16:38:36

请帮我完善下吧。10克油

Top

xlb 发表于：2018-03-07 22:15:32

把文件打包上传

Top

cspa 发表于：2018-03-08 08:00:33

DoCmd.SetWarnings False
msgbox "审核成功后无法修改数据"
IF NZ(Me.姓名,"")="" THEN
strWhere=" WHERE (生产日期 >=#" & Me.开始日期 & "# AND 生产日期 <=#" & me.结束日期 & "#);"
ELSE
strWhere=" WHERE 姓名 ='" & Me.姓名 & "' AND (生产日期 >=#" & Me.开始日期 & "# AND 生产日期 <=#" & me.结束日期 & "#);"
ENDIF
DoCmd.RunSQL "UPDATE tbl_编织车间计件 SET 审核状态 ='已审核', 审核人 ='系统管理员', 审核日期 =#" & Date & "#" _
& strWhere

DoCmd.SetWarnings True
msgbox "审核成功"
Me.sfrDetail.Requery

Top

帕特泵发表于：2020-12-18 15:22:33

认真学习一下.

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

根据查询出来的结果进行批量审核