• ベストアンサー

顧客番号を自動加算するには?

にわかAccess2000ユーザーです。顧客氏名を新規入力するとき、顧客番号を所定の書式(ABC-001,ABC-002,…)にしたいと思います。追加入力のとき、最新の顧客番号(ABC-100)に自動的に番号を加算(ABC-101)させるにはどのような方法がありますか。 過去FAQを追ってみましたが合致したものが見つからなかったので質問させていただきました。よろしくお願いします。

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

  • ベストアンサー
  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.1

VBAでやる事例です。ご参考まで。 http://www.mahoutsukaino.com/ac/ac2000/ac2000/number/03.htm

noname#108463
質問者

お礼

自動採番っていうんですね。自分の知りたいことに合致しています。ただし内容が理解できるかどうか・・・。 適切な情報ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • MS Access 入力フォーム:自動採番

    Access2013での自動採番に関して2パターン教えて下さい。 質問(1):"顧客番号"の自動採番 【テーブル名】 顧客情報 【フィールド】 "顧客番号"、"顧客名"、"顧客名かな"、"顧客住所"、"電話番号"、"担当者"、"メール"・・・ <"顧客番号"の採番方法> 顧客名の頭文字を五十音順の「あかさたな」で行ごとに連番をつけて管理している。 例)) 「ABC商事」→エービーシーしょうじ→「あ‐01」 「東京印刷」→とうきょういんさつ→「た-01」 《やりたい事!》 入力フォームに新規で、「東西工業」を入力する際に "顧客名かな"を入力したら、"顧客番号"が自動的に採番されるようにしたい。 顧客名:東西工業 顧客名かな:とうざいこうぎょう 顧客番号:た-02 ←ココを自動採番にしたい ------------------------------------------------ 質問(2)"取引番号"の自動採番 【テーブル名】 取引情報 【フィールド】 "顧客番号"、"取引番号"、"顧客名"、"顧客名かな"、"住所"、"電話番号"、"担当者"、"メール"・・・ <"取引番号"の採番方法> 取引が発生した順で、"顧客番号"ごとに枝番をつけて管理している。 例)) 「ABC商事」→1/10の取引→"顧客番号":あ‐01、"取引番号":01 「ABC商事」→1/31の取引→"顧客番号":あ‐01、"取引番号":02 《やりたい事!》 入力フォームに新規で、「ABC商事」の2/15の取引情報を入力する際に "顧客番号"を入力したら、"取引番号"が自動的に採番されるようにしたい。 顧客名:ABC商事 顧客番号:あ‐01 取引日:2016/02/15 取引番号:03 ←ココを自動採番にしたい 説明がうまくできず、分かりにくいかとは思いますが 何とかお知恵をお借り出来れば助かります。 よろしくお願い致しますm(__)m

  • 郵便番号更新による既存顧客住所の更新

    現在、Officeの郵便番号辞書を使用し、Accessで郵便番号7桁を入力し、住所を自動的に引っ張ってくる フォームを作成・使用しています。 ところが2年程、郵便番号辞書の更新を行っていなかった為、登録されている住所が古い状態です。 早速、最新の郵便番号辞書に更新しましたが、無論既存の顧客住所は古いままです。 既存住所を最新の状態にするには、再度登録画面で郵便番号を入力し直すしかないのでしょうか? 宜しくお願いします。

  • ACCESSか、Excelか?番号並びについて

    データが二つあります。 一つは1から30までナンバーがふられた氏名が あります。 もう一つは1,2,5,6,9,12,23,29とナンバーが ふられた有料顧客というデータです。 いずれも列が二つです。 この 有料顧客を1から30までのナンバーがふられた 氏名の方に有料顧客のデータ 列を追加したいのですが、一番簡易なやり方は ありますか。もしくは早いやり方です。 アクセスでもExcelでも使うのはどちらでも構わないです。 有料顧客でない番号、行も残します。 良いお知恵をいただきたく。よろしくお願いします。

  • ACCESS97の郵便番号自動検索について

    ACCESS97を使用しています。 顧客のデータベースを作成して、今まで入力をしてきたのですが、昨日から急に郵便番号自動検索ができなくなってしまいました。 それまで何度か、住所が長すぎる、というようなエラーメッセージが出ていました。 郵便番号自動検索を元に戻すにはどうしたらよいのでしょう?

  • エクセルで顧客名簿  通し番号とその例外

    エクセルで顧客名簿を作っています。 Aに顧客の通し番号 Bにお客さんの名前を入れるとして、 でも二度目以降のお客さんのときには (つまり前と同じ名前を入力したとき)、 前と同じ通し番号の後ろに -1 とか -2 とかつけて 何回リピートしてるかわかるようにしたいんですけど、 どうしたらいいでしょうか? ちなみに通し番号自体も、 B以降になにか入力されたら 自動的に入るようにしたいです。 よろしくお願いいたします。

  • 入力の自動化

    会員登録などをする際に入力する、住所、氏名などを自動化するツールを作ろうとしています。 そこでJavaで住所、氏名を入力するところのソースを読み取って合致したところにあらかじめ入力しておいた情報を読み取り、送信するといったことがしたいです。 Web上のソースを読み取るやり方がありましたら教えてください。

    • ベストアンサー
    • Java
  • access 請求番号の自動採番

    まったくわかりません! よろしくお願いします。 仕様環境 WinXP  access2002 顧客管理のシステムを作っています。 テーブル 顧客テーブル(主キーは顧客番号 テキスト型) 請求テーブル(主キーは請求番号 テキスト型) 明細テーブル(主キーは明細番号でオートナンバー ダミーみたいな感じで使っています。) そしてリレーションシップで顧客テーブル(1)→(多)請求テーブル(1)→(多)明細テーブルになっています。 顧客情報を入力するフォームを作りました。 主キーは顧客番号(テキスト型,入力モードON,インデックス いいえ)で 他のテキストボックス(例えば名前)に何かしら文字を入力すると自動で顧客番号を採番してくれます。 例:0001 0002 0003~ そしてそのフォームから請求書作成フォームに飛ぶように 「請求書作成ボタン」を作り、顧客情報も一緒にひっぱっていってくれる 請求書作成フォームを作りました。(入力したばかりの情報も最新の情報で更新してくれます。) ・・請求書作成フォームはサブフォームを使い3つのテーブルからなっています。・・ 親フォーム:顧客テーブルから。 子フォーム:請求テーブルから。 孫フォーム:明細テーブルから。 主キーは請求番号で(テキスト型,入力モードON,インデックス はい(重複なし)) 他のテキストボックス(例えば請求日)に何かしら入力すると自動で請求番号を採番してくれます。 例:A0001 そこで問題なのですが、顧客情報は入力する度、次々自動で採番してくれるんですが、 請求番号は一番最初のレコードの”A0001”だけ採番してくれて、 新しいレコードで請求書を作ろうとテキストボックスに文字を入力すると「型が一致しません」というエラーが出ます。 ○ エラー内容 アクションエラーの実行 条件 true アクション名 値の代入 引数 [請求番号],Format(DMax("請求番号","請求マスタ")+1,"A0001") マクロは・・(参考書を参考にしています、マクロ名:自動採番マクロ) ------------------------------------------------- 条件 : DCount("請求番号","請求テーブル")=0 アクション : 値の代入 アイテム  : [請求番号] 式     :"A0001" ------------------------------------------------- 条件    : ... アクション : マクロの中止 ------------------------------------------------- アクション : 値の代入 アイテム  : [請求番号] 式     : Format(DMax("請求番号","請求テーブル")+1,"A0001") ------------------------------------------------- となっています。 念のため、主キーの入力モードを切り替えたり、式の"A0001"を単純に"1"にしたりしましたが、 請求番号はエラーが発生します。 原因がまったくわかりません。 よろしくお願いします!

  • VBAでデータ更新作業自動化

    エクセルで、シート1に顧客データ(会員番号、氏名、住所等)が有り、シート2の入力セルに会員番号を入力すると、シート1の顧客データがVLOOKUP関数により呼び出されるというエクセルファイルがあります。シート1の顧客データは、別システムでデータ更新しており、USBメモリにCSVファイルとして定期的に抽出しています。このCSVファイルのシート1の最新顧客データを元のエクセルファイルのシート1にすべてコピー&ペーストすることで最新の顧客データを更新しています。 このたび、その作業の自動化を図るにあたり、元のエクセルファイルのシート2で作成したボタンを押下することにより、自動実行したいのです。 お忙しいところ大変申し訳ないですが、そのような他ファイルに及ぶVBAの記述を教えていただけたらありがたいです。よろしくお願いします。

  • 顧客IDを入力すると顧客名や住所が表示されるように

    Accessで、フォームから顧客テーブルにある顧客IDを入力すると、同じフォーム内にある「顧客住所」や、「電話番号」など、顧客テーブルに登録してある情報が表示されるようにするには、どうすれば良いでしょうか? 環境は WindowsXP Access2003 です。

  • 日付演算で月を加算したい場合

    日付演算で月を加算したい場合 例として、下記構成で顧客訪問日に所定の月数を加算して、次回の訪問予定日を表示したいです。 データベース1 テーブル1 = 主キー:顧客番号(int),訪問日(date) INTERVALを使えばいいのでしょうか? また顧客ごとに訪問間隔が違うのですが、その場合どうしたらいいでしょうか? SQL例をご教示いただければ幸いです。

専門家に質問してみよう