求助:查询导出为EXCEL

cute2tiger

请高手帮助一下小弟.
在一个查询窗体下. 可以通过一个跟据不同查询将结果导出为EXCEL. 问题以前用MDB时可以运行. 变为ADP后就不行了. 运行时会报错"对象变量未设置或With块变量未设置"
谢谢高手帮助.

其中出错代码为:
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.Target子窗体.Form.Filter
     
    If strWhere = "" Then
              strSQL = "SELECT * FROM [target] WHERE sales = '" & user & "'"
     '没有条件
    End If
   
    If strWhere <> ""  Then
     
        strSQL = "SELECT * FROM [target] WHERE " & strWhere & " and sales ='" & user & "'"
    End If
         
            Debug.Print strSQL
    Set qdf = CurrentDb.QueryDefs("Target查询")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "Target查询", acFormatXLS, , True
   
Exit_cmd导出_Click:
    Exit Sub
Err_cmd导出_Click:
    MsgBox Err.Description
    Resume Exit_cmd导出_Click
   
End Sub

[ 本帖最后由 cute2tiger 于 2007-8-1 22:46 编辑 ]