关于查询

daxin1

Function 查询()
    Dim strWhere As String

    '如果姓名不为空，则将其加入到条件字符串
    If Not IsNull(Me.部门) Then strWhere = strWhere & " AND 部门='" & Me.部门 & "'"
    '如果性别不为空，则将其加入到条件字符串
    If Not IsNull(Me.问题种类) Then strWhere = strWhere & " AND 问题种类='" & Me.问题种类 & "'"
    '如果籍贯不为空，则将其加入到条件字符串
    If Not IsNull(Me.操作者) Then strWhere = strWhere & " AND 操作者='" & Me.操作者 & "'"
   ' If Not IsNull(Me.time1) Then strWhere = strWhere & " AND 部门='" & Me.部门 & "'"
   
   If Not IsNull(Me.time1) Then strWhere = strWhere & "([日期] >= #" & Format(Me.time1, "yyyy-mm-dd") & "#) AND "
        '【进书日期开始】有输入
        
    'End If
    'If Not IsNull(Me.time2) Then
        '【进书日期截止】有输入
        'strWhere = strWhere & "([日期] <= #" & Format(Me.time2), "yyyy-mm-dd") & "#) AND "
   
   
    '这里为了判断简便，最前面必定会有一个“ AND ”，这是不需要的，这里去掉它
    strWhere = Mid(strWhere, 6)




    '设置子窗体的筛选器条件
    Me.Quality.Form.Filter = strWhere
    '应用筛选
    Me.Quality.Form.FilterOn = True
End Function


红色字体代码错在那里请指导
这个是用在更新后事件里的不知道怎么时间那一个条件不行

wu8313

没有发现错误的地方。

daxin1

我上传了一个例子帮我看一下好吗
希望能按时间来做筛选
开始时间为空时 那就筛选到结束时间
另一种就是开始时间到结束时间的之间进行筛选

wu8313

你原来的代码，strwhere 被截断时有些问题(也就是 去掉  and “).

采用 debug.print  strwhere  查看运行时 strwhere的值，你就明白了。



换成图片中的代码 就可以了。

daxin1

换成图片中的代码那就要分开做了，设成两个函数了
我想就在一个函数里做呀 要有两种条件

daxin1

1.开始时间为空时 结束时间有值 那就筛选到结束时间
2.开始时间有值 结束时间有值  开始时间到结束时间的之间进行筛选
我要做在更新事件里
请版本帮忙看看能否实现

daxin1

1开始时间为空时 结束时间有值 那就筛选到结束时间
2.开始时间有值 结束时间有值 那就从开始时间到结束时间的之间进行筛选
能实现吗

Henry D. Sy

daxin1 发表于 2011-12-23 07:27
换成图片中的代码那就要分开做了，设成两个函数了
我想就在一个函数里做呀 要有两种条件

怎么会呢

wu8313

把下图中红色框框选中的部分，换成 我给你的图片的内容就可以了。

daxin1

请版本帮我看下例子
我已经上传上来了
看看错在那里
谢谢