組合框模糊查詢求助

gzkrmch

我看了很多關(guān)于組合框模糊查詢的例子,都是只查一個(gè)字段的,但像這樣的怎么才能做出來
比如在商品名稱里輸入茶就可以查出各種茶

roych

這個(gè)只是選擇多列顯示而已，在組合框的來源里選擇多個(gè)字段，在列數(shù)選擇多列（默認(rèn)為1列，附圖為4列）。具體參數(shù)請(qǐng)參考附圖：
（組合框的“來源”：查詢?cè)O(shè)計(jì)圖）

（組合框?qū)傩詧D）

gzkrmch

roych 發(fā)表于 2012-9-21 23:20
這個(gè)只是選擇多列顯示而已，在組合框的來源里選擇多個(gè)字段，在列數(shù)選擇多列（默認(rèn)為1列，附圖為4列）。具體 ...

roych老師,我想要的是組合框模糊查詢,用字段里相同的部分字符查出這個(gè)字段里含有相同字符的記錄

Henry D. Sy

gzkrmch 發(fā)表于 2012-9-24 10:56
roych老師,我想要的是組合框模糊查詢,用字段里相同的部分字符查出這個(gè)字段里含有相同字符的記錄

描述不清，建議參考劉小軍例子

gzkrmch

Henry D. Sy 發(fā)表于 2012-9-24 12:28
描述不清，建議參考劉小軍例子

比如用我的例子,在商品名稱組合框里,我輸入一個(gè)"水"字,組合框里就對(duì)應(yīng)查出"礦泉水"、“蘇打水”帶“水”的記錄，或輸入一個(gè)“面”字，組合框就查出“方便面”、“面包”帶“面”字的記錄

Henry D. Sy

gzkrmch 發(fā)表于 2012-9-24 13:44
比如用我的例子,在商品名稱組合框里,我輸入一個(gè)"水"字,組合框里就對(duì)應(yīng)查出"礦泉水"、“蘇打水”帶“水”的 ...

你那個(gè)是綁定表的，如果輸入的話，表記錄就更改了。

yanghua1900363

建議參考劉小軍老師的實(shí)例 本論壇就有

gzkrmch

Henry D. Sy 發(fā)表于 2012-9-24 14:29
你那個(gè)是綁定表的，如果輸入的話，表記錄就更改了。

Private Sub 商品名稱_AfterUpdate()
  
  Me.商品編號(hào) = Me.商品名稱.Column(1)
  'Me.商品名稱 = Me.商品名稱.Column(0)
  Me.品牌 = Me.商品名稱.Column(2)
  Me.類別 = Me.商品名稱.Column(3)
  Me.單位 = Me.商品名稱.Column(4)
  Me.規(guī)格型號(hào) = Me.商品名稱.Column(5)
   

End Sub
這是組合框的代碼,不是綁定的啊

Henry D. Sy

gzkrmch 發(fā)表于 2012-9-26 13:34
Private Sub 商品名稱_AfterUpdate()
  
  Me.商品編號(hào) = Me.商品名稱.Column(1)

？？

gzkrmch

Henry D. Sy 發(fā)表于 2012-9-26 14:11
？？

Option Compare Database
Private b

Private Sub 堆頭陳列商品_Change()

    Dim a As String
    a = "*" & Me.堆頭陳列商品.Text & "*"
    Me.堆頭陳列商品.RowSource = "SELECT 商品ID, 貨品編號(hào) FROM 商品目錄 Where 貨品編號(hào) like '" & a & "';"
    Me.堆頭陳列商品.Dropdown
    b = Me.堆頭陳列商品.Column(0, 0)

End Sub

Private Sub 堆頭陳列商品_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode
    Case vbKeyUp, vbKeyDown
        Me.堆頭陳列商品.OnChange = ""
    Case Else
        Me.堆頭陳列商品.OnChange = "[Event Procedure]"
    End Select
   
End Sub

Private Sub 堆頭陳列商品_NotInList(NewData As String, Response As Integer)

    Dim ctl As Control
    Set ctl = Me!堆頭陳列商品
    Response = acDataErrContinue
    ctl.Undo
    Me.堆頭陳列商品 = b
    Me.堆頭陳列商品.RowSource = "SELECT 商品ID, 貨品編號(hào) FROM 商品目錄;"
    SendKeys ("{Tab}")
   
End Sub

這是我從網(wǎng)上找到組合框模糊查詢例子的代碼,但這是只有一列字段的,像我的這個(gè)多列的字段怎么寫