北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
以下是一个窗体的 查询 按钮的代码，我想在查询前加个条件来限制某些查询。
如下：
1、如果查询条件都为空（条件字段有 FG_IN_DATE_TO \FG_IN_DATE_END \ SLIP_TYPE \FG_IN_OUT_SLIP） ，那么点“查询”按钮，提示未输入查询条件，退出不查询。
2、如果 FG_IN_DATE_TO 为空，或 FG_IN_DATE_END 为空（即二个条件必须都输入日期），有一个为空，同样提示，退出，不查询。
这二个条件如何加入以下代码执行前。请指教，谢谢！
Private Sub Command51_Click()
Dim Str As String, strSQL As String
Str = "true"
'入库出库日期区间查询
If Not IsNull(FG_IN_DATE_TO) Then
Str = Str & " and FG_IN_DATE>='" & FG_IN_DATE_TO & "'"
End If
If Not IsNull(FG_IN_DATE_END) Then
Str = Str & " and FG_IN_DATE<='" & FG_IN_DATE_END & "'"
End If
'If Not IsNull(FG_OUT_DATE_TO) Then
'Str = Str & " and FG_OUT_DATE>='" & FG_OUT_DATE_TO & "'"
'End If
'If Not IsNull(FG_OUT_DATE_END) Then
'Str = Str & " and FG_OUT_DATE<='" & FG_OUT_DATE_END & "'"
'End If
'出入库单查询
If Not IsNull(SLIP_TYPE) Then
'Str = Str & " and FG_IN_SLIP='" & FG_IN_SLIP & "'"
Str = Str & "and FG_IN_SLIP like '*" & SLIP_TYPE & "*'"
End If
If Not IsNull(FG_IN_OUT_SLIP) Then
Str = Str & " and FG_IN_OUT_SLIP='" & FG_IN_OUT_SLIP & "'"
End If
strSQL = "select RCPP_CPP_FG_MOVEMENT.* "
strSQL = strSQL & "FROM RCPP_CPP_FG_MOVEMENT Where " & Str & ";"
Me.F_Pro_In_Out2.Form.RecordSource = strSQL
Me.F_Pro_In_Out2.Requery
End Sub
