[原創]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