组合框根据输入自动匹配展开

来源:www.accessoft.com 点击数:6022 　 | 收藏 | 复制

时　间:2020-08-16 13:30:54
作　者:甘 ID：48957 城市：昆山
摘　要:前几日在输入产品代码时总是要查来查去，比较麻烦，在用很多软件的时候他们都会有根据输入自动匹配展开的功能。当时就想我能不能开发一个，之后问麦老师，老师指导说搜索模糊查询。找了几个帖子，觉得太复杂了，要新建模块，N多行代码，弄不明白。索性自己研究。找来基本书，再结合百度，终于弄出下面的代码，不到50行搞定。代码中“？”是中文字符，我粘贴的时候自动变成了“？”。懒得改了，我想愿意看的应该看的懂，不愿意看的我改也没意思。
正　文:

前几日在输入产品代码时总是要查来查去，比较麻烦，在用很多软件的时候他们都会有根据输入自动匹配展开的功能。当时就想我能不能开发一个，之后问麦老师，老师指导说搜索模糊查询。找了几个帖子，觉得太复杂了，要新建模块，N多行代码，弄不明白。索性自己研究。找来基本书，再结合百度，终于弄出下面的代码，不到50行搞定。代码中“？”是中文字符，我粘贴的时候自动变成了“？”。懒得改了，我想愿意看的应该看的懂，不愿意看的我改也没意思。

Private Sub ???????_AfterUpdate()

If Not IsNull(Me.???????) Then
    If DCount("*", "My_ProductTable", "???????='" & Me.??????? & "'") = 0 Then
        MsgBox "????????л??????????????", vbOKOnly, "????"
        Me.??????? = ""
    End If
    Me.??λ = Nz(DLookup("??λ", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
    Me.??????? = Nz(DLookup("???????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
    Me.?????? = Nz(DLookup("??????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
    Me.?????? = Nz(DLookup("??????", "My_ProductTable", "???????='" & Me.??????? & "'"), "")
End If
Me.TempKey = ""

End Sub

Private Sub ???????_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode < 33 Then Exit Sub
If Nz(Me.TempKey, "") = "" Then
    Me.???????.RowSource = "Select TOP 10 ??????? FROM My_ProductTable Where ??????? LIKE '" & "*" & Chr(KeyCode) & "*-1" & "' orDER BY ??????? "
    Me.TempKey = Chr(KeyCode)
Else
    Me.???????.RowSource = "Select TOP 10 ??????? FROM My_ProductTable Where ??????? LIKE '" & "*" & Me.TempKey & Chr(KeyCode) & "*-1" & "' orDER BY ??????? "
    Me.TempKey = Me.TempKey & Chr(KeyCode)
End If
Me.???????.Dropdown

End Sub

刚刚测试了一下，上面这段代码对数字符号及字母组成的字符是有效的，但对于中文字符不能实现其效果，请其他高手多多指教！

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】