次の例では、使っているクエリの名前は、qryAprint個人顧客 です。Private Sub cmdエクスポート_Click()On Error GoTo cmdエクスポート_Click_Err    'カレントデータベースと同じフォルダに書き出し    DoCmd.TransferText acExportDelim, "", "qryAprint個人顧客", Cur