25
フォームにヘッダー／フッターセクションを追加するには、DoCmdオブジェクトの「RunCommand」メソッドに組み込み定数「acacCmdFormHdrFtr」を引数に指定して実行します。
その結果、ヘッダー／フッターの両方が既定の高さで追加されます。もしヘッダーだけを追加したいときには、フッターだけを削除することはできませんので、その高さをゼロにすることで領域がないようにします。
また、下記のプログラムではすでにヘッダーセクションがあるときは何もしないようにしています。すでにあるときに上記コマンドを実行するとエラーとなりますので、事前にそれを確認し、ないときだけ処理するようにしています。
- その際の確認方法としては、ダミーとしてSectionのオブジェクト変数にヘッダーセクション「Section(acHeader)」を代入します。正常に代入できればヘッダーあり、エラーが発生していればヘッダーなしと判断できます。
プログラム
Sub SampleCode_25()
'フォームにヘッダーを追加する
Dim sct As Section
On Error Resume Next
'アクティブフォームのヘッダーセクションを取得
' ※ないときはここでエラーが発生する
Set sct = Screen.ActiveForm.Section(acHeader)
If Err.Number > 0 Then
'ヘッダーセクションがないとき（あるときは何もしない）
'ヘッダー／フッターセクションを追加
DoCmd.RunCommand acCmdFormHdrFtr
'フッターを高さゼロにする（ヘッダーだけにしたいとき）
Screen.ActiveForm.Section(acFooter).Height = 0
End If
End Sub
実行例
■実行前
■実行後
