Microsoft Access 掲示板

お世話になります。
AccsessVBA初心者の者です。

テーブル、クエリから検索フォームまでは参考書を見ながら自力でできたのですが、
フォームからのテーブルのレコード修正や新規登録は初の試みで、
テーブルへの新規登録、修正フォームを作成していますが、
自動採番、管理番号への転記等がわからず、
質問させていただきます。

AfterUpdate等を利用するのかと思い調べたのですが解決できず、
お知恵をお借りできたら幸いです。
別のスレッド等でも同様の質問あるかもしれませんが、
質問ばかりで恐縮ですが、よろしくお願いします。

［テーブルの構成］
テーブル名：T統合

（フィールド）
ID:数値型　⇒例：1～
管理番号：テキスト型　⇒例：t_2019_0001～
年度：テキスト型　⇒例：2018、2019、2020等
年度別連番：数値型　⇒データ例：1～
　⇒年度をグループとして、同年度の1～の連番

[新規登録フォームの構成]
非連結のテキストボックス等を利用したフォーム

TxID：テキストボックス（非連結）
　⇒既定値：Nz(DMax("[ID]","T統合")+1,1)
　※IDの最大数から+1の数字が自動で入るように

Tx管理番号：テキストボックス（非連結）

cmb年度：コンボボックス（非連結）
　⇒値集合ソース：SELECT DISTINCT [T統合].年度 FROM T統合 ORDER BY [年度] DESC;

Tx年度別連番：テキストボックス（非連結）

【質問：実現したいこと】
1.新規登録の際、ユーザーが[cmb年度]で年度を選択した後に、
［Tx年度別連番］の値が、
選択したテーブルの（年度）グループに紐付いた（年度別連番）で
最大値に+1した値（値がない場合は1～の連番）
が自動で入るようにしたい

2.（1.）で年度を選択した後、[Tx管理番号]に、
テキスト形式で、「t_yyyy_000」という形式で自動で値が入るようにしたい
⇒yyyy：[cmb年度]で選択した値
⇒000：[年度別連番]を000形式にした値

［サンプルコード］
※別途用意した検索フォームで、
リストから選択した[ID]でデータを呼び出し
登録ボタン⇒新規登録フォーム（値が空のフォーム）
修正ボタン⇒修正フォーム（選択したIDに紐付いた値が入った同フォーム）
を開くようにしています。

今回の質問では、3.4の後半のコードは関係ないかもしれませんが、
念の為記載します。

Option Compare Database
Option Explicit

'===============================================================================
'  1.保存ボタンを押した際の処理
'===============================================================================
Private Sub btnSave_Click()
'    必須項目のメッセージボックス
    If Nz(Me.Tx管理番号) = "" Then
        MsgBox "管理番号が入力されていません"
       Exit Sub
    Else
    End If
  
    If Nz(Me.Tx年度) = "" Then
        MsgBox "年度が入力されていません"
       Exit Sub
    Else
    End If
 
    'OpenArgsに何も入っていないときは終了します
    If IsNull(Me.OpenArgs) Then
       Call Touroku
    Else
       Call Kakikae
    End If

    '完了メッセージを表示しフォームを閉じます
    MsgBox "保存しました。" _
         , vbOKOnly + vbInformation _
         , "保存"

    DoCmd.Close acForm, Me.Name

End Sub

'===============================================================================
'  2.レコードの新規登録
'===============================================================================
Private Sub Touroku()

    Dim oRS As DAO.Recordset
   
    'テーブルを開きます
    Set oRS = CurrentDb.OpenRecordset("T統合", dbOpenDynaset)

    'テーブルに新しいレコードを挿入します
    oRS.AddNew

    'フィールドを書き換えます
    With Me
            oRS("ID").Value = .TxID.Value
            oRS("年度別連番").Value = .Tx年度別連番.Value
            oRS("管理番号").Value = .Tx管理番号.Value
            oRS("年度").Value = .cmb年度.Value
       End With

    'テーブルに保存します
    oRS.Update

    'レコードセットを閉じて終了します
    oRS.Close
    Set oRS = Nothing
End Sub

'===============================================================================
'  3.選択したデータのレコード書き換え
'===============================================================================
Private Sub Kakikae()

    Dim oRS As DAO.Recordset

    'テーブルを開きます
    Set oRS = CurrentDb.OpenRecordset("T統合", dbOpenDynaset)

    '書き換え対象のデータを検索します
    oRS.FindFirst "ID=" & Me.OpenArgs
    
    'データが見つかったときはレコードの書き換え処理を行います
    If oRS.NoMatch = False Then

       'レコードを書き換え可能にします
       oRS.Edit

       'フィールドを書き換えます
       With Me
            oRS("ID").Value = .TxID.Value
            oRS("年度別連番").Value = .Tx年度別連番.Value
            oRS("管理番号").Value = .Tx管理番号.Value
            oRS("年度").Value = .cmb年度.Value
        
       End With

       'テーブルに保存します
       oRS.Update

    End If

    'レコードセットを閉じて終了します
    oRS.Close
    Set oRS = Nothing


'===============================================================================
'  4.検索フォームから選択したデータの値取り込み
'===============================================================================
Private Sub Form_Open(Cancel As Integer)

    Dim oRS As DAO.Recordset
    
    'OpenArgsに何も入っていないときは終了します（登録モードのため）
    If IsNull(Me.OpenArgs) Then
       Exit Sub
    End If

    'テーブルを開きます
    Set oRS = CurrentDb.OpenRecordset("T統合", dbOpenDynaset)
    
    '表示するデータを検索します
    oRS.FindFirst "ID=" & Me.OpenArgs

    'データが見つかったときは
    If oRS.NoMatch = False Then
       'フォームのテキストボックスなどを使ってデータを表示します
       With Me
           .TxID.Value = oRS("ID").Value
           .Tx年度別連番.Value = oRS("年度別連番").Value
           .Tx管理番号.Value = oRS("管理番号").Value
           .cmb年度.Value = oRS("年度").Value
 
    'レコードセットを閉じて終了します
    oRS.Close
    Set oRS = Nothing
End Sub