ちょっとおしゃれなフォームのオプションを作成する(Access)

みなさんおはようございます。

最近つくったAccessシステムで、お客様がちょっと喜んでくれた

小技をご紹介しましょう。

このようなメインメニューがあり、



オプションボタンを押すと

隠れているメニューが表示され、



もう一度オプションボタンを押すと非表示になる設定です。



デザインビューを表示すると・・

表示・非表示を切り替えるメニューはフォームフッターに配置してあります。



ここがポイントで

メニューフォーム起動時には、フォームフッターを非表示にしておき

オプションボタンを押すたびに、フォームフッターの表示・非表示を

切り替えるコードが書いてあるのです。

↓フォームの「開くとき」イベント



Private Sub Form_Open(Cancel As Integer)

　　Me.Section(acFooter).Visible = False
　　DoCmd.RunCommand acCmdSizeToFitForm

End Sub

↓オプションボタンの「クリック時」イベント



Private Sub オプション_Click()

　　Me.Section(acFooter).Visible = Not Me.Section(acFooter).Visible
　　DoCmd.RunCommand acCmdSizeToFitForm

End Sub

これで見え隠れするメニューの出来上がりです（*^_^*）

ちょっとした技でしょ（*^_^*）

mihoりん