【Access】トグルボタンのオン・オフのときの表示を変える

トグルボタンのオン・オフのときの表示を変える方法です。

例

たとえば、このようなフォームにトグルボタンが貼り付けてあるとします。


このトグルボタンをオン・オフしたときに、ボタンのキャプションと前景色を変更するには次のように記述します。

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub toggle1_AfterUpdate()       If Me.toggle1.Value Then         'ON         Me.toggle1.Caption = "ON"         Me.toggle1.ForeColor = RGB(255, 0, 0)     Else         'OFF         Me.toggle1.Caption = "OFF"         Me.toggle1.ForeColor = RGB(0, 0, 0)     End If       End Sub

イベントは、更新後処理です。
ボタンが押されているか押されてないかは、Valueプロパティで判断します。
ValueがTrueなら押されている。ValueがFalseなら押されていないことになります。


実行結果
OFFのとき


ONのとき



＜関連記事＞
【Access】トグルボタンのベベル効果を設定する

スポンサーリンク

https://hosopro.blogspot.com/2017/11/access-vba-toggle-button.html 【Access】トグルボタンのオン・オフのときの表示を変える