Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3049 / 9994

←次へ　｜　前へ→


	【10209】Re:宛名ラベルの余りに・・

hatena - 08/2/7(木) 8:13 -


	引用なし

	パスワード

案１　ユニオンクエリを使う方法下記のような連番の入ったテーブルを作成します。 T_連番　テーブル -------- 連番　　フィールド（数値型） -------- 1 2 3 4 ・・・ 20 １シート20ラベルなら、20まで。あと、リポートのレコードソースと同じフィールド構成のテーブルを作成して、名前を T_常用顧客とします。そこに１件だけ、常用する顧客のデータを入力します。現状のレポートのレコードソースのクエリは、Q_宛名と仮定します。レポートのレコードソースを下記のように設定します。 SELECT 0 AS Type, Q_宛名.* FROM Q_宛名 UNION ALL SELECT 1 AS Type, T_常用顧客.* FROM T_常用顧客, T_連番 WHERE T_連番.連番 > DCount("*","Q_宛名") Mod 20; 並べ替え/グループ化の設定で Type の昇順にします。この方法は、宛名ラベルを指定位置から指定枚数印刷する方法 x7net.com/~access/AcTipsRptHowToPrintRabelSpecificNumber.html で紹介されている連番テーブルを利用する方法の応用です。案2 は後で投稿します。