|
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商品未満となります。
商品の詳細表示までできていますが印刷の部分ができません。
面倒なことを聞いて申し訳ありません。よろしくお願いします。
|
|