A 回答 (10件)
- 最新から表示
- 回答順に表示
No.9
- 回答日時:
ちょっと遅くなったので既に解決されているかもしれませんが、通常コードから参照できるのは実際のオブジェクトになった物だけですので[個数]フィールドを配置して、非表示にしておいてください。
(この際他のオブジェクトとかさなってもかまいません)これで、[個数]は印刷されずに必要な枚数印刷されるはずです。No.8
- 回答日時:
コードを記述したモジュールウィンドウですね。
^^;;2003だとそこの[デバッグ]-[○○のコンパイル]を実行しておいてください。
(○○はデータベースの名前になっているかと思います)
御礼が非常に遅くなり申し訳ありません。
実はまだエラーが出るのです。
> If maisuu >= [数量] Then
のところで、私のプログラムでは個数になっていますので、[個数]に置き換えているのですが、”フィールド[個数]がありません”が出てしまうのです。
me.[個数]などともしてみましたが駄目でした。
なお、個数は印刷しませんが対象となっているテーブルの中のフィールドとして存在しています。
何度も申し訳ありませんが、よろしくお願いいたします。
No.7
- 回答日時:
レポートデザインにおいて、[表示]-[並べ替え/グループ化の設定]をクリック。
と、そのウィンドウが開きますので、
[フィールド/式]の項目に商品毎のIDもしくは品番等をリストから選んでください。
その項目でグループ化の設定をしたことになりますが、元々商品単位としては重複はしていないためこの時点では何も変わらないはずです。ただし今回の印刷リストの中に同じ商品が複数ある場合は1つにまとめられてしまうこともあるので注意してください。
右側の[並べ替えの順序]は昇順にでもしておいてください。
下の段に[グループヘッダー]という項目があると思いますのでそれを[はい/Yes]に設定してください。
これで、グループ化の設定は終わりですのでとりあえずこのウィンドウは閉じてもOK。
この時点でレポートのデザインの[詳細]の上の段に[品番ヘッダー](項目名+ヘッダーになっていると思います)が追加されていると思います。
このヘッダーの中にもいろいろ印刷したい物があれば項目を追加して印刷することも可能ですが今回は何もいらないのでここのヘッダーの幅を縮めて0にしてください。([詳細]項目の上の方をドラッグすると縮まります。)
デザインの設定はこれで終わりです。次にコードの方に移ります。
デザインにおいて[表示]-[コード]をクリックしてください。
[Report_品番ラベルクラスモジュール]などというレポート名の付いたウィンドウが開きます。
そこに
Dim maisuu As Integer
をまず1行追加してください。
つぎに、デザインをクリックして、先ほど作った[品番ヘッダー]をクリックし、プロパティのイベントのタブをクリック。
[フォーマット時]の項目をリストから選び[Event Procedure]としてください。そのあと右側に[・・・]と付いたボタンをクリックしてください。
すると、先ほど開いたコードウィンドウに
Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
End Sub
というのが追加されていると思います(ヘッダーの番号が違うかもしれませんが)
この中間の行に
maisuu = 1
を1行加えて
Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
maisuu = 1
End Sub
としてください。
同様に[詳細]の[フォーマット時]にもイベントを設定して
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If maisuu >= [数量] Then
Me.NextRecord = True
Else
Me.NextRecord = False
End If
maisuu = maisuu + 1
End Sub
としてください。
入力後、コードウインドウで、[デバッグ]-[すべてのモジュールをコンパイルして保存]を実行しておいてください。
入力に間違いなどがあればエラーも出るかもしれませんがよく見て直してください。
後はこのレポートをプレビューすればOKのはずです。
がんばってみてください。
ありがとうございます。
やってみたのですが、最後のコードウィンドウというのがわかりませんでした。これかなって思う画面はあるのですが、そこには、[すべてのモジュールをコンパイルして保存]がないのです。
あと一歩のところまで来ているのに残念です。
できましたら、再度教えていただけますでしょうか?
Verは、2003です。
なお、3/7まで、インターネット利用ができないかもしれませんので、お礼を書くのが遅れるかもしれません。
No.6
- 回答日時:
'グローバルな変数の宣言何枚印刷されたか数えるための物
Dim maisuu As Integer
'商品毎のグループヘッダーを作成してください。中身はなくてかまいません。印刷枚数の初期値設定で下記のコードを入れてください。
Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
maisuu = 1
End Sub
'Me.NextRecordが次のレコードに進むかどうか決めるプロパティーです。falseに設定すると同じレコードを繰り返します。カウントして必要回数繰り返したらTrueに設定して次のレコードに進んでください。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If maisuu >= [数量] Then
Me.NextRecord = True
Else
Me.NextRecord = False
End If
maisuu = maisuu + 1
End Sub
こんな感じで行けると思います。このコードでは少なくとも1枚は印刷するので、事前にクエリーで0枚の物は省いておいてください。
ありがとうございます。
> 商品毎のグループヘッダーを作成してください。
この意味がわかりませんので、教えていただけませんか? また、上記のコードをどこに書けばいいのか(その画面の出し方も)わかりません。お手数ですが、再度教えていただければと思います。よろしくお願いします
No.5
- 回答日時:
2です。
質問者さんはマクロやVBAの経験がないという事ですが
他の言語(VisualBasicやVisualC++)の経験はどうでしょうか?
この質問を満足する為にはVBAを使用しないと
質問No.236714以上の複雑な結果になってしまうとおもうのですが。
ちなみにイベント系プログラムの経験が無いなら本とか
買って勉強しなおしたほうが早いですよ
この回答への補足
実は、かなり前に一度だけACCESS応用の講習会でマクロを見たことはありますが、その後使う機会がなく忘れてしまいました。
VBは入門程度でしたら経験があります。普通のC言語しか経験はなく、VisualC++は触ったことがありません。
力技的なやり方ではなくて、まともなやり方を知りたいのですが、他の急ぎの用件に追われていて、一から勉強している時間が取れないので困っています。
この場所で、やり方を教えていただけると助かると思い質問させていただきました。
かなり複雑になると思いますが、やってみたいと思います。
よろしくお願いいたします
No.4
- 回答日時:
>クエリで作成した抽出結果を元にラベル印刷をしたい
クエリで抽出されたレコード数分だけラベルを出力したいということですね。
クエリで抽出しているレコードとラベルのレポートに使っているレコードソースが別であるということで考えると
例えばレポートは住所・氏名などの顧客テーブルでクエリで抽出しているレコードは受注テーブル等であるとして
レポートのレコードソースに使っているテーブルのフィールドとクエリで抽出しているレコードのフィールドでリレーションしているものがあればSQLスタートメントでそのクエリをテーブル追加すればリレーションによって抽出されたレコード分しか印刷されません。
リレーションしてなくても共通のフィールドがあればSQLスタートメント上でフィールド同士を連結すれば必要レコード(抽出されたレコード分)しか印刷されません。
この回答への補足
再度のご回答ありがとうございます。
どうも説明が下手で申し訳ありません。
レポートのレコードソースはクエリで抽出した物です。別ではなくて同じものです。
商品にラベルを貼りたいのですが、同じ商品が複数あれば、複数ラベル印刷をしたいのです。
その方法として、クエリに個数フィールドをつくり、その数値の分だけラベル印刷したいのです。例えば商品1の個数が2なら2枚分、商品2の個数が5なら5枚分という具合です。現状ではすべて1枚ずつしか出てきません。とりあえずの処置として先に書きました質問No.236714で対応しておりますが、もっと良い方法を知りたいのです。
よろしくお願いいたします。
No.3
- 回答日時:
アクセスのレポートにおいては、もととなるクエリーで抽出したレコードの数だけ印刷されます。
クエリーの抽出結果が1件であれば1件分の印刷、
クエリーの抽出結果が100件であれば100件分の印刷をおこないます。
デザインにおいては通常レポートの[詳細]の部分が自動的にレコードの数だけ繰り返されて印刷されます。
同一のデータを複数回印刷する場合は印刷指示の時点で、枚数を設定する必要があります。
質問の意味がわかりにくくて申し訳ありません。
個数フィールドがあり、その数値の分だけラベル印刷したいのです。商品1の個数が2なら2枚分、商品2の個数が5なら5枚分という具合です。現状ではすべて1枚ずつしか出てきません。
過去のNo.236714の質問者の方と同じ状況です。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=236714
同じ方法で、解決できるのですが、もっと良い方法がありそうなので、質問させていただきました。
よろしくお願いいたします。
No.2
- 回答日時:
クエリー結果に発行枚数が記載されているという事でしょうか?返答No1さんと同様に説明が足りないと思われます。
フォームを使用しているのであれば発行枚数を画面に
代入してマクロの繰返し機能で印刷すればVBAを使わずに
済むと思いますが・・・
説明不足で申し訳ありません
過去のNo.236714の質問者の方と同じ状況です。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=236714
同じ方法で、解決できるのですが、もっと良い方法がありそうなので、質問させていただきました。
マクロの繰り返し機能を使ったことがありませんので、教えていただけますでしょうか?よろしくお願いいたします
No.1
- 回答日時:
>クエリで作成した抽出結果を元にラベル印刷をしたい
そのクエリを元にラベルを印刷するレポートを作ればできます。
>そのクエリに書かれている個数分だけラベルを作る・・
意味が分かりにくいのですがクエリで抽出されたレコード分だけと言うことでしょうか?
そのクエリを元に作ったレポートもしくはラベル印刷のレポートのレコードソースにそのクエリを指定し印刷する項目のフィールドがあっていればクエリで抽出されたレコード分しか印刷されません。
レポートの作り方は新規作成で宛名ラベルウィザードを使いそのクエリを元にすればすぐ出来ます。
質問の内容と違うようでしたらゴメンなさい。
早速の回答ありがとうございます。
印刷するレポートはすべてできています。
複数印刷の意味をうまく書けていませんでした。
過去のNo.236714の質問者の方と同じ状況です。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=236714
同じ方法で、解決できるのですが、もっと良い方法がありそうなので、質問させていただきました。
よろしくお願いいたします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ACCESS2016 在庫数に応じた枚数のラベルを印刷したい
Access(アクセス)
-
ACCESS レポートの印刷枚数指定について
Excel(エクセル)
-
Access 宛名ラベル レポートの印刷部数を指定し、印刷を行う方法
Access(アクセス)
-
-
4
ACCESS ラベルの枚数を指定して印刷したいんですが。
Access(アクセス)
-
5
Accessで宛名ラベルに同一宛先を複数印刷したい
その他(プログラミング・Web制作)
-
6
アクセスで特定のレコードのみのレポートを印刷したいのですが。
Access(アクセス)
-
7
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
8
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
9
ACCESSで、1ページに全て同じ宛名を印刷するには?
その他(データベース)
-
10
アクセスのレポートで同ページ内で2つ同じ内容を表示するには?
Access(アクセス)
-
11
Accessのレポートで繰り返し表示させる方法について
Access(アクセス)
-
12
access別のテーブルを参照してテキストボックスに値を表示、編集したい
Access(アクセス)
-
13
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
14
アクセスでレポートの1印刷内に複数のレコードを表示させたい
Visual Basic(VBA)
-
15
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
16
accessのレポートであとから他のテーブルのフィールドを追加する方法
Access(アクセス)
-
17
ボタン1つで1度に複数枚印刷するには?
Access(アクセス)
-
18
ACCESSでテーブルにあるチェックボックスを一括でYesにする方法を教えてください
Access(アクセス)
-
19
アクセスの初心者の質問です(空白の場合に他のフィールドを表示させたい。)
Access(アクセス)
-
20
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
アクセスのレポート合成(複数...
-
Access2002で困ってます。
-
ACCESSの印刷ダイアログについて
-
ACCESSの複数レポートの印刷に...
-
ACCESS2010のフォームから、レ...
-
ACCESS フォームをそのまま印刷...
-
アクセスのフォーム画面の印刷...
-
ACCESSからVBAでWORDの印刷を..
-
ボタン1つで1度に複数枚印刷す...
-
Accessのレポートで1レコード...
-
YahooのIDがロックされてしまい...
-
passwordが入れられません・・・・
-
iphoneのフルスクリーンの解除方法
-
データベースのINT型項目にNULL...
-
Access(office)のマクロの「値...
-
サブフォームに対してGoToRecor...
-
エクセルのソルバーについての...
-
ExcelVBAでセルをクリックして...
-
ActiveXコントロールのコンボボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS フォームをそのまま印刷...
-
アクセスのレポート合成(複数...
-
アクセスで特定のレコードのみ...
-
Accessのフォームで、画面表示...
-
ACCESSのレポートで、指定した...
-
ACCESSの複数レポートの印刷に...
-
Access2013 レポートを印刷する...
-
アクセスで希望のレポートを1枚...
-
ACCESS チェックしたも...
-
MS Access 印刷時に、印刷レコ...
-
【Access】フォームのプロパテ...
-
アクセスのフォーム画面の印刷...
-
サブフォームの印刷方法を教え...
-
Access レポート印刷時のイベン...
-
accessのフォームをレポートに...
-
ACCESSのマクロで特定のレポー...
-
アクセス2000レポートで、印刷...
-
Accessフォームからパラメータ...
-
ボタン1つで1度に複数枚印刷す...
おすすめ情報