组合框根据输入自动匹配展开
时 间: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 = ""
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
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源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)