Microsoft Access 掲示板

サブフォームを単票フォームにするのならばタブの選択に合わせてレコードが移動できるようにすればいいですね
それと、親フォームのレコード移動時にサブフォームのレコード数に合わせてタブの表示/非表示を切り替えればよさそうです

新たに作るサブフォームを[部署データ]とします
タブコントロール[所属部署タブ]を設置します
[所属部署タブ]にページコントロールを[ページ0]～[ページ3]まで設置します

Private Sub Form_Current()
    Const max部署 = 3
    Dim cnt部署 As Long
    Dim i As Long

    cnt部署 = Me!部署データ.Form.Recordset.RecordCount
    cnt部署 = IIf(cnt部署 > max部署, max部署, cnt部署)

    me!所属部署タブ = 0

    For i = 1 To cnt部署 - 1
        Me("ページ" & i).Visible = True
    Next
    
    For i = cnt部署 To max部署
        Me("ページ" & i).Visible = False
    Next
End Sub

Private Sub 所属部署タブ_Change()
    Me!部署データ.Form.Recordset.Move 所属部署タブ - (Me!部署データ.Form.CurrentRecord - 1)
End Sub