office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

[原创]Access窗体多条件复合查询[源码]

2002-06-21 07:02:00
田野-Office交流网
原创
7559

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


分享