Office中国论坛/Access中国论坛

标题: 新手求助ACCESS VB 查询窗体问题--已找人解决，谢谢 [打印本页]

---

作者: sunw1984    时间: 2017-7-14 13:23
标题: 新手求助ACCESS VB 查询窗体问题--已找人解决，谢谢


本人初用ACCESS菜鸟，套用论坛里的一些代码和教程实现了多条件查询，但是最后有一个条件不知道怎么搞，特请高手不吝赐教

如图（在查询代码下面），想实现“出入库”下拉菜单查询，如下拉选择“入库”，则子窗体中“总重量_kg”显示全部大于0条目；反之，如果选择“出库”，则子窗体中“总重量_kg”显示全部小于0的条目；

请教大家怎么增加查询代码，现有查询代码如下：

1. Private Sub cmd查询_Click()
   
2.     On Error GoTo Err_cmd查询_Click
   
3.     Dim strWhere As String  
   
4.     strWhere = ""   
   
5.     If Not IsNull(Me.库位) Then
   
6.         strWhere = strWhere & "([库位] like '*" & Me.库位 & "*') AND "
   
7.     End If
   
8.     If Not IsNull(Me.包装形式) Then
   
9.         strWhere = strWhere & "([包装形式] like '" & Me.包装形式 & "') AND "
   
10.     End If
    
11.     If Not IsNull(Me.品种) Then
    
12.         strWhere = strWhere & "([品种] like '*" & Me.品种 & "*') AND "
    
13.     End If
    
14.     If Not IsNull(Me.生产批号) Then
    
15.         strWhere = strWhere & "([生产批号] like '" & Me.生产批号 & "') AND "
    
16.     End If
    
17.     If Not IsNull(Me.包装批号) Then
    
18.         strWhere = strWhere & "([包装批号] like '" & Me.包装批号 & "') AND "
    
19.     End If
    
20.     If Not IsNull(Me.开始日期) Then
    
21.         strWhere = strWhere & "([日期] >= #" & Format(Me.开始日期, "yyyy-mm-dd") & "#) AND "
    
22.     End If
    
23.     If Not IsNull(Me.截止日期) Then
    
24.         strWhere = strWhere & "([日期] <= #" & Format(Me.截止日期, "yyyy-mm-dd") & "#) AND "
    
25.     End If
    
26.    
    
27.     If Len(strWhere) > 0 Then
    
28.         strWhere = Left(strWhere, Len(strWhere) - 5)
    
29.     End If
    
30.     Debug.Print strWhere
    
31.     Me.出入库明细_查询_子窗体.Form.Filter = strWhere
    
32.     Me.出入库明细_查询_子窗体.Form.FilterOn = True
    
33.     Call CheckSubformCount
    
34. Exit_cmd查询_Click:
    
35.     Exit Sub
    
36. Err_cmd查询_Click:
    
37.     MsgBox Err.Description
    
38.     Resume Exit_cmd查询_Click
    
39. End Sub

复制代码

---

作者: Henry D. Sy    时间: 2017-7-14 13:53
例子昵?

---

作者: sunw1984    时间: 2017-7-14 13:57

Henry D. Sy 发表于 2017-7-14 13:53
例子昵?

实际贴图在帖子最下面，谢谢

---

作者: sunw1984    时间: 2017-7-14 15:03
该问题已找人解决，非常感谢

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3