アクセス イメージコントロールを新規に作りヘッダー

質問

アクセス　イメージコントロールを新規に作りヘッダーに置くには？

Private Sub test()
Dim ctlText As Image
Dim intLeft As Integer
Dim intTOP As Integer
Dim intWidth As Integer
Dim intHeight As Integer

DoCmd.OpenForm "フォーム1", acDesign

intLeft = 567 * 1
intTOP = 567 * 1
intWidth = 567 * 1
intHeight = 567 * 1

Set ctlText = CreateControl("フォーム1", acImage, acHeader, intLeft, intTOP, intWidth, intHeight)
End Sub

これをやってるのですがエラーになります。
実行時エラー2148
「フォームまたはレポートのセクションを参照するときの値が正しくありません。」
と言うエラー内容です。

しかし、acHeaderをacDetailに変えるとエラーにならず、
詳細セクションにイメージを設置できます。

ヘッダーに置くにはどうすればいいですか？

回答No.1

nicotinism · ベストアンサー

こちらのAccess2010では
あらかじめページヘッダーを作成して一旦保存してから
Set ctlText = CreateControl("フォーム1", acImage, acPageHeader, intLeft, intTOP, intWidth, intHeight)
で出来ました。

また、詳細セクションしかない場合には
DoCmd.RunCommand acCmdFormHdrFtr
DoCmd.RunCommand acCmdPageHdrFtr
Set ctlText = CreateControl("フォーム1", acImage, acPageHeader, intLeft, intTOP, intWidth, intHeight)
とすれば良さげです。

お礼

DoCmd.RunCommand acCmdFormHdrFtr
DoCmd.RunCommand acCmdPageHdrFtr
をつけたらうまくいきました！

ありがとうございました。