Microsoft Access 掲示板

新規で所属部署を登録する画面

新規登録用の画面自体は[部署データ]フォームですか？
[所属部署タブ]タブに[ページ4]を追加します

Private Sub 所属部署タブ_Change()
    If Me!所属部署タブ = 4 Then
        Me!部署データ.Form.Recordset.AddNew
    Else
        If Me!部署データ.Form.NewRecord Then Me!部署データ.Form.Recordset.MoveFirst
        Me!部署データ.Form.Recordset.Move 所属部署タブ - (Me!部署データ.Form.CurrentRecord - 1)
    End If
End Sub

[ページ4]を選択すると新規登録用のレコードに飛ぶようになります。少し手抜きな部分（新規登録から既存のレコードに移るとちらつくかも）がありますが、動作を確認してみてください

ちなみに、このコードだけだと、実際に新規レコードが追加されてもタブの表示は変わりません。「新規で所属部署が登録されたとき」にページのON/OFFを見直す必要があります。親フォームとサブフォームを行ったり来たりな処理でちょっと大掛かりになるので、続きが必要な場合にいは改めて質問を立てなおしてください（大元の質問は、それはそれで続けているようなので）