Excel VBA質問箱 IV

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

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


2690 / 13645 ツリー ←次へ | 前へ→

【66553】EXCEL→ACCESS DAO AKI 10/9/9(木) 23:41 質問[未読]
【66555】Re:EXCEL→ACCESS DAO かみちゃん 10/9/10(金) 4:40 発言[未読]

【66553】EXCEL→ACCESS DAO
質問  AKI  - 10/9/9(木) 23:41 -

引用なし
パスワード
   ACCESS(.mdb)に溜めたデータを、ユーザーフォーム(エクセルVBA)上のリストボックスに表示させ、印刷ボタンをクリックすることで表示中の内容を帳票印刷?差し込み印刷?する方法を教示願います。

これまで本等を購入し、何とか乗り越えて来ましたが、限界にきましたので質問させてもらいます。現在、エクセルVBAとMDB(ACCESS)を使い、物品を管理するシステムを作成しています。
エクセルVBAには、ユーザーフォーム(F_入荷予定)を作成し、同ユーザーフォーム上にはテキストボックス(txt_日にち)があり、さらにリストボックス(lis_入荷予定)そしてコマンドボタン(cmb_印刷)印刷、他にもリストボックスをクリックするとMDBから詳細な事項がテキストボックスに表示するオブジェクトがありますが、省略させてもらいます。
1 動作について
動作としましては、同一ブック内の他に作成したユーザーフォーム(F_登録)(エクセルVBA以下同じ)を使い、連番(その日の連番)、日付け(2010/9/6)、番号(連番で振られる)、商品名(重複商品であっても入荷時間が違えば新たな番号で登録)、入荷時間、取扱者等入力したデータをMDB(T_商品)(テーブル内の列はこの順番となります)にテキスト形式で登録していきます。
登録したデータを見には、日にち入力すると、Changeイベントでその日に入荷される連番、商品名、取扱者のみが表示されます。
また、表示されたリストボックスを選択すると上記にも記載しましたが、詳細事項(入荷時間等がテキストボックスに表示されます)、さらに、削除ボタンをクリックすることで、MDB内のデータを削除することも可能としていますので、その日の連番が欠番になることもあります。接続は、DAOを使い、SQLで抽出等を行っています。
2 質問したいこと
印刷したい日付(txt_日にち)を入力し、その日の入荷予定を表示し、印刷(cmb_印刷)をクリックすると、MDBから直接に詳細データを受け取り(シートに張り付けない)、シート1(sht_予定表)に用意した、定められた様式の位置(この部分は後で何とか自分で設定します)に詳細事項を含めた内容を印刷したいのです。さらに、様式は、5商品までしか印刷できません。ので5商品以上ある場合は、5商品まで印刷した後、シート2(sht_予定表BP)(空の様式)を上書きし、6商品目から10商品まで印刷をし、空の様式を上書き、11商品目から15商品まで印刷・・・【繰り返し】。
なお、一日の商品数は50商品未満となります。
商品の詳細表示までできていますが印刷の部分ができません。
面倒なことを聞いて申し訳ありません。よろしくお願いします。

【66555】Re:EXCEL→ACCESS DAO
発言  かみちゃん E-MAIL  - 10/9/10(金) 4:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> 印刷したい日付(txt_日にち)を入力し、その日の入荷予定を表示し、
> 印刷(cmb_印刷)をクリックすると、
> MDBから直接に詳細データを受け取り(シートに貼り付けない)、
> シート1(sht_予定表)に用意した、定められた様式の位置に詳細事項を含めた内容

ここまではできているのですか?
問題は、印刷することですか?
MDBから受け取ったデータをシートに貼り付けずに定められた様式の位置に反映させることですか?

> 様式は、5商品までしか印刷できません。
> ので5商品以上ある場合は、5商品まで印刷した後、シート2(sht_予定表BP)(空の様式)を上書きし、
> 6商品目から10商品まで印刷をし、空の様式を上書き、11商品目から15商品まで印刷・・・【繰り返し】。

たとえば、15商品あった場合は、
sht_予定表には、1商品目〜5商品目
sht_予定表BPには、11商品目〜15商品目
という結果になるということでいいのですか?

また、現在できているVBAのコードの提示はないのでしょうか?

2690 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free