请各位大侠帮忙看看哪里出错了，谢谢

导出子窗体数据出错，，

下面是子窗体查询代码：

Private Sub Command79_Click()
Dim strWhere As String
strWhere = ""
If Not IsNull(Me.型号) = True Then
  strWhere = strWhere & "([partNO] like '*" & Trim(Me.型号) & "*') AND "
End If
If Not IsNull(Me.ghs) Then
  strWhere = strWhere & "([supplierName] like '*" & Trim(Me.ghs) & "*') AND "
End If
If Me.Option2 = True Then
  strWhere = strWhere & "([Payment]=false) AND "
End If
If Not IsNull(Me.buyer) Then
  strWhere = strWhere & "([BuyerName] like '*" & Trim(Me.buyer) & "*') AND "
 
 
End If
If Not IsNull(Me.StarDate) Then
strWhere = strWhere & "([date] >= #" & Me.StarDate & "#) and "
End If

If Not IsNull(Me.EndDate) Then
strWhere = strWhere & "([date] <= #" & Me.EndDate & "#) and "
End If

If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If

'-----------------
' 开始日期是否大于结束日期

 If IsNull(Me.StarDate) Or IsNull(Me.EndDate) Then
      Me.[子窗体].Form.Filter = strWhere
      Me.[子窗体].Form.FilterOn = True
  
    Else
  If Not IsNull(Me.StarDate) Or IsDate(Me.StarDate) And Not IsNull(Me.EndDate) Or IsDate(Me.EndDate) Then
       If CDate(Me.StarDate) > CDate(Me.EndDate) Then
         MsgBox "你选择的开始日期晚于结束日期，条件不成功，请重新选择", 64, "日期选择错误!"
      
       Exit Sub
      
       End If
      
      End If
  End If

Me.[子窗体].Form.Filter = strWhere
Me.[子窗体].Form.FilterOn = True

End Sub

导出为EXCEL的代码为

  Dim qdf As DAO.QueryDef
    Dim strWhere, strSQL As String
   
    strWhere = Me.[子窗体].Form.Filter
    If strWhere = "" Then
        '没有条件 时
        strSQL = "SELECT * FROM ［采购查询］
    Else
        '有条件时
        strSQL = "SELECT * FROM ［采购查询］ WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

   
Exit_Command81_Click:
    Exit Sub

Err_Command81_Click:
    MsgBox Err.Description
    Resume Exit_Command81_Click
   
End Sub