ACCESS用VBAサンプル フォーム上のコントロールボックスの可視・不可視の切替

フォーム上のコントロールボックスを状況に応じて、可視化 or 不可視化と切り替える。

データ自体の条件によるものでもいいが、今回は、チェックボックス「仕入表示」のチェック有無で変化させる。



まずは、フォーム上のコントロール「仕入価格」で可視を「いいえ」に変更しておく。

Private Sub 仕入表示_Click()
　If Me.Form!仕入表示 = True Then
　　　Me.Form!仕入価格.Visible = True　’可視化
　　Else
　　　Me.Form!仕入価格.Visible = False　’不可視化
　End If
End Sub

チェックボックスの有無による実際に表示例。



ちなみに「商品」フィールドの赤フォント、緑背景は条件付書式を利用。特定フィールドのみ色を変えるのは、なかなか有用であったりする。後ほど、これもサンプルにしておこう。