ACCESSでフォームのフッターにボタンを作成

質問

こんにちは、VBAでアクセスについての
質問です。

フォームを作成し、
フッターにコマンドボタンを作成しようとしています。
コードは、
Set tForm = CreateForm()
tForm.DefaultView = 1
tForm.Section(0).Visible = True
tForm.Section(0).Height = 2000
tForm.Section(acFooter).Visible = True　　ここでエラー2462が出る！！
tForm.Section(acFooter).Height = 2000
ですが、エラー2462が出てしまいます。
解決方法を、ご教授願えますか？

宜しくお願いします。

回答No.1

m3_maki · ベストアンサー

フォームを CreateForm した状態では
「詳細セクション」しかありません。

存在しないセクションを参照しているのでエラーになっています。

DoCmd.RunCommand acCmdFormHdrFtr

で、デザインに 「ヘッダー/フッター」を追加しましょう。

もっと良いコードがあるかもしれませんが、知らないので。

お礼

連絡遅れまして、すみませんでした。

ご教授いただいた方法で
解決いたしました。
ありがとうございました。

フッダーヘッターを追加する
メソッドがあってもいいなとは思いますが、
仕様であればしょうがないですね。

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