[原创]Access窗体多条件复合查询[源码] - 界面_窗体_子窗体

Access窗体实现多条件复合式的查询

它是我做的毕业设计软件中的一部分,看到有人要,就给分离出来做成范例了

多条件复合式查询源码下载文件下载

竹笛
很不错喔！

田野
谢谢大家！

janney0
做得不错！

zglsky在 2002/07/04 23:59:00 回复-------------------
firstcriterion = True
str2 = "SELECT qry入库明细.凭证号, qry入库明细.物料编号, qry入库明细.物料名称, qry入库明细.型号规格, qry入库明细.单价, qry入库明细.数量, qry入库明细.单位, qry入库明细.总价, qry入库明细.入库日期, qry入库明细.仓库,  qry入库明细.供应商 FROM qry入库明细"
If Not IsNull(凭证号) Then
    str2 = str2 & " where 凭证号 like '*" & 凭证号 & "*'"
    firstcriterion = False
End If
    If IsNull(开始日期) And IsNull(结束日期) Then
GoTo jump1
  Else
     If firstcriterion Then
         str2 = str2 & " where 入库日期 between #" & 开始日期 & "# and #" & 结束日期 & "#"
         firstcriterion = False
     Else
        str2 = str2 & " and 入库日期 between #" & 开始日期 & "# and #" & 结束日期 & "#"
    End If
    End If
jump1:

jump2:
      MsgBox str2
      List3.RowSource = str2

str2、jump1 如果我不想他显示在列表框中想用一个新窗体显示应该如何改？

田野
我想指定窗体的数据源应该可以.我现在南京工作,系统集成方面的,正在找房子,比较忙,你自己试一试吧

(界面_窗体_子窗体-相关文章技巧链接)：
ACCESS-VBA编程第六章 ACCESS查询1
ACCESS-VBA编程第六章 ACCESS 查询2

联系人：	王先生
Email：	18449932@qq.com
QQ：	18449932
微博：	officecn01

联系人：

王先生

Email：

18449932@qq.com

QQ：

18449932

微博：

officecn01