フォーム画面に編集の可否機能を付けたい

Question

お世話になります。

OS:Windows7 Pro SP-1

ACCESS:2010

現在あるACCESSのフォームに追加にて機能を付けたいと考えております。

フォームの一部に、現在表示されているデータに編集ロックをかけるため

のチェックボックスを追加したいのです。

チェックボックスにチェックを入れると、そのデータだけ、編集ができなくなるり、

チェックボックスのチェックを外すと、そのデータの編集が可能なようにしたい

のです。

このような機能を付けるためには、フォームをどのように変更すれば良いで

しょうか

例:下記の場合、製品名2だけ、編集ができなくなります。

製品名　　  製品番号      仕様内容     チェックボックス

製品名1　　製品番号1　仕様内容1　FALSE

製品名2　　製品番号2　仕様内容2　True

製品名3　　製品番号3　仕様内容3　FALSE

製品名4　　製品番号4　仕様内容4　FALSE

お忙しいとは思いますが宜しくお願い致します。

Answer 1

> 今回のフォームは、単票フォームになります。

> その場合、条件付き書式以外には、どのような方法が

> ありますでしょうか

フォームの[レコード移動時]イベントや

連結チェックボックスの[クリック時]イベントが発生した際に、

各コントロールの[使用可能]プロパティ

（または[編集ロック]プロパティ）を設定する

VBA のコードを実行する、といった方法が挙げられます。

（フォームモジュール）

---

Option Compare Database

Option Explicit

'フォームの[レコード移動時]イベント

Private Sub Form_Current()

    Call subSetEnabled

End Sub

'連結チェックボックス[チェックボックス名]の[クリック時]イベント

Private Sub チェックボックス名_Click()

    Call subSetEnabled

End Sub

'フォーム上の各コントロールの[使用可能]プロパティを

'設定するサブルーチン

Private Sub subSetEnabled()

    '変数の宣言

    Dim boolEnabled  As Boolean

    With Me

        boolEnabled = (Not ![チェックボックス名])

        If boolEnabled = False Then

            ![チェックボックス名].SetFocus

        End If

        ![製品名].Enabled = boolEnabled

        ![製品番号].Enabled = boolEnabled

        ![仕様内容].Enabled = boolEnabled

    End With

End Sub

---

Answer 2

sk.exeさん

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

今回のフォームは、単票フォームになります。

その場合、条件付き書式以外には、どのような方法が

ありますでしょうか

宜しくお願い致します。

Answer 3

> やはり、コントロール1つづつ設定するしかないのでしょうか

設定対象となるテキストボックスやコンボボックスを

複数選択した状態で、同じ条件付き書式を設定なさればよい

と思います。

> 実は、200個近くのコントロールがあるため、他にないかと探して

> いたのです。(プルダウン・チェックボックス・押しボタン等が散ら

> ばっている状態なのです)

少なくとも、そのフォームが（単票フォームではなく）

帳票フォームやデータシートフォームであるならば、

基本的に「条件付き書式を設定する」以外の方法はありません。

Answer 4

早速のご返信をありがとうございました。

やはり、コントロール1つづつ設定するしかないのでしょうか

実は、200個近くのコントロールがあるため、他にないかと探して

いたのです。(プルダウン・チェックボックス・押しボタン等が散ら

ばっている状態なのです)

※事前に書いておかずに申し訳ありませんでした。

他に何かありましたら教えて下さい。

Answer 5

> フォームの一部に、現在表示されているデータに編集ロックをかけるため

> のチェックボックスを追加したいのです。

> チェックボックスにチェックを入れると、そのデータだけ、編集ができなくなるり、

> チェックボックスのチェックを外すと、そのデータの編集が可能なようにしたい

> のです。

> このような機能を付けるためには、フォームをどのように変更すれば良いで

> しょうか

[製品名], [製品番号], [仕様内容]のそれぞれをコントロールソースとする

連結テキストボックス（または連結コンボボックス）に

条件付き書式を設定なさればよろしいかと。