Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

窗体中查询某一区间的记录

嘟嘟　发表于：2009-11-02 22:10:10 　

我数据库中有一主窗体,内有控件[开始单号]和[截止单号],想在子窗体中实现显示符合该两个控件区间的记录，链接字段是[收款单编号]文本格式,类似发票号码,例:0001234-0001244。请教代码怎样写？

麥田发表于：2009-11-02 23:36:55

示例:ACCESS常用窗体查询（刘小军）

http://www.accessoft.com/article-show.asp?id=2409

Top

嘟嘟发表于：2009-11-03 22:02:12

示例中的几种方法都不能解决我的问题，我估计是我子窗体[收款单编号]字段是文本格式,我要查找的区间0001234-0001244系统辨别为数值格式,执行查询命令时提示:"你不能将数值指定给这个对象"。

Top

andymark 发表于：2009-11-04 00:32:34

参考刘小军示例,条件参数为

[收款单编号] between '" & me.开始单号 and '" & me.截止单号 & "'

有问题请上传附件

Top

点燃一支烟发表于：2009-11-04 11:07:16

点击下载此附件

Top

嘟嘟发表于：2009-11-04 22:49:53

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

嘟嘟发表于：2009-11-04 22:50:08

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

嘟嘟发表于：2009-11-04 22:50:09

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

嘟嘟发表于：2009-11-04 22:50:10

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

嘟嘟发表于：2009-11-04 22:50:12

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

嘟嘟发表于：2009-11-04 22:50:20

感谢各位老师的帮助！4楼老师的例子正是我想要的结果，但我将代码稍作改动，融入我原有的代码中，又出现错误提示：“你取消了前次的操作”

代码如下：请帮我检查，谢谢！

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.委托人) Then
        strWhere = strWhere & "([收款通知记录]![委托单位] like '" & Me.委托人 & "') AND "
    End If

    If Not IsNull(Me.评估书) Then
        strWhere = strWhere & "([收款通知记录]![评估书ID] like '*" & Me.评估书 & "*') AND "
    End If

    If Not IsNull(Me.权属人) Then
        strWhere = strWhere & "([收款通知记录]![委托方] like '*" & Me.权属人 & "*') AND "
    End If

    If Not IsNull(Me.业务员) Then
        strWhere = strWhere & "([收款通知记录]![评估员] like '*" & Me.业务员 & "*') AND "
    End If

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

    strWhere = strWhere & "val([收款通知记录]![收款单编号])<= " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.日期开始) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] >= #" & Me.日期开始 & "#) AND "
    End If
    If Not IsNull(Me.日期截止) Then
        strWhere = strWhere & "([收款通知记录]![开票日期] <= #" & Me.日期截止 & "#) AND "
    End If

      If Len(strWhere) > 0 Then
      strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Debug.Print strWhere

    Me.收款通知记录.Form.Filter = strWhere
    Me.收款通知记录.Form.FilterOn = True
Me.Refresh

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
MsgBox Err.Description
Resume Exit_cmd查询_Click
End Sub

除了红色字显示那部份，其他代码运行正常。

Top

点燃一支烟发表于：2009-11-05 08:01:37

怎么重复发这么多？

Top

点燃一支烟发表于：2009-11-05 08:03:20

上传你的附件

Top

嘟嘟发表于：2009-11-05 22:17:33

请看我的数据库中的窗体"收款通知书2".谢谢!

点击下载此附件

Top

点燃一支烟发表于：2009-11-06 07:59:12

.........................

    If Not IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

        strWhere = strWhere & "val([收款通知单号]) BETWEEN " & Val(Me.单号开始) & " and " & Val(Me.单号截止) & " and "
    End If

    If Not IsNull(Me.单号开始) And IsNull(Me.单号截止) Then

        strWhere = strWhere & "val([收款通知单号])>= " & Val(Me.单号开始) & " and "
    End If

    If IsNull(Me.单号开始) And Not IsNull(Me.单号截止) Then

        strWhere = strWhere & "val([收款通知单号])<= " & Val(Me.单号截止) & " and "
    End If

.................................

Top

嘟嘟发表于：2009-11-06 16:58:19

非常感谢老师的指点，园满解决了我的问题。谢谢！

Top

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

Access软件网版权所有 CopyRight 2006-2030
上海盟威软件有限公司提供支持
沪ICP备12024966号-4