スキルアップ・問題解決なら、モーグにおまかせ！

クエリ（売上集計データ出力）の実行結果をcsvに出力するイベントプロシージャです。
 
qdf.TransferTextのところで止まってしまいます。
記述に問題はないでしょうか？
 
 
Private Sub データ出力_Click()
 
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
 
    Dim strqueryname As String
    strqueryname = "Q売上集計データ出力"
 
    ' 出力ファイル名の作成 (日付時刻を含む)
    Dim strfilename As String
    strfilename = "C:\Users\k1\Documents\uriage_" & Format(Now(), "yyyyMMdd_HHmmss") & ".csv"
 
    Set db = CurrentDb
    Set qdf = db.QueryDefs(strqueryname)
 
    ' CSVファイルに出力 (カンマ区切り)
    qdf.TransferText acExportDelim, strfilename, "", True, ","
 
    ' オブジェクトの解放
    Set qdf = Nothing
    Set db = Nothing
 
    MsgBox "データ出力が完了しました。"
 
Exit Sub

 qdf.TransferText
を
 DoCmd.TransferText
に変えたらいけました。