多条件如何处理，请帮改一下附件

liaohk

   如果我只选部门是可以，但加上时期就三条件就不行了
'选部门时打√事件可以
   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
我想实现这个三条件“部门”“起始日期”“结束日期”这三个条件任意选择都可以实现对应打上√。请老师，朋友们帮改改怎么写？

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

roych

改：If Not IsNull(Me.起始日期) Or IsNull(Me.截止日期) Then为：If Not IsNull(Me.起始日期) Or Not IsNull(Me.截止日期) Then试试？顺便说下，你的附件可能是包含工作组文件的，打不开，没法调试。

nicknick16

你的sql语句字符串不灵活，基本是不专业  
如果需要单独联系我

todaynew

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

liaohk

重新上传，老师们再帮改一下，