| |
VBAで一括エクスポートさせる際にレコード数が０の時はエクスポートさせない方法
Access ver. 2010
OS Windows7
はじめまして。お世話になります、中村と申します。
現在、1つのテーブルから複数の抽出条件でクエリを作成し、
その複数のクエリを一括でCSVにエクスポートできるようにしています。
しかし、テーブルの内容を都度リセットして更新するような使い方をしている関係で
クエリによってはレコードが０の場合も出てきます。
その場合、空白のCSVとiniファイルがエクスポートされてしまいます。
そこで、レコードが０の場合はエクスポートしないという分を追加したいのですが
自分の知識では分からず、こちらに質問させて頂きました。
現在のVBAは以下の通りです。
---
Private Sub export_Click()
Dim intReturn As Integer
intReturn = MsgBox("○○をエクスポートします" & vbNewLine & "本当によろしいですか？", vbQuestion + vbYesNo, "確認")
If intReturn = vbNo Then Exit Sub
On Error GoTo cmdエクスポート_Click_Err
DoCmd.TransferText acExportDelim, "", "Q_1", "C:\***" & "\***_" & Forms!Menu!codef & "_" & Format(Now(), "yyyymmddhhnnss") & ".csv", False, ""
DoCmd.TransferText acExportDelim, "", "Q_2", "C:\***" & "\***_" & Forms!Menu!codef & "_" & Format(Now(), "yyyymmddhhnnss") & ".csv", False, ""
DoCmd.TransferText acExportDelim, "", "Q_3", "C:\***" & "\***_" & Forms!Menu!codef & "_" & Format(Now(), "yyyymmddhhnnss") & ".csv", False, ""
DoCmd.TransferText acExportDelim, "", "Q_4", "C:\***" & "\***_" & Forms!Menu!codef & "_" & Format(Now(), "yyyymmddhhnnss") & ".csv", False, ""
DoCmd.TransferText acExportDelim, "", "Q_5", "C:\***" & "\***_" & Forms!Menu!codef & "_" & Format(Now(), "yyyymmddhhnnss") & ".csv", False, ""
MsgBox "エクスポートが完了しました" & vbNewLine & "OKをクリックすると保存されたフォルダが開きます", vbInformation, "エクスポート"
Call Shell("Explorer /root,c:\***", 1)
cmdエクスポート_Click_Exit:
Exit Sub
cmdエクスポート_Click_Err:
MsgBox Error$
Resume cmdエクスポート_Click_Exit
End Sub
---
何卒、宜しくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
