ACCESSでの自動採番

質問

立て続けの質問お許しください。

Accessで、自動採番をしていきたいのですがアドバイスお願いいたします。

フィールド1→年度　(ex.2003)
フィールド2→採番番号　(ex. 01)

というものを作って、フォームでフィールド1、２ともに自動採番していきたいと考えています。
(2003　01,　2003　02,・・・・というふうに自動採番していきたい)
しかし、来年の4月になったらフィールド1の年度を"2004"に自動変更し、変更後、フィールド2の値を1から取り直したいのです。このようなことを自動でやるのは可能なのでしょうか？
DMAX関数を使って・・・と思ったのですが、年度が変更したときにどのようにフィールド2の値を1から取り直せばいいのかが分かりません。あと、2004年4月になって初めてフィールド1の値を2004と更新したいのですがどうやればいいかわかりません。

どなたか詳しい方お願いします

回答No.1

noname#27115 · ベストアンサー

' こんな関数で、4-12月はその年のYearを取得
' 1-3月はその前の年のYearを取得

' そして、連番のクリアですが、、たとえば、2004年度だったら
' 2004年4月1日以降のレコード数を勘定して、それに+1をして
' みてはどうでしょうか？

' 他には採番専用のテーブルを作るという手もあります。

Function GetFY() As Long
　　　Select Case Month(Date)
　　　Case 4 To 12
　　　　GetFY = Year(Date)
　　　Case 1 To 3
　　　　GetFY = Year(Date) - 1
　　　End Select
End Function

お礼

ありがとうございます！大変助かりました！