父子窗体查询

'请按红色的代码修改你的查询记录按钮的单击事件代码即可

Private Sub 查找_Click()
  
    Dim strwhere As String  '定义条件字符串
   
    strwhere = "" '设定初始值－空字符串
   
    '判断【Text324】文本框是否有输入的值
    If Not IsNull(Me.Text324) Then
        '有输入
        strwhere = strwhere & "([产品编号] like '*" & Me.Text324 & "*') "
    Else
     strwhere = strwhere & "([产品编号]>'')"
    End If
   
    '让子窗体应用窗体查询
    'Me.原料清单查询.Form.Filter = strwhere
    'Me.原料清单查询.Form.FilterOn = True
    'Forms!原料清单1.Form.Filter = strwhere
    'Forms!原料清单1.Form.FilterOn = True
    Me.Filter = strwhere '为主窗体设置筛选条件
    Me.FilterOn = True   '主窗体筛选有效
    Me.Requery           '刷新主窗体
End Sub