- ベストアンサー
accessのフォームのチェックボックスを動くようにしたいです。
accessのフォームのチェックボックスを動くようにしたいです。 あるフォームは起動時、更新の許可を「いいえ」に設定しています。フォームの値をいじらせないようにしているためです。 編集可能釦をおしたときに、この更新許可を「はい」にしています。 起動時(起動後)に、あるチェックボックスだけ、動作するようにしたいのですが、なにか簡単な方法はありますでしょうか? チェックボックスが無理でしたら、他の操作ボックスでもよいです(西暦・和暦を指定しているだけのチェックボックスです) p.s. フォームには、テキストや、コンボなど沢山あるため、できれば更新「いいえ」はそのままにしたいです。
- ownmart
- お礼率41% (43/103)
- その他(データベース)
- 回答数3
- ありがとう数20
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
お節介な上にコードが間違っているという・・・m(_ _)m Sub subContorolLock() Dim objForm As Object Dim cnt As Control Set objForm = Me For Each cnt In objForm.Controls If cnt.Name = "チェックボックス1" Then cnt.Locked = False Else cnt.Locked = True End If Next End Sub ロック/非ロックが反対でした・・ 失礼いたしました。
その他の回答 (2)
- sykt1217
- ベストアンサー率34% (277/798)
#1です。 面倒とのことですが、どういった処理を行う予定でしょう? 例えば、単に特定のチェックボックスのみを非ロックにして、その他をロックしたい場合は、 Sub subContorolLock() Dim objForm As Object Dim cnt As Control Set objForm = Me For Each cnt In objForm.Controls If cnt.Name = "チェックボックス1" Then cnt.Locked = True Else cnt.Locked = False End If Next End Sub のようにループさせてやっても出来ます。 お節介失礼いたしました^^;
- sykt1217
- ベストアンサー率34% (277/798)
フォーム単位での更新不許可なので、コントロール単位での更新許可/不許可を変更したい場合は、コントロール単位で制御をする必要があります。 ですので、追伸部分に反しますが、将来の汎用性から考慮しても、コントロール制御用のファンクションを用意して、コントロール単位での制御に変更することをお勧めします。 ロックをする場合は Me!コントロール名.Locked = True もしくは Me!コントロール名.Enabled = False で使用不可にすることで対処できます。
お礼
ありがとうございます。 やはり、フォームの設定なので、更新は許可にしなければいけないのですね。 一つ操作を加えたいだけで、全部ロックにするのは、ちょっと面倒ですががんばります。 ありがとうございます。
関連するQ&A
- マクロ フォームでのチェックボックスについて
教えてください。 1)フォームでテキストボックス2つ、ボタンで新しい入力フォーム表示 2)入力フォームでチェックボックス6個、コンボボックス6個を作ります。 3)チェックボックスにチェック(1個のみ)したら、1)のフォームのテキストボックスにチェックされた、項目とコンボボックスで選択された内容が転記したい。 例)果物にチェック、コンボでブドウと選択 テキストボックス→果物 ブドウ というようにフォームに転記させたい。 以前、シートでのマクロを教えていただきましたが、フォームだと頭が混乱してしまいました。 簡単で良いので、マクロの記述を教えてください。
- ベストアンサー
- オフィス系ソフト
- チェックボックスの自動チェックについて
イベントが起こるとチェックボックスに自動でチェックを入れたいのですが教えて下さい。 コンボボックスとチェックボックスが下のようにあります。 コンボボックス チェックボックス ------------- -- | | | | ------------- -- ------------- -- | | | | ------------- -- 複数のコンボ,チェックボックスには"コンボ001"、"チェック001","コンボ002"・・・ というように名前がついていて、その時々で、コンボ、チェックボックス の数は変わってきます。 そこで、コンボ001の値が変化したらチェック001にチェック、コンボ002の値が変化したら チェック002にチェックするという風にしたいと考えています。 コンボが onChange したら用意しておいたファンクションを起動させると言うのはわかるのですが、肝心のJavaScriptの部分がわかりません。 皆様宜しくお願いします。
- ベストアンサー
- JavaScript
- ACCESSのチェックボックスとコンボボックスの作り方
1. テーブルを作って、そのテーブルからフォームを作るところまでいきました。フォームから入力する時に、いちいちタイプしなくていいようにチェックできるもの(例えば、男女からどちらか選ぶ)をつくりたいのですが、テーブルビューのルックアップから2つチェックボックスを作ることができません。やり方を教えてください。 2. コンボボックスを使って複数から選ぶようにすることはできたのですが、毎回マウスを使わないとできません。マウスを使わないでコンボボックスのアイテムを選ぶようにすることはできますか?
- 締切済み
- オフィス系ソフト
- ACCESS2000のコンボボックスについて
OS:WindowsXP AP:ACCESS2000 テーブルと連結で帳票フォームを作成しています。 フォームヘッダー : 検索用のテキストボックス、コンボボックス、ラジオボタン等配置 (非連結オブジェクト) 詳細 : 上記検索条件の値に合致したものを抽出し一覧表示 フォームプロパティ : 更新の許可「はい」、削除の許可「はい」、追加の許可「はい」 レコードセット「スナップショット」 フォームヘッダーにて検索条件を入力し、検索を行います。 該当レコードがなしの結果となった場合にそのままの状態で フォームヘッダーの検索条件に入っている値をクリアし フォームヘッダーのコンボボックスにて値を選択すると値の表示が消えてしまいます。 消えているのは表示のみのようで検索ボタン押下で抽出を行うと該当レコードが抽出されます。 この表示を正常にさせるようにするにはどうしたらよいでしょうか? RequeryやRepaintをコードに追加したのですがうまくいきません。 他のサイトでも検索をかけたのですが今のところ該当するような記事に辿り着けていません。 正常動作が確認できているのは下記のパターンの時となります。 ・フォームプロパティにてレコードセットがダイナセット、追加の許可がはいの場合 (更新の許可、削除の許可は「はい」でも「いいえ」でもどちらでもOK) ※運用上、一覧参照画面としたいので追加の許可は「いいえ」としたいですが「いいえ」の場合はNGでした ・レコードカウントが1件以上の場合 解決方法を知っていらっしゃる方いらっしゃいますでしょうか? 宜しくお願い致します。
- ベストアンサー
- その他(データベース)
- ACCESSのコンボボックスについて
ACCESSのコンボボックスに「012/015/028/125」等が設定されているて、 コンボボックスのプロパティの「入力チェック」は「はい」の設定になっております。 そういった場合、「12」と入力した場合、「012」とすることは可能でしょうか? テキストボックスの場合には、そのテキストボックスの更新後処理で Me.コード = Format(Me.コード, "000") のように記述し変更していたのですが・・・。 コンボボックスでは、「指定した値はリストにありません」と表示され、更新後処理がが実行されません。
- ベストアンサー
- その他([技術者向] コンピューター)
- チェックボックスについて
以前にもお世話になりました。 今回もチェックボックスのことで教えてください。 ・チェックボックスA・B ・コンボボックス(OPTION 1.条件なし 2.りんご 3.みかん) ・テキストボックス があるとします。 チェックボックスBの時はコンボボックス・テキストボックスは両方選択不可にしたいです。 Aの時はどちらか一方を指定したらもう1つは選択できないようにしたいです。コンボボックスの内容が「条件なし」の時でもテキストは不可にしたいです。 分かられる方いらっしゃいましたら、 よろしくお願いします。
- 締切済み
- JavaScript
- Access フォーム コンボボックス
フォーム上のコンボボックスの選択したデータをテーブルに保存するにはどのようにすれば宜しいのでしょうか? 実際のものは、社員が複数人表示されていまして、その社員一人一人が1日ごとの出勤が可能か不可能かをコンボボックスから選択しテーブルに書き込みたいのですが、その社員一覧のテキストボックスと出勤可・不のコンボ(コントロールソースにてテーブルの各日付ごとに設定)をフォームに作ったところ、社員一覧と社員に対するコンボがずらっと表示さるのですが、コンボを選択しようとしますと下部に「このコントロールは式○○に連結しているため編集できません。」と表示されます。 長文になり、尚且つかなり分かりづらい説明で申し訳ございませんが宜しくお願い致します。
- ベストアンサー
- その他(データベース)
- Excel ユーザーフォームでコンボボックスを使用してデータ入力
Excelのユーザーフォームでコンボボックスを使用して、シートのデータを表示しています。 コンボボックス:ComboBox1 テキストボックス1-3:TextBox1-3 コンボボックスのRowSource:シート名!A2:C100 コンボボックスの変更時の動作: Me!TextBox1.Value = ComboBox1.Value とここまではできたんですが、テキストボックス2にシートのB列の値を、テキストボックス3にシートのC列の値を入れたいのですが、 どのようにしたらいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- アクセス チェックボックスについて
チェックボックスやコンボボックスを使って入力するようにすると、フィールドに入力できるのが値だけになってしまいます。値でなく、選択した文字列を入力したいのですが、どうやったらいいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- チェックボックスの自動入力?
ACCESS2007です。フォームにあるコンボボックスの値リストの中から特定のものを選択した場合にのみ、そのフォーム上にあるチェックボックスにチェックを入れる・・出来るでしょうか?
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 上記方法で検討したいと思います。 助かりました。