组合框选中好，自动跳出对应显示组合框选中的产品型号！！

嘟嘟　发表于：2016-12-14 14:08:19 　

复制

Top

MDZZ 发表于：2016-12-15 08:22:17

组合框筛选？

【Access示例】-整合组合框筛选数据的几种办法[Access软件网] http://www.accessoft.com/article-show.asp?id=11120

Top

嘟嘟发表于：2016-12-15 09:32:18

不是这种效果！

Top

仙来发表于：2016-12-15 10:51:00

http://www.accessoft.com/article-show.asp?id=9099

Top

嘟嘟发表于：2016-12-15 13:58:18

也不是这种效果！

Top

嘟嘟发表于：2016-12-15 14:26:21

我要的是这种效果！！

Top

嘟嘟发表于：2016-12-15 14:28:02

在产品型号输入完，下表的子窗体就会显示对应的产品型号部件，仅此而已！！帮帮忙

Top

MDZZ 发表于：2016-12-15 14:31:55

组合框更新后筛选下面子窗体的数据就这个简单

Top

MDZZ 发表于：2016-12-15 14:32:37

【Access文章】带有明细子窗体的查询/主子窗体的查询[Access软件网] http://www.accessoft.com/article-show.asp?id=10246

跟这个类似

Top

嘟嘟发表于：2016-12-15 14:48:55

那样麻烦，我还是按查询按钮！

我那样只要输入，下表的窗体就自动跳出对应的数据！！

Top

MDZZ 发表于：2016-12-15 15:37:17

改下不就行了

Top

嘟嘟发表于：2016-12-15 15:59:55

我是个菜鸟，改来改去，一直失败！

Dim strWhere As String
strWhere = ""
If Not IsNull(Me.产品型号) Then
strWhere = strWhere & "产品型号 like '*" & Me.产品型号 & "*' and "
End If
If Not IsNull(Me.产品型号) Then strWhere = strWhere & "产品型号 like '*" & Me.产品型号 & "*' and "
If Len(strWhere) > 0 Then strWhere = Left(strWhere, Len(strWhere) - 5)
Me.数据库.Form.Filter = strWhere
Me.数据库.Form.FilterOn = True

Top

嘟嘟发表于：2016-12-15 16:02:40

Dim temptxt
temptxt = [产品型号]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim strDocName As String
Dim strFilter As String
strDocName = "数据库"
DoCmd.OpenForm strDocName

Forms!数据库.RecordSource = "select * from [数据库] where [产品型号] = '" & temptxt & "'ORDER BY [产品型号] asc"

这样却是弹出一个窗体，而且也不是数据表的形式

好无奈

Top

MDZZ 发表于：2016-12-15 16:03:16

Dim strWhere As String

strWhere = "产品型号 like '*" & Me.产品型号 & "*'

Me.数据库.Form.Filter = strWhere
Me.数据库.Form.FilterOn = True

写在组合框更新后

Top

嘟嘟发表于：2016-12-15 16:08:03

Top

嘟嘟发表于：2016-12-15 16:22:00

Top

总记录：15篇页次：1/1 9 1 :

Access交流中心

组合框选中好，自动跳出对应显示组合框选中的产品型号！！