access中if和like嵌套_access多子窗体同时应用同一查询条件的问题

子窗体1和子窗体2我通过选项卡的方式放在主窗体上，而且两个子窗体都有A字段，我现在在主窗体上设置对字段A的输入框及一个查询按钮B，要求按下查询按钮B时子窗体1和子窗体2同时应用筛...

子窗体1和子窗体2我通过选项卡的方式放在主窗体上，而且两个子窗体都有A字段，我现在在主窗体上设置对字段A的输入框及一个查询按钮B，要求按下查询按钮B时子窗体1和子窗体2同时应用筛选显示，请问查询按钮B的代码如何写？谢谢。下面我写的代码有点问题，实现不了。

Private Sub 查询按钮B_Click()

On Error GoTo Err_查询按钮B_Click

Dim strWhere As String '定义条件字符串

strWhere = "" '设定初始值－空字符串

'判断子窗体1【字段A】条件是否有输入的值

If Not IsNull(Me.字段A) Then

'有输入

strWhere = strWhere & "([子窗体1]![字段A] like '" & Me.字段A & "') AND "

End If

'判断子窗体2【字段A】条件是否有输入的值

If Not IsNull(Me.字段A) Then

'有输入

strWhere = strWhere & "([子窗体2]![字段A] like '" & Me.字段A & "') AND "

End If

'如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，

'要用LEFT函数截掉这5个字符。

If Len(strWhere) > 0 Then

'有输入条件

strWhere = Left(strWhere, Len(strWhere) - 5)

End If

'让子窗体应用窗体查询

Me.子窗体1.Form.Filter = strWhere

Me.子窗体1.Form.FilterOn = True

Me.子窗体2.Form.Filter = strWhere

Me.子窗体2.Form.FilterOn = True

Exit_查询按钮B_Click:

Exit Sub

Err_查询按钮B_Click:

MsgBox Err.Description

Resume Exit_查询按钮B_Click

End Sub

展开