No.2ベストアンサー
- 回答日時:
#1です。
>印刷の処理の全てをアクセスVBAで組めれば、1レコードを読んで、複数回(行)印刷を繰り返せば済むことです。
しかしこれは通常の解説書にかいてあるようなものではない。
だから
1レコードを30(例)レコードに増やすVBAを紹介してみます。
処理は(1)指定した1人をクエリで選択(2)10レコードの増やす
の2つのことをやってます。
社員テーブルのフィールドは氏名・所属部・計数
氏名が山田というレコードがあります。
社員10テーブルも同じフィールド構成。
Sub test10()
'レコードセットの操作/順読み
Dim adoCON As ADODB.Connection
Dim adoRS As ADODB.Recordset
'データベースのオープン(データベースオブジェクトの作成)
Set adoCON = Application.CurrentProject.Connection
'レコードセットの作成(SELECT文の実行)
Set adoRS = adoCON.Execute("select * from 社員 where 氏名='山田'")
Set rs = New ADODB.Recordset
rs.Open "社員10", adoCON, adOpenKeyset, adLockOptimistic
'最終レコードまで順読み込みを行う
'Do Until adoRS.EOF = True
MsgBox adoRS("氏名") '不要の場合はコメントアウトすること
For i = 1 To 10 '10レコード複製の例、希望数に応じて変える
rs.AddNew
rs.Fields("氏名") = adoRS("氏名")
rs.Fields("所属部") = adoRS("所属部")
rs.Fields("計数") = adoRS("計数")
'レコードの更新
rs.Update
Next i
p01:
'Loop
'レコードセットのクローズ
adoRS.Close
rs.Close
'データベースのクローズ
adoCON.Close
'オブジェクト変数のクリア
Set adoRS = Nothing
Set adoCON = Nothing
Set rs = Nothing
End Sub
クエリのSQL文の氏名='山田'の部分は、その都度Inputboxででも聞いて、セットしてください。その書き方は解説書を見てください。
結果は社員10は
ID氏名所属部計数
197670山田営業部23
197671山田営業部23
197672山田営業部23
197673山田営業部23
197674山田営業部23
197675山田営業部23
197676山田営業部23
197677山田営業部23
197678山田営業部23
197679山田営業部23
のようになりました。
このあとの「レポート」を含め、あとは細かい点の修正力が必要ですが、私が短い文章で紹介できるのはこのあたりまです。
No.1
- 回答日時:
私のレベルでは、十分判っているとはいえないのですが、難しいのか、回答がついてないので、ヒントだけでも、上げてみます。
●>複数のデータの中から、1データだけを抜粋して
これはクエリ(パラメータクエリ)でできます。
●>所定連続用紙に
プリンタ機器の問題とバーコードを印刷する用紙上の位置あわせの問題です。
●>指定した枚数分だけを印刷したい
この問題について述べたいのですが、印刷の処理の全てをアクセスVBAで組めれば、1レコードを読んで、複数回(行)印刷を繰り返せば済むことです。
ーーー
●しかし「アクセスのレポートで処理したい」というのが普通でしょう。
アクセスの「レポート」の「詳細」セクションは、順次レコードを次々印刷するのには向いている(そのように作られている)が、1レコードを複数行にわたって、繰り返すというのはできないように思う(やや自信なし)。
そこでクエリで選択された1レコードを、同じ内容のたとえば30レコード
に増やすことができたとする。
そうすると、アクセスのレポートで印刷すればよい。
●私は1レコードを30(例)レコードに増やすVBAを組んで見ました。しかし、質問者にわかってもらえるか判らず、VBAを使わず、例えば30レコードに増やす方法がないか、考えました。
しかし力不足で、思いつきません。
そういう点からの回答が出れば、解決の1方法になりますが。
この回答への補足
今晩は、●>指定した枚数分だけを印刷したい
この問題について述べたいのですが、印刷の処理の全てをアクセスVBAで組めれば、1レコードを読んで、複数回(行)印刷を繰り返せば済むことです。
出来たらVBAを紹介して頂けますか?すみません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- プリンタ・スキャナー コンビニのマルチコピーの性能について教えて下さい。 5 2023/05/10 03:05
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- プリンタ・スキャナー シールを印刷したいです。 同じ正方形の画像を数十枚印刷したいです。1枚の紙に数十枚入る形で印刷したい 4 2022/03/29 19:01
- プリンタ・スキャナー 印刷時にグリス?が付着 1 2023/07/19 14:24
- プリンタ・スキャナー 印刷枚数を減らしたいです。 印刷用紙1枚が4等分になるように、pdfになってる楽譜4ページ分をはめ込 1 2022/08/01 00:58
- その他(ソフトウェア) 写真の印刷レイアウトについて 13 2023/05/31 07:20
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- その他(Microsoft Office) 複数の写真を1枚に印刷 5 2023/05/05 22:41
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードの波打ちを直す方法を...
-
「宇宙船ペペペペラン」ってご...
-
これはミス、アグネス・チャン...
-
【至急!】差し込み印刷を使用...
-
DNS(Domain Name System) の仕...
-
Yahoo!メールでSPFレコード DKI...
-
ポールとポーラ
-
20世紀少年について
-
エクセルからアクセスにデータ...
-
アクセスのレポート、VBAで罫線...
-
7インチ(CD?)って・・・
-
山口百恵さんの「いい日旅立ち...
-
全銀フォーマットで使用する各...
-
Accessのレポートについ...
-
フィルタに時間がかかる
-
ユーロビートのレコード探して...
-
レコード(LP盤)の価値は?
-
音楽CDは何時から一般に普及...
-
裸の女性がジャケットのレコー...
-
差し込み印刷で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードの波打ちを直す方法を...
-
7インチ(CD?)って・・・
-
(C)は著作権、(R)は商標...
-
エクセルからアクセスにデータ...
-
差込印刷での条件指定
-
レコードをCD化。店頭持ち込み...
-
ワードの差し込み文書で困って...
-
【至急!】差し込み印刷を使用...
-
Access クエリの結果が0件だっ...
-
レコードにはあって、CDやYou T...
-
音楽CDは何時から一般に普及...
-
これはミス、アグネス・チャン...
-
アクセスのレポート、VBAで罫線...
-
Yahoo!メールでSPFレコード DKI...
-
ポールとポーラ
-
VBAでレコードセットの総レコー...
-
可変のグローバルIPアドレスで...
-
エクセルで作った住所録をラベ...
-
A面B面って人間で言うとどうい...
-
自分だけのゲーム曲を収録した...
おすすめ情報