Office中國論壇/Access中國論壇 › Access中國門戶舊版 ›Access› 模塊類函數(shù)VBA › 查看內(nèi)容

Access實現(xiàn)同時輸入多個條件的模糊查詢源碼

2002-6-14 22:10| 發(fā)布者: admin| 查看: 1362| 評論: 3|原作者: sdlhlsd|來自: www.mzhfr.cn

摘要: 在用ACCESS編程中,若你想同時查詢多個條件,例如: 在一張數(shù)據(jù)表中, ----------------------- |地區(qū)|客戶|銷售額|數(shù)量| |---------------------| |上海|A|8000 |500 | |北京|B|6000 |600 | |江蘇|C|5000 |300 | ...

在用ACCESS編程中,若你想同時查詢多個條件,例如:
在一張數(shù)據(jù)表中,
-----------------------
|地區(qū)|客戶|銷售額|數(shù)量|
|---------------------|
|上海|A  |8000 |500 |
|北京|B  |6000 |600 |
|江蘇|C  |5000 |300 |
|浙江|D  |2000 |300 |
-----------------------
若在以上這個表中,我想同時查找上海與北京的銷售情況,則可以利用mlike函數(shù)
為:mlike(上海;北京)如此輸入即可;mlike函數(shù)如下

Function mLike(Param As Variant, Cond As Variant) As Boolean
On Error GoTo mLike_Err

Dim stn As String, stl As String, n As Integer, stlen As Integer
Dim stParam As String, stCond As String

If IsNull(Param) Or IsNull(Cond) Then
   mLike = False
   Exit Function
End If
stParam = Trim$(UCase$(Param))
stCond = Trim$(UCase$(Cond))

If stParam Like stCond Then
   mLike = True
   Exit Function
End If

stn = Trim$(stCond)
stlen = Len(stCond)
n = InStr(1, stn, ";")

While n <> 0
      If stParam Like stn Then
         mLike = True
         Exit Function
      End If
      n = InStr(1, stn, ";")
      If n <= 1 Then
         mLike = False
         Exit Function
      End If

      stl = Left$(stn, n - 1)
      stn = Right$(stn, stlen - n)
      stlen = Len(stn)

      If stParam Like stl Then
         mLike = True
         Exit Function
      End If
Wend
mLike = False
Exit Function

mLike_Err:
MsgBox "Error In mLike....." & Err.Description
mLike = False
Exit Function

End Function

收藏分享邀請

上一篇：Access自定義小數(shù)位數(shù)函數(shù)源碼下一篇：【Access小品】搞球不清 -- Null的概述

發(fā)表評論

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

Access實現(xiàn)同時輸入多個條件的模糊查詢源碼

最新評論

相關分類