新手求助 另一窗体子窗体赋值问题

关注这个网站很长时间了，今天是第一次正式注册账户，跟大家一起学习access，以后希望大家多多帮我。

今天我研究这个遇到个困难，是这样的：

我复制了新增窗体，将他变成查询窗体，输入查询内容后，点击查询打开一个窗体，并在打开窗体的子窗体中显示查询结果。

可是子窗体不能显示，请帮助我谢谢，代码如下：

  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
    If Not IsNull(Me.联系电话) Then
        strWhere = strWhere & "([联系电话] like '*" & Me.联系电话 & "*') AND "
    End If
    If Not IsNull(Me.身份证号码) Then
        strWhere = strWhere & "([身份证号码] like '*" & Me.身份证号码 & "*') AND "
    End If
    If Not IsNull(Me.性别) Then
        strWhere = strWhere & "([性别] like '*" & Me.性别 & "*') AND "
    End If
    If Not IsNull(Me.所属公司) Then
        strWhere = strWhere & "([所属公司] like '*" & Me.所属公司 & "*') AND "
    End If
    If Not IsNull(Me.所在部门) Then
        strWhere = strWhere & "([所在部门] like '*" & Me.所在部门 & "*') AND "
    End If
    If Not IsNull(Me.公司电话) Then
        strWhere = strWhere & "([公司电话] like '*" & Me.公司电话 & "*') AND "
    End If
    If Not IsNull(Me.当前职级) Then
        strWhere = strWhere & "([当前职级] like '*" & Me.当前职级 & "*') AND "
    End If
    If Not IsNull(Me.当前职务) Then
        strWhere = strWhere & "([当前职务] like '*" & Me.当前职务 & "*') AND "
    End If
    If Not IsNull(Me.所在项目) Then
        strWhere = strWhere & "([所在项目] like '*" & Me.所在项目 & "*') AND "
    End If
    If Not IsNull(Me.入职日期起) Then
        strWhere = strWhere & "([入职日期] >= #" & Format(Me.入职日期起, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.入职日期止) Then
        strWhere = strWhere & "([入职日期] <= #" & Format(Me.入职日期止, "yyyy-mm-dd") & "#) AND "
    End If
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    Debug.Print strWhere
    DoCmd.OpenForm "frm员工查询明细"
    frm员工查询明细子窗体.Form.recordsourse = strWhere

附件如下

点击下载此附件