如何把子窗体精确查询显示出的内容变成筛选所有这个内容的相同外键比如下面的图

邹先生　发表于：2021-04-13 20:46:32 　

比如我查询的是（青岛英杰包装柔印技术有限公司）实际筛选的是所有（KEY号)是 22的数据

邹先生发表于：2021-04-13 20:49:24

'==============================================================================
原代码如下========================================================

Private Sub Text1_Change()
'列表框筛选代码如下
Dim strWhere As String

strWhere = Trim$(Me.Text1.Text)
If Len(strWhere) > 0 Then

strWhere = " [企业_名称] & [工商_注册号] & [Key号] & [组织机构_代码证号] & [受理_方式] & [经办人] & [经办人_电话] & [单位_电话] & [单位_地址] & [是否有_经办人签字] Like '*" & strWhere & "*'" _
& " and [企业_名称] & [工商_注册号] & [Key号] & [组织机构_代码证号] & [受理_方式] & [经办人] & [经办人_电话] & [单位_电话] & [单位_地址] & [是否有_经办人签字] not like '*奥巴马*'"

End If

'设置子窗体的筛选器条件
Me.Child5.Form.Filter = strWhere
'应用筛选
Me.Child5.Form.FilterOn = True

End Sub

Top

西出阳关无故人发表于：2021-04-19 17:17:35

试一下:

Private Sub Text1_Change()
'列表框筛选代码如下
Dim strWhere As String

dim key号
strWhere = Trim$(Me.Text1.Text)
If Len(strWhere) > 0 Then

strWhere = " [企业_名称] & [工商_注册号] & [Key号] & [组织机构_代码证号] & [受理_方式] & [经办人] & [经办人_电话] & [单位_电话] & [单位_地址] & [是否有_经办人签字] Like '*" & strWhere & "*'" _
& " and [企业_名称] & [工商_注册号] & [Key号] & [组织机构_代码证号] & [受理_方式] & [经办人] & [经办人_电话] & [单位_电话] & [单位_地址] & [是否有_经办人签字] not like '*奥巴马*'"

End If
key号=nz(dlookup("key字段名","表或查询名",strWhere),"")
if key号<>"" then
'设置子窗体的筛选器条件
Me.Child5.Form.Filter = "key号 ='" & key号 & "'" '假设key号为文本
'应用筛选
Me.Child5.Form.FilterOn = True
end if

End Sub

Top

邹先生发表于：2021-05-08 15:46:36

成功了

实在不好意思现在才来看到您发的信息真的十分感谢请受我一拜

Top

西出阳关无故人发表于：2021-05-08 18:20:24

成功了,就在你认为解决问题的楼层上点击"最佳答案"按钮,完结提问.

Top

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

Access交流中心

如何把子窗体精确查询显示出的内容变成 筛选所有这个内容的相同外键 比如下面的图

如何把子窗体精确查询显示出的内容变成筛选所有这个内容的相同外键比如下面的图