Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

组合框难题!是老鸟都会!

Chen  发表于:2009-07-01 16:18:46  
复制

想实现以下效果:

1.在组合框中输入时保持显示下拉列表,并且每键入一个字符后,下拉列表内容自动根据输入内容进行筛选

2.下拉列表中显示内容应满足:每一选项内容均包含组合框中已输入字符串

3.在列表中选择值后自动关闭列表

如:组合框行来源值为101,121,212,132,123,245在组合框中输入"1"后列表中显示除245外的所有结果;接着输入"2"后显示包含"12"的结果,即121,212,123;继续输入"3"后列表中应只显示123;若再输入"4"则列表中显示空白或不显示列表。

望不吝赐教!

 

Top
麥田 发表于:2009-07-01 16:23:11
Chen 发表于:2009-07-01 16:36:24
1楼给的链接不是我要的效果,大概没把我的要求看清楚,我的只涉及一个组合框,是这个组合框的下拉列表值根据在这个组合框输入的内容自动筛选,应该不是什么很复杂的功能,只不过我太菜,不会

豆豆 发表于:2009-07-01 18:29:07

修改下

Private Sub 组合框名_Change()
    Dim a As String
    a = "*" & Me.组合框名.Text & "*"
    Me.组合框名.RowSource = "SELECT 商品ID, 货品编号 FROM 商品目录 Where 货品编号 like '" & a & "';"
    Me.组合框名.Dropdown
   
End Sub

试试



樟树 发表于:2009-07-01 22:27:17

这个问题看似很简单,但是我研究了很久都没有成功,你可以看看这里,是我们的讨论http://www.accessoft.com/bbs/showtopic.asp?Id=1622



点燃一支烟 发表于:2009-07-02 11:14:44
这其实就是组合框的渐进式查询或叫做逐键查询,3楼代码是不可能实现的

点燃一支烟 发表于:2009-07-02 11:18:10
楼住期待的我想应该是在击键的过程中不断对应弹出并更新下拉菜单的选项,这时焦点是不希望离开的

总记录:6篇  页次:1/1 9 1 :