アクセス2003でハガキのナンバリングを簡単にする方法

このQ&Aのポイント
  • アクセス2003を使用してハガキの通しナンバーを簡単に付ける方法を教えてください。
  • 毎日ハガキが届く事務局で、ナンバリングマシンで1枚につき1ナンバーを付けていますが、パソコンで簡単に印刷できる方法を探しています。
  • アクセスにデータベース化し、フォーム画面で日付や担当者ナンバーを入力して印刷ボタンを押すと、ハガキに7桁のナンバーが印刷されるシステムを作りたいです。
回答を見る
  • ベストアンサー

アクセス2003:ナンバリングが出来るようにしたい

初めまして。アクセス初心者です。 下記内容をアクセスで作るためにはどのようにしたら 良いのか、アドバイスをお願いいたします。 仕様:windows xp / アクセス2003 内容: 毎日ハガキが1000枚位届く事務局をやっています。 そのハガキ全てに、通しナンバーをふるために、 ナンバリングマシン(ガチャンガチャンっていうやつ)で、 1枚につき1ナンバーをつけています。 毎日毎日やっているのは辛いし、時間がかかるので、 パソコンで簡単に印刷が出来ればいいなと思い、 アクセスに挑戦しました。 アクセスにしたのは、過去にいつ、どのナンバーをふったのかを 把握するために「日付」「スタートNo.」「エンドNo.」を データベース化したかったためです。 イメージとしては、フォーム画面で、 「今日の日付」「担当者ナンバー」「スタートNo.」 「エンドNo.」を入れて、印刷ボタンを押すと、 ハガキ1枚づつ7ケタのナンバーが印刷されるというものです。 「今日は、「2587544~2598574」までナンバリングしよ~。」 というカンジで、毎日続き番号になります。 明日は「2598575~」という形ですが、日々のハガキの枚数により ズレがあります。 こんなワガママ聞いてもらえますか? お手数ですが、何卒アドバイスお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
noname#254177
noname#254177
回答No.1

アクセスだけでなくエクセルも利用すれば案外簡単に出来るかな? エクセルで 1行目 今日の日付・担当者No.・スタートNo.の項目 2行目 必要事項を入力し(ここを打ちかえることに日々のデータを作成) 3行目 =A2 =B2 =C2+1 4行目以降は3行目をコピーして貼り付けます。 ※if文を用いれば必要な行数だけにデータを入れることが可能です。  解らなければ必要な所でデータを切ってください これをアクセス側でリンクテーブルとして呼び込みます そのデータを元にして 葉書の大きさのレポートを作成すればokです。 それをデータベースにするには 同じ体裁のテーブルを作成し(全データテーブルと名付けます) リンクテーブルを開き 全体をコピーし 全データテーブルの後ろに貼り付ければ 日々の全体のデータを作成することも可能です 手作業が多いですが ガチャンガチャンするよりはましかな? 実際の作業時間としてはすべてが出来上がったものとして エクセルが長くて5~10分 アクセスの全データテーブル作成に3分もかからないでしょう 後はプリントアウトの時間だけです がんばってください

関連するQ&A

  • Excel2010で、自動ナンバリング

    Excel2010で、自動ナンバリングする方法について。以前も似た質問見たり、私自身も質問していますが、今回は多少違う状況での回答が必要で質問しています。 A4サイズの紙に3×8=24枚のチケットを作りたいです。そこに「0001~0024」とナンバリングします。そして、チケットをたとえば合計600枚必要になると、A4サイズ一枚目に「0001~0024」2枚目に「0025~0048」・・・・25枚目に「0577~0600」と印字されて印刷できるようにしたいです。印刷枚数は随時変わるので何かフォームが出て「印刷開始No.は?」→「0001」と入力、次に「印刷終了No.は?」→「0700」と入力すると、0001~0700までのチケットが印刷できるようにしたいです。また、「0500~0830」みたいに途中からのナンバリングでも印刷できるよういしたいです。このようにする、マクロとか、方法を教えてください。 E1,E7,E13,E19,E25,E31,E37,E43,J1,J7,J13,J19,J25,J31,J37,J43,O(オー)1,O7,O13,O19,O25,O31,O37,O43の順に。以前の似た質問回答を参考にしようとしましたが、私の場合、都度必要枚数が変わるので必要ナンバリングが変わるため、フォーム出現がやはり必要になります。また、いつも0001からの印刷とは限らないのでやはり「印刷開始NO」と「印刷終了No」の両方入力する、こういった方法を教えてください

  • イラレでナンバリングする方法

    こんばんわ。 初めて質問致します。 自分は、趣味でイラレをたしなむ程度なのですが 今回、知り合いから「ライブのチケット100枚作ってほしい」 と言われました。 デザインは何とか完成し、印刷しようと思ったのですが 「チケットだからナンバリングもつけて欲しい」と要望があり 途方に暮れています。 自力でネット検索し、何とかナンバリングをしてくれる「javasprict」 を発見致しました。 早速試したところ、チケット1枚につきナンバリング1か所であれば 成功したのですが、チケットなので控えと半券両方にナンバリングが欲しいとの事。 つまり、簡単に言うと1枚に2か所のナンバリングが必要なのです。 自分で改造しようと、色々試しましたが完全にお手上げ状態です。 何とかお力添えを頂ければ幸いです。 ソースは下記の通りです。 // JavaScript Document docObj = activeDocument; var minNum=prompt("チケットナンバーの開始値"); var maxNum = prompt("チケットナンバーの終了値"); var ticketsPerPage = 5; //一ページ当たりのチケット枚数 var printPageNum = Math.ceil( (maxNum - (minNum-1))/5 ); // 何ページ印刷するか var maxDegit = 4; //最大桁数。これに基づいて、テキスト整形 var prefix = "抽選番号 No. "; //連番のプリフィックス var suffix = " "; //連番のサフィックス for(var i = 0 ; i < printPageNum ; i++){ //必要なページ数ループ for(var h = 0 ; h < ticketsPerPage ; h++){ //各ページにはticketPerPageだけナンバーを設定 var obj_name = "No."+(h+1); //テキストオブジェクトの名前(事前にaiファイルで編集・設定) var numberItem = docObj.pageItems.getByName(obj_name);//テキストオブジェクトの取得 numberItem.contents= getNumberText(i*ticketsPerPage + Number(minNum)+ Number(h)); //ナンバーを設定 } //プリント docObj.print(); } //数値を受け取って、ナンバリング用文字列を返す function getNumberText(num){ var len = num.length; var numText = prefix; for( var i = 0 ; i < maxDegit - len ; i++){ numText += " "; } numText += num; return numText + suffix.toString(); } 上記の物を、同じテキストボックス名を2か所設置して動かしても片方にしか ナンバリングが反映されませんでした。 まったくの初心者ですので、御面倒おかけしますが何卒お力添えをお願い致します!

  • Excelでの自動ナンバリング後の印刷について

    自分がやりたい事はExcelでブックを開く度にナンバリングが自動生成され、都度印刷の度に部数に応じてその数が自動で加算されていくというようなものです。 過去の質問において下記のような回答を見つけました Private Sub Workbook_Open() Dim cnt As Long Dim シート名, セル, 文字列 As String シート名 = ActiveSheet.Name セル = "B2" '←ナンバーを入れるセル(Range("C2")なら"C2")…(1) cnt = Len(Sheets(シート名).Range(セル)) If cnt = 0 Then Sheets(シート名).Range(セル) = "No." & Format(InputBox("発行No.の初期値をセットしてください。"), "0000") Else 文字列 = Right(Sheets(シート名).Range(セル), cnt - 3) cnt = Val(文字列) cnt = cnt + 1 Sheets(シート名).Range(セル) = "No." & Format(cnt, "0000") '←桁数をセット(5桁なら"00000")…(2) End If End Sub 上記の記述は自分のやりたい事とほぼ一致しているのですが、この場合では複数枚印刷すると同じナンバリングの用紙がでてきてしまいます。 例えば、ブックを開いた際に自動生成された数がNo.0005だとして、10枚印刷した場合にNo.0005から連番で印刷され、次回ブックを開いた際にNo.0015から始まるといったような事です。 別シート等を使うような方法でも構わないので何か良い方法はありますでしょうか? また不特定多数の人が出力した際に上書き保存をして終了しない人がいた場合等は上記の記述でのナンバリングは成立しませんが、そのような環境において通しでのナンバリングを成立させる方法はありますでしょうか?(Excel以外になったとしても) 解りにくいかもしれませんが、ご教授頂ければ幸いです。

  • アクセスのフォーム画面の印刷についてです。

    アクセスのフォームを印刷すると、ずっと連なって印刷されますよね? 1ページに2つの情報が載るようにデザインビューで作成したのですが、枚数が進むにつれて、ページがずれてきます。この微妙なずれは、かっちり測って直すしかないのでしょうか?測っての調整が上手くいかないのですが・・何かいい方法はないのでしょうか??

  • Accessでの複数枚印刷について

    MicrosoftAccessで、封筒印刷を行います。 データは、「住所、氏名、枚数」のように並んでいます。 はがきウィザードで、1枚ずつ印刷することまではできていますが、データの枚数を読み込んで 複数枚印刷したいのです。1件目は20枚、2件目は30枚、3件目は15枚というように。 Access初心者ですが、マクロ等はかんたんなものであれば理解できます。 お分かりになる方、ヘルプお願いします。

  • アクセスで質問です

    アクセスの初心者です 実力はオフィス試験内容くらいしかわかりませんがよろしくお願いします 今、写真の申し込みをデータベース化しようとがんばっています 申込者別にテーブルを作ってそれをひとつにまとめたテーブルを作りたいのですがどうすればいいかさっぱりわかりません |申込み者名(規定)|写真ナンバー|枚数| というテーブルをたくさんつなげて |申し込みナンバー(オートナンバー)|写真ナンバー|申込み者名|枚数| というテーブルにひとつに自動的にまとまるようにしたいのです 文字ではわかりにくいと思いますがよろしくお願いします

  • accessで指定期間の曜日カウントしたい

    access2000を使用しています。 table1にID,start,endというフィールドがあって 1|2009/04/01|2009/04/30 2|2009/03/16|2009/04/15 といった具合にstart,endには日付が入っています。 startからendまでの期間、日曜日が何回あるかを表示させるクエリはどのようにすればできるでしょうか。 ID|start|end|日曜日の回数 と表示させたいです。 weekday関数でstart,endのそれぞれの曜日は取得できています。 datediff関数でstartからendまで何日あるかは計算できています。 そこから先、どのようにカウントすればよいでしょうか。 特に上記2つの関数を使用しなくてもカウントできるようであればそれでもよいです。宜しくお願いします。

  • ACCESS レポートの印刷枚数指定について

    商品ごとに異なるシール枚数の印刷をしたいのですが、印刷枚数においてテーブルのリンクがされたエクセルのセルに入力されている数字をそのまま印刷枚数とすることができますでしょうか? また一回の印刷ボタンのクリックでそれぞれのセルにある枚数を全て印刷することは可能でしょうか? (アクセス及びエクセルのバージョンは2000を使用) 具体的にいいますと (1)テーブルのリンクをしたエクセルデータを使用しています。内容は(2)の通りです。 (2)エクセルデータの件数は10件であり、項目は、A1:商品コード、B1:商品名、C1:印刷枚数とします。 (3)C2~C11には、それぞれの異なる印刷枚数が入力されています。 どなたかご存知の方がいらっしゃいましたら教えてください。宜しくお願いします。

  • accessのレポートで重複データに〃を印刷する方法は?

    アクセスを使って納品書を印刷しています。 レポートの内容が現在、 日付 商品 数量 単価 金額 備考 1/1   A   1   10  10  い 1/1   B   2   20  40  ろ 1/5   A   2   10  20  ろ このように印刷されているのですが、 これを、 日付 商品 数量 単価 金額 備考 1/1  A   1   10   10   い  〃  B   2   20   40   ろ 1/5  A   2   10   20   〃 このように、上のデータと重複するデータがあった場合に、  〃 ←この同じという記号を印刷するには どうしたらよいのでしょうか? 今の所、日付と備考欄でこの記号が印刷できればよいのですが。 アクセスはまだまだ初心者です。 よきアドバイスありましたら宜しくお願い致します。 

  • ACCESSでオートIDのように日付が入るようにしたい

    表題だけでは何のことか自分でも分かりませんが、下記のようなことをやりたいと考えております。 1.日々の予定表と日報をACCESSで作る 2.毎日の予定を未来のことも含めて入力していくので、現在マウスホイールを回すと オートナンバー型のIDの数字が進むみたいに日付をくるくる進むようにしたい。 3.テーブルに日付を予め入力していくことも考えたが、ずっと使う予定のものなので、 できればACCESSの持つ機能で済ませたい カレンダーの導入なども考えましたが、毎日必ず入力するので、いちいち日を選択→代入というのも違うかと思います。 ググっても出てこないので、出来ない可能性が高そうですが、どうぞ宜しくお願いします。