[原創(chuàng)]Access窗體多條件復合查詢[源碼]

2002-6-21 07:03| 發(fā)布者: admin| 查看: 969| 評論: 7|原作者: 田野|來自: www.mzhfr.cn

摘要: 多提意見,它是我做的畢業(yè)設計軟件中的一部分,看到有人要,就給分離出來做成范例了.文件下載

Access實現(xiàn)多條件查詢，你可以試用“單項查詢”進行簡單查詢，也可以使用“多項查詢”進行復合查詢，同時支持模糊查詢，可以

“完整輸入”也可以僅輸入“關鍵字”進行查詢；如果使用“入庫日期”或者“總價”查詢，請把數(shù)據(jù)添加完整以獲得正確結果。

示例文件下載

收藏分享邀請

上一篇：Access選項卡頁隱藏與顯示

引用 zglsky 2002-7-4 23:59: firstcriterion = True
str2 = "SELECT qry入庫明細.憑證號, qry入庫明細.物料編號, qry入庫明細.物料名稱, qry入庫明細.型號規(guī)格, qry入庫明細.單價, qry入庫明細.數(shù)量, 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 如果我不想他顯示在列表框中想用一個新窗體顯示應該如何改？

引用田野 2002-7-20 04:09: 我想指定窗體的數(shù)據(jù)源應該可以.我現(xiàn)在南京工作,系統(tǒng)集成方面的,正在找房子,比較忙,你自己試一試吧

帳號		自動登錄	找回密碼
密碼			注冊

相關分類