サブフォームのチェックボックスの有効／無効を切り替える方法

Question

お世話になります。

フォーム内にサブフォーム(帳票フォーム形式)を配置しており、

サブフォームにはテキストボックスとチェックボックスを配置しています。

なお、テキストボックスは編集不可であり、チェックボックスのみ編集可能としています。

■行いたいこと

各レコードの値（テキストボックスに表示する値）を基に、

レコード毎にチェックボックスの有効／無効を切り替えたいです。

■調べたこと

・条件付書式を使用して、チェックボックスのON、OFFでテキストボックスの

有効／無効を切り替える手順はネットに色々とあったのですが、

「チェックボックス自体の有効／無効の切り替え」を見つけることはできませんでした。

→チェックボックスは、条件付書式の設定ができないみたいで･･･。

・「Form_Dirty」イベントを使用して、一先ず「値をみてチェックボックスの有効／無効を

　　切り替える」ことはできました。

（編集可能なコントロールがチェックボックスのみであるため、以下のロジックで

　　　行いたいことはできました。）

ただ、このイベントは「サブフォームのレコードの内容が変更されようとする

　　タイミングで動作する」ため、画面上のチェックボックスの見た目は

　　編集できるように見えてしまいます。

変更しようとしたタイミングではなく、最初からチェックボックスを

　　無効の状態で表示したいのです。

【サンプルソース】

' テキストの値が設定されていない場合に、チェックボックスを無効とする

Private Sub Form_Dirty(Cancel As Integer)

If Me.テキスト = "" Then

Cancel = True

End If

End Sub

よろしくお願い致します。

Answer 1

帳票フォームのチェックボックスでは不可能だと思います。

チェックボックスの代わりにテキストボックスにして、

✔

を表示させてチェックボックスのように見せるという手はあります。

テキストボックスなので条件付き書式は設定できます。

下記にサンプルがありますので、ご参考にどうぞ。

チェックボックスのサイズを大きくする - hatena chips

Answer 2

ご回答いただきありがとうございます。

テキストボックスをチェックボックスに見せる方法は面白いですね！

フォントを変えて、テキストボックスにチェックマークを見せているのですね･･･。

勉強になります。