Access フォーム上でクエリによるcsv出力

質問

Accessで障害履歴を管理するDBを作っています
・障害内容をフォームより起票して障害履歴テーブルに保存される
・月に一度、前月分の障害をクエリでcsvに抽出
・抽出する際に発生日時のフィールドを[Like "2021/04/**"]の
抽出条件を入れて指定した月をクエリで抽出しています。

今回悩んでいるところは、毎回クエリのデザインビューを開き
発生日時の抽出条件に[Like "2021/04/**"]を入れて抽出ではなく
フォーム上で2021年○月と指定して抽出というボタンを実行すると
自動でcsv出力まで出来るのを目指しています。
※csv出力する際に指定したファイル名が自動でつけばなお良い

イメージとしてはフォーム内にエクスポートというボタンを作り、
それを押すと障害発生日時の○年○月を指定するポップアップが表示され、日付指定して実行すると○月分の障害履歴が指定したファイル名でcsvにエクスポートされる。
またはフォーム内に障害発生日時の○年○月を指定するテキストボックスがあり、日付指定後にエクスポートのボタンを押すと同様にcsv出力されるのを作りたいのですが可能でしょうか？

回答No.4

kkkkkm · ベストアンサー

> 各行が折返して全体表示がONに

改行されているフィールドがあるという事でしょうか

たとえばそれがTestというフォールドでしたら

クエリで新しいフィールドのフィールド名に
NEW_Test: Replace(Replace([Test],Chr(10),""),Chr(13),"")
としてTestを表示から外して実行してみてください。
NEW_Testがフィールド名になるので適宜変更してください。

回答No.3

kkkkkm

No2のおまけの続きです。

年月かどうかを判別させたい場合は

「指定月」テキストボックスの「定型入力」はNo2のままで「書式」を
yyyy/mm
にして
クエリの条件を
Like Format([Forms]![フォーム名]![指定月],"yyyy/mm") & "/*"
にして試してみてください。

補足

ありがとうございます。クエリは無事できました！
csv出力するコードも以下で出来ましたが、csv出力された
各行が折返して全体表示がONになった状態で出力されるため、csvを開いたさいに見た目が悪かったです。
csv出力する際に折り返して全体表示をOFFにした状態で出力するコードはありますでしょうか。

Private Sub CSVエクスポート_Click()
Dim strPath As String
Dim strTblName As String
Dim strmsg As String

strPath = CurrentProject.Path & "\"
strTblName = "Q_障害テスト"

strmsg = "csvファイルへ出力します。" & Chr(13) & _
"よろしければ、OKをクリックして下さい。"

If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.TransferText acExportDelim, , _
strTblName, strPath & "Q_障害テスト" & " .csv", True
End If
Exit Sub

ErrorTrap:
If Err.Number = 3044 Then '
MsgBox "パス指定が誤っています。", vbCritical
Else
MsgBox "予期せぬエラーが発生しました。", vbCritical
End If
End Sub

回答No.2

kkkkkm

No1のおまけです。

「指定月」テキストボックスの「定型入力」に
0000/00;0;
としておくと
/を入力しなくて済みますし6桁の数値入力が必須になります。
ただし年月かどうかは関知しません。

回答No.1

kkkkkm

フォーム内にたとえば「指定月」という名前にテキストボックスを作成し
クエリの条件に
Like [Forms]![フォーム名]![指定月] & "/*"
として
「指定月」テキストボックスに
2021/04
と入力してからボタンクリックでクエリが実行されるようにして試してみてください。