へぽ～仕事時々ひとりごと

Access、、、てきとー使いのSQL素人にはバージョンアップはつらーい。。。

ボタン配置して、今表示しているデータだけのレポート表示して、ついでに、
ファイルにエクスポートしよう。ともくろむ。（出力形式も指定で、ファイル名も自動でつけて。。。
ってフツーだと思う。
いちいちプロンプトで聞いてくるのって、初めて使う時の初心者用というか、
手入力してて、全角・半角違いとか嫌だし。

でも早くも、OutputTo のType指定でつまづく。。。

HELPが見難くなりました。。。これも慣れか


DoCmd.OutputTo(ObjectType, ObjectName, OutputFormat, OutputFile, AutoStart, TemplateFile, Encoding, OutputQuality)


引数 ObjectType
これが知りたいのに、
”出力形式を示す AcFormat クラスの定数を指定します。”で、
HELPで一覧表示がない。。。文章内にもちょっとしか出てない

テキスト　acFormatTXT
rtf　acFormatRTF
pdf　acFormatPDF
xls　acFormatXLS
と調べなきゃ…

定数 説明
acFormatASP ActiveServerPages
acFormatDAP データアクセスページ
acFormatHTML HTML形式
acFormatIIS Microsoft IIS形式
acFormatRTF リッチテキストフォーマット形式
acFormatTXT テキスト形式
acFormatXLS Excel形式
モーグさんありがとうございます。


Private Sub btn_FileExt_Click()
'選択レポート表示時の設定
sssNo = Me!txtbox1

Dim stDocName, Outfile As String
stDocName = "サンプルレポート"
Outfile = Format(Now, "yymmdd") & "_" & "登録No" & sssNo & ".pdf"

’フィルタかけてレポート開く
DoCmd.OpenReport stDocName, acPreview, , "受付No=" & sssNo
’それをエクスポートする
DoCmd.OutputTo acReport, stDocName, , Outfile, 1
’レポート閉じる
DoCmd.Close acReport, stDocName
End Sub