チェックボックスの管理方法について

質問

著名人のデータベースを新たに作成いたしました。ご存命者はチェックボックスで管理しますが、著名者がご高齢の場合、いずれチェックボックスを外す必要があります。しかし、閲覧中に誤ってチェックボックスを外す可能性があり、有効な管理方法がないかと考えています。アドバイスをお願いできませんでしょうか。

「データの保全と編集の容易性を両立させたい（考えたこと）」
１，閲覧中に誤ってチェックボックスに触れてもチェックを外せない様にしたい。「編集ロックの設定」
２，チェックボックスのチェックを外す時に設定「編集ロック解除し編集ロックを再設定」を変えたりしない。

「例えば・・・」
チェックボックスを編集ロックにしておいて、チェックボックスの傍らにコマンドボタンを作成し、編集ロックのＯＮ・ＯＦＦ可能にする方法は可能でしょうか。もし、可能であればどの様に設定すればよいのでしょうか。

「オブジェクト例（フォームは他に単票及び一覧が数種類あり）」
・フォーム名：著名人リストフォーム
・リストフォーム上のチェックボックス名：存命

以上ですが、宜しくお願いいたします。

回答No.3

kkkkkm · ベストアンサー

> フォームを閉じて再度フォームを開きますと、元の状態「無設定」に戻ってしまいます

フォームを開いたときに使用不可にしたい場合は、プロパティで「使用可能」を「いいえ」にして保存をしてください。

お礼

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

回答No.2

kkkkkm

オンオフをボタンで切り替える場合は
ボタンを作成してボタンのクリック時のイベントプロシージャに
Private Sub コマンドボタンの名前_Click()
If Me.存命.Enabled = True Then
Me.存命.Enabled = False
Else
Me.存命.Enabled = True
End If
End Sub

お礼

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

補足

早速のアドバイスありがとうございます。コマンドボタンのクリック時で記述しますと、確かに「使用可能＝いいえ」の状態になりますが、フォームを閉じて再度フォームを開きますと、元の状態「無設定」に戻ってしまいます。私の手順に間違いがあるのでしょうか。ご面倒をお掛けしますが、再アドバイスを宜しくお願いします。

回答No.1

kkkkkm

チェックボックスをチェックした際に変更するかどうかをMsgBoxで問い合わせするようにすればいかがですか。
MsgBox使用例
https://tsware.jp/study/vol16/vbabegin_17.htm

お礼

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