Word (一般機能)

Wordの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Word 2016)
差込印刷に関して
投稿日時: 20/11/16 14:05:42
投稿者: wand

こんにちは。
Access2016で作成したクエリのWord2016への差し込み印刷方法に関して教えてください。
(クエリ)
店コード会社名
1    A社
2    B社
2    C社
3    D社
4    E社
4    F社
となっている場合に、差し込み印刷で店コードごとにページを変えて
会社名を複数行記載したいです。
(1ページ目)
店コード会社名
1    A社
(2ページ目)
店コード会社名
2    B社
    C社
(3ページ目)
店コード会社名
3    D社
(4ページ目)
店コード会社名
4    E社
    F社
 
検索したところ、エクセルであれば「Next Record If」で可能なようですが、
Accessからの差し込み印刷でも同じように行う方法はありますでしょうか。
 
よろしくお願いいたします。

回答
投稿日時: 20/11/16 15:01:28
投稿者: sk

引用:
差し込み印刷で店コードごとにページを変えて
会社名を複数行記載したいです。

引用:
検索したところ、エクセルであれば「Next Record If」で可能なようですが、
Accessからの差し込み印刷でも同じように行う方法はありますでしょうか。

データソースが Excel のワークシートでも Access のテーブル/クエリでも、
原理的には <<Next Record If>> を使用することになります。
 
問題は、Access のテーブル/クエリ側に
「次のレコードに移動する条件」が格納された
レコード/フィールドを設けられるかどうかでしょう。

投稿日時: 20/11/16 16:50:29
投稿者: wand

skさん
 
ご返信ありがとうございます。
投稿後に考えまして下記のように判定項目を追加しました。
判定    店コード会社名
〇    1 A社
〇    2 B社
△    2 C社
〇    3 D社
〇    4 E社
△    4 F社
そのうえで <<Next Record If>> にて
(ルール)
フィールド名:判定
比較:等しくない
比較対象:〇
としたのですが、意図した結果にならずとなっております。
ルールの設定等が根本的に間違っておりますでしょうか。
よろしくお願いいたします。

回答
投稿日時: 20/11/16 17:26:15
投稿者: sk

教えて!Helpdesk より:
http://office-qa.com/Word/wd465.htm
 
上記記事で紹介されているのと同様の方法を採られるのであれば、
まず必要なのは、次のようなレコードが格納されたテーブルです。
 

----------------------------------------
差込順    店コード    ID    会社名
----------------------------------------
1         1           1     A社
2         1
3         2           2     B社
4         2           3     C社
5         2
6         3           4     D社
7         3
8         4           5     E社
9         4           6     F社
10        4
----------------------------------------

各[店コード]グループの最後の行の[会社名]については、
Null ではなく空文字列("")が格納されるようにしておきます。

投稿日時: 20/11/17 17:23:59
投稿者: wand

skさん
再度のご回答ありがとうございます。
無事、望んだ通りに差し込みできました。
 
Accessの操作になりますが、
1 追加クエリで店コード毎の空白行をテーブルに追加
2 1で追加したテーブルを選択クエリにて店コード毎に並べ替え(空白行を最下行に)
 
Wordの差し込みデータに2で作成したクエリを選択
という手順で可能になりました。
 
アドバイスありがとうございました。