Access2013VBAにて、条件分岐によりExcelシートを印刷したいのですが。

クエリで抽出したレコードの特定のフィールドの値が、1000以下ならAA.xlsを、1001以上ならAA.xlsとBB.xlsの両方をを印刷、クエリでの抽出数がゼロの場合は、何も印刷しないとする事はできるのでしょうか？
ご教示お願いします。

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2016/03/30 14:41

一つの方法として、、、

クエリをＳＱＬ文にして、ＡＤＯなどで開いて値を求め、セレクト文などで印刷するものを分ける

Sub cmdPRT_clicked
dim con as adodb.connection
dim rst as adodb.recordset
Set con = CurrentProject.Connection
strSQL = "SELECT * FROM ...."
rst.open strSQL,con,adopenkeyset, adlockoptimistic
intFiledValue = RST!FIELDxxx
rst.close
SELECT CASE intFiledValue
case < 1
exit sub
case > 1000
prtXLS("AA.xls")
prtXLS("BB.xls")
case else
prtXLS("AA.xls")
end select
end sub


sub prtXLS(fileName)
・・・・
end sub

などのように。
エラー処理もしていないし、検証もしていないし、スペルミスすらチェックしていません。
実際に作る際には、レコード件数によって、エラー処理等をしないといけなくなる。

この回答へのお礼

ありがとうございます。
色々試してみます。

お礼日時：2016/04/04 00:10