| |
ＶＢＡ必須になります。
方法ですが、
１ 出力したいテキストファイル名を生成
２ 当該週のレコードだけを抽出
３ ２をテキストファイルに出力
４ １から３をループ
という流れになります。
２の「当該週のレコードだけを抽出」ですが、
クエリで抽出する方法とレコードセットを使う方法があります。
クエリで抽出する方法だと、ループにおける各回ごとに異なるクエリを作る必要があります。
そのクエリは、手作業で作るのは面倒なので、ＶＢＡで作ることになります。
その手順は、ＤＡＯの QueryDef オブジェクトの SQL プロパティを毎回書き替える
という方法になります。
SQL プロパティには、選択クエリのＳＱＬ文を指定することになるので、
ＳＱＬ文を自分で書けることが必要です。
でも、ＳＱＬ文について解説しているサイトを見つけ、３０分も勉強すれば、
簡単な選択クエリであれば、ＳＱＬ文で表現できるようになると思います。
レコードセットで抽出する方法だと、
レコードセット取得に当たって、ＳＱＬ文を指定することになります。
３の「テキストファイルに出力」ですが、
２でクエリにより抽出した場合は、TransferText メソッドを使います。
ほかにも OutputTo メソッドも使えると思いますが、
私は、OutputTo メソッドは使ったことがありません。
なお、TransferText メソッドだと、レコードの並び順が、クエリとテキストファイルとで
異なる可能性があります。
テキストファイルでの並び順もクエリどおりにしたいのであれば、
クエリにおいて並び順を指定しておき（ＳＱＬ文で ORDER BY 句を指定する）、
クエリをレコードセットとして取得して、１レコードずつPrint # ステートメントで
テキストファイルに出力します。
レコードセットで抽出する方法だと、
レコードごとに Print # ステートメントを使って、テキストファイルに出力します。
>また、その月の週で1,2,4,5週目はデータがあったとして、
>第3週目のデータがなければ、空データをして保存しなければ、
>なりません。
レコードの抽出をクエリで行うならば、DCount 関数を使い、
レコードセットで行うならば、RecordCount プロパティを使って、
何件抽出できたかを取得して、レコード件数が０件の場合と、１件以上の場合とで
場合分けすれば（If文）、いいと思います（
|
|
かるびの
- 15/11/2(月) 15:02 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
