请教开发平台自定义查询窗体代码

我想做一个自定义的查询窗体替换平台的查询窗体,但不知道代码该如何写,意思就是跟新增和修改窗体一样,当点击查询窗体上的查询按钮以后就在主数据窗体出现查询的结果.,我按<鞋底进仓跟踪系统>设置好的代码但不能实现主数据窗体的查询.如图

如上图,我按<鞋底进仓跟踪系统>设置好的代码如下:请问高手该如何修改代码.

查询按钮代码如下:

Private Sub Cmdcx_Click()
On Error GoTo Err_cmdcx_Click
 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 "
    End If
 '如果输入了条件，那么strWhere的最后肯定有" AND "，这是我们不需要的，
    '要用LEFT函数截掉这5个字符。
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
    Debug.Print strWhere
 '让子窗体应用窗体查询
    Me.frmccsj_child.Form.Filter = strWhere
    Me.frmccsj_child.Form.FilterOn = True
Exit_cmdcx_Click:
    Exit Sub
Err_cmdcx_Click:
    MsgBox Err.Description
    Resume Exit_cmdcx_Click
End Sub

清除按钮代码如下:

Private Sub Cmdqc_Click()
On Error GoTo Err_cmdqc_Click
 Dim ctl As Control
    For Each ctl In Me.Controls
        '根据ctl的控件类型来选择
        Select Case ctl.ControlType
            Case acTextBox '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)
                If ctl.Locked = False Then ctl.Value = Null
            Case acComboBox '是组合框，也要清空
                ctl.Value = Null
            '其它类型的控件不处理
        End Select
    Next
    '取消子窗体的筛选
    Me.frmccsj_child.Form.Filter = ""
    Me.frmccsj_child.Form.FilterOn = False
    Exit_cmdqc_Click:
    Exit Sub

Err_cmdqc_Click:
    MsgBox Err.Description
    Resume Exit_cmdqc_Click
End Sub

谢谢高手解答,本人是个菜鸟.我的主数据窗体名称是frmccsj_child