关于查询

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


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

daxin1

谢谢版本

Henry D. Sy

可以，就把两个时间用手工输入

daxin1

弱弱的问一句 能不能写成用更新事件啊

Henry D. Sy

Henry D. Sy 发表于 2011-12-23 19:21
把各个控件的更新后事件去掉，改为按钮事件，因为两个时间不是更新是赋值！

Henry D. Sy

把各个控件的更新后事件去掉，改为按钮事件，因为两个时间不是更新是赋值！

daxin1

{:soso_e115:}时间还是不能用啊

Henry D. Sy

什么意思，
你红色图中的描述是要求呢，或是存在的问题？
我刚才测试过正常呀！

daxin1

Henry D. Sy

1. Function 查询()
   
2.     Dim strWhere As String
   
3. 
   
4.     '如果姓名不为空，则将其加入到条件字符串
   
5.     If Not IsNull(Me.姓名) Then strWhere = strWhere & "姓名='" & Me.姓名 & "' AND "
   
6.     '如果性别不为空，则将其加入到条件字符串
   
7.     If Not IsNull(Me.性别) Then strWhere = strWhere & "性别='" & Me.性别 & "' AND "
   
8.     '如果籍贯不为空，则将其加入到条件字符串
   
9.     If Not IsNull(Me.籍贯) Then strWhere = strWhere & "籍贯='" & Me.籍贯 & "' AND "
   
10. 
    
11.     '这里为了判断简便，最前面必定会有一个“ AND ”，这是不需要的，这里去掉它
    
12.     'strWhere = Mid(strWhere, 6)
    
13. 
    
14.     If Not IsNull(Me.time1) Then strWhere = strWhere & "([日期] >= #" & Format(Me.time1, "yyyy-mm-dd") & "#) AND "
    
15. 
    
16.     If Not IsNull(Me.time2) Then strWhere = strWhere & "([日期] <= #" & Format(Me.time2, "yyyy-mm-dd") & "#) AND "
    
17. 
    
18.     If Len(strWhere) <> 0 Then
    
19.         '有输入条件
    
20.         strWhere = Left(strWhere, Len(strWhere) - 5)
    
21.     End If
    
22. 
    
23.     '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
    
24.     '    Debug.Print strWhere
    
25. 
    
26.     '设置子窗体的筛选器条件
    
27.     Me.frmChild.Form.Filter = strWhere
    
28.     '应用筛选
    
29.     Me.frmChild.Form.FilterOn = True
    
30. End Function

复制代码