みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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


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

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

投稿日時 - 2019-06-04 14:52:41

QNo.9622903

困ってます

質問者が選んだベストアンサー

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

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

投稿日時 - 2019-06-04 20:28:44

お礼

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

投稿日時 - 2019-06-05 05:14:00

ANo.3

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

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

投稿日時 - 2019-06-04 18:42:28

補足

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

投稿日時 - 2019-06-04 20:06:57

お礼

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

投稿日時 - 2019-06-05 05:13:28

ANo.1

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

投稿日時 - 2019-06-04 18:14:51

お礼

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

投稿日時 - 2019-06-05 05:12:57

あなたにオススメの質問