Microsoft Access 掲示板

基本的には目分量ですることになります。
もし、コントロール数が多くて大変という場合は、VBAで位置調整する方法もありますが、Accessの場合は1レコード分の位置調整だけなのでそれほど手間ではないと思いますが。

もし、ご希望ならVBAで位置調整するコードを提示できますけど。

コードをよろしくおねがいします

標準もモジュールに下記のような関数を作成します。

Public Sub CtlVCenter(ReportName As String, ControlName As String)
    DoCmd.OpenReport ReportName, acViewDesign
    
    Dim R As Access.Report
    Set R = Reports(ReportName)
    
    Dim C As Access.Control
    Set C = R.Controls(ControlName)
    
    C.Top = (R.Section(C.Section).Height / 2) - (C.Height / 2)
End Sub

イミディエイトウィンドウで下記のように記述してEnterキーを押します。

Call CtlVCenter("レポート名", "コントロール名")

これで、レポートがデザインビューで開いて、指定したコントロールがセクションの上下中央位置に移動します。
デザインビューを確認して問題なければ保存して閉じれば完了です。

ありがとうございました

レポートの真ん中に移動されましたが
先述しました、あるフィールドを中央として配置することは不可能ですか？

フィールド1
　　　　　　フィールド3
フィールド2

ということです

フィールドを挟むように線を二本引いて
上下の間隔を均等にする、をすると対処できるようですね

下記の関数を作成して、

Public Sub CtlVCenter2(ReportName As String, ControlName As String, ControlName1 As String, ControlName2 As String)
    DoCmd.OpenReport ReportName, acViewDesign
    
    Dim R As Access.Report
    Set R = Reports(ReportName)
    
    Dim C As Access.Control
    Set C = R.Controls(ControlName)
    Dim C1 As Access.Control
    Set C1 = R.Controls(ControlName1)
    Dim C2 As Access.Control
    Set C2 = R.Controls(ControlName2)
    
    C.Top = (C1.Top + C2.Top) / 2
End Sub

イミディエイトで下記を実行。

Call CtlVCenter2("レポート名", "フィールド3", "フィールド1", "フィールド2")

以上でどうでしょうか。