自動採番について

質問

初心者です。

Access2000で銀行管理DBを作っています。
(1)テーブルを入金用と出金用それぞれに作成
(2)データ入力用フォームもそれぞれに作成します。

入力にあたって入力番号を自動採番にしたいと考えてますが、番号の構成は数値10桁で、"年" + "月" + "連番"の組み合わせにしたいのです。例：2003070001
入金用と出金用それぞれ別に入力番号をつけます。

これを実現するために「採番テーブル」を別に作成しなければいけないようですが、
(1)採番テーブルの定義の方法
(2)入力フォームで自動採番するためのVBA記述の方法
についてアドバイスいただけないでしょうか？

よろしくお願いします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

私なら、テーブルに[年]、[月]、[連番]（全て長整数型）のフィールドをそれぞれ用意します。
あと、主キーフィールドは別に用意し、これは年月関係なくそのテーブル全体で連番にします。（手っ取り早くオートナンバーでいいと思います。）
入力番号は、別にフィールドを用意してもいいし、フォーム上で表示のみでもいいと思います。
表示のみの場合は、フォームに非連結のテキストボックス（入力番号）を用意して、適当なイベントに、

Me!入力番号.Value = Format(Me!年, "0000") & Format(Me!月, "00") & Format(Me!連番, "0000")

のように記述すればいいでしょう。
入力番号フィールドを用意する場合も、同様（上記の非連結が連結になるだけ）です。
年と月は手入力として、連番を自動入力する場合は、適当なイベントに、

If DCount("連番", "入金用", "年 = " & CLng(Me!年.Value) & " AND 月 = " & CLng(Me!月.Value)) = 0 Then
　　Me!連番.Value = 1
Else
　　Me!連番.Value = DMax("連番", "入金用", "年 = " & CLng(Me!年.Value) & " AND 月 = " & CLng(Me!月.Value))
End If

と記述します。
あとは、年・月の未入力時の対応などのエラートラップを追加して下さい。

お礼

早々とご指導いただきありがとうございました。
また質問ありましたらお願い致します。