Access交流中心

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

关于组合框下拉筛选问题

陈龙  发表于:2011-10-17 11:00:17  
复制

各位高人指点一下,具体文字我描述不太清楚

 

下载附件打开窗体,我里面有截图附说明,这样比较清楚。

 

点击下载此附件

 

Top
麥田 发表于:2011-10-17 11:15:19
别具一格的查询窗体-Access软件网
http://www.accessoft.com/article-show.asp?id=4790  是这种

陈龙 发表于:2011-10-17 12:05:01

麦田你好,你上面提供链接的例子不是我要的那种,

我要的是组合框筛选,不是文本框加列表框的。

能帮我再看下吗?



叶海峰 发表于:2011-10-17 13:16:49
Private Sub 钢号_KeyPress(KeyAscii As Integer)
    Me.钢号.RowSource = "SELECT 产品名称表.产品名称 FROM 产品名称表 where 产品名称 like'*" & Me.钢号 & "*'"
    Me.钢号.Dropdown
End Sub
组合框输入内容后按Enter

丘山 发表于:2011-10-17 18:35:30
Private Sub 钢号_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode <= 40 And KeyCode >= 37 Then
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.钢号.RowSource = "SELECT 产品名称表.产品名称 FROM 产品名称表 where 产品名称 like'*" & Me.钢号 & "*'"
    Me.钢号.Dropdown
    End If
End Sub
这个,应该可以

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