• ベストアンサー

ACCESSでの自動採番

立て続けの質問お許しください。 Accessで、自動採番をしていきたいのですがアドバイスお願いいたします。 フィールド1→年度 (ex.2003) フィールド2→採番番号 (ex. 01) というものを作って、フォームでフィールド1、2ともに自動採番していきたいと考えています。 (2003 01, 2003 02,・・・・というふうに自動採番していきたい) しかし、来年の4月になったらフィールド1の年度を"2004"に自動変更し、変更後、フィールド2の値を1から取り直したいのです。このようなことを自動でやるのは可能なのでしょうか? DMAX関数を使って・・・と思ったのですが、年度が変更したときにどのようにフィールド2の値を1から取り直せばいいのかが分かりません。あと、2004年4月になって初めてフィールド1の値を2004と更新したいのですがどうやればいいかわかりません。 どなたか詳しい方お願いします

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

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

' こんな関数で、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

nekocya
質問者

お礼

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

関連するQ&A

専門家に質問してみよう