|
連番の取得までは問題ないと思います。
後はこれをデータに反映させる方法ですが、既に提出月のテキストボックスがフォーム中にあると思いますので(なければテーブルの提出月と連結したテキストボックスを作成してください)、提案日_AfterUpdateのイベントで、取得した連番等をテキストボックスに入力してやればいいのです。
具体的には、
提出月 = Format(提案日, "yymm") & Format(連番 +1 , "000")
としてやればいいでしょう。
※連番 + 1 としているのは、そのままだと連番が000からスタートするためです。連番取得の段階で事前に +1しておけば不要です。
とりあえずはこれで表示されると思いますが、実務を考えるといろいろ問題が出てくるかと思います。
まず、提出月のテキストボックスをそのままにしておくと、ここを直接編集されてしまいます。そこで、提出月のテキストボックスでプロパティ設定を編集し、「使用可能」を「いいえ」に、「編集ロック」を「はい」にしておくことで対応します。
また、入力済みの提案日を編集すると、その時点で提出月が再計算され、番号が狂ってしまいます。これを防ぐには、連番を計算・表示させる前に、更新前の日付を調べ、更新前が空白・同じ月・異なる月などの場合分けで対応する必要があるでしょう。
他に、たとえば8月1日、8月10日、8月5日という順で入力した場合、連番はこの順番になります。それで構わないのならいいのですが、日付順にしたいという場合は上記で述べた方法は使えないので、クエリの編集で少々ややこしいSQLを書く必要が出ると思います。
|
|