多条件更新，请帮指点，附件请帮修改一下

花落，相依　发表于：2014-12-30 11:27:38 　

   如果我只选部门是可以，但加上时期就三条件就不行了
'选部门时打√事件可以
   If Me.车间 <> "" Then
    DoCmd.RunSQL "update 加班信息表 set 二级时间 =now() WHERE (加班信息表.一级审批= True) and (加班信息表.二级审批= FALSE) and (部门 ='" & Me.车间.Value & "')"
    DoCmd.RunSQL "update 加班信息表 set 二级审批 = 1 WHERE (部门 ='" & Me.车间.Value & "') and (加班信息表.一级审批= True)"
    End If
'如果选起始日期和结束日期就不行？
   If Not IsNull(Me.起始日期) Or IsNull(Me.截止日期) Then
    DoCmd.RunSQL "update 加班信息表 set 二级审批 = 1 WHERE 加班信息表.一级审批= True) and format(实际开始时间,'yyyy-mm-dd')='" & Format(Me.起始日期.Value, "yyyy-mm-dd") & "' and format(实际结束时间,'yyyy-mm-dd')='" & Format(Me.截止日期.Value, "yyyy-mm-dd") & "' "
    DoCmd.RunSQL "update 加班信息表 set 二级时间 =now() WHERE 加班信息表.一级审批= True) and format(实际开始时间,'yyyy-mm-dd')='" & Format(Me.起始日期.Value, "yyyy-mm-dd") & "' and format(实际结束时间,'yyyy-mm-dd')='" & Format(Me.截止日期.Value, "yyyy-mm-dd") & "' "
    End If

我想实现这个三条件“部门”“起始日期”“结束日期”这三个条件任意选择都可以实现对应打上√。请老师，朋友们帮改改怎么写？

但总是没有打起√，不知错在那里？

Top

宏鹏发表于：2014-12-30 11:55:18

文件打不开提示不可识别的数据库，多条件参考这个示例：
经典的刘小军主子窗体查询示例详细教程\多条件查询[Access软件网]
http://www.accessoft.com/article-show.asp?id=5580

Top

zhaoyoulong 发表于：2014-12-30 12:04:51

If nz(Me.起始日期)<>"" and nz(Me.截止日期)<>"" Then 或

If Not (IsNull(Me.起始日期) Or IsNull(Me.截止日期)) Then

Top

煮江品茶发表于：2014-12-30 14:24:58

dim ssql as string
if isnull(me.车间.value) then
   ssql="update 加班信息表 set 一级时间=#" & now() & "#,一级审批=true "
else
   ssql="update 加班信息表 set 二级时间=#" & now() & "#,二级审批=true "
end if
if isnull(me.起始日期.value)=false and isnull(me.截止日期.value)=false then
   ssql=ssql & "where 报班日期>=#" & me.起始日期.value & "# and 报班日期<=#" & me.截止日期.value & "#"
   CurrentDb.Execute ssql
end if
me.阁下子窗体控件名称.Form.Requery

Top

花落，相依发表于：2014-12-30 18:27:30

单击下载

我重新上传附件，请老师再帮改一下

Top

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

Access交流中心

多条件更新，请帮指点，附件请帮修改一下