No.3ベストアンサー
- 回答日時:
フォームを閉じても情報を残す必要がある場合は、そのフォーム以外にデータ(規定値)を記録しておくことが必要です。
いろいろ考え方はあるかと思いますが、一般的な方法として、(1)Public変数に代入する。(2)テーブルにデータとして保存する。 の二通りが考えられます。(1)の方法は、レスポンスが速く、構文も比較的容易にできますが、データベースを閉じてしまうと規定値もクリアされてしまいます。
(2)の方法は、多少処理が煩雑で、応答も(1)に比べると劣りますが、Accessを一旦閉じても規定値は保存されています。
と言うことで少々複雑になりますが、ここでは (2) の方法を提案させていただきます。
まず、規定値情報を保存するためのテーブル(名前を「TextParameter」:文字列情報のパラメーター全般を保存するテーブル)を作ります。
これに [pName] と [pValue] の二つのテキスト型フィールド(名前はこれにこだわらなくても好みでいいです。)をつくって、最初のレコードの[pName]に、「コンボ規定値」と入れてください。([pValue]は空欄でけっこうです。)
前回お示した、プロシージャの Me![コンボ].DefaultValue ~ の次の行に、以下を挿入してください。
DoCmd.RunSQL "UPDATE TextParameter SET pValue = '" & Me![コンボ] & "' WHERE [pName]='コンボ規定値';"
(更新クエリーで、TextParameterテーブルの pValueフィールドに、規定値を書き込む操作です。)
フォームの Open(開く時)イベントに、以下を記述してください。
Me![コンボ].DefaultValue = "'" & DLookup("pValue", "TextParameter", "pName='コンボ規定値'") & "'"
(コンボボックスの規定値に、テーブルに保存してある値をセットする操作です。)
多少複雑になってしまいましたが、たぶん、以上でご希望のことが可能かと思います。
DoCmd オブジェクト、RunSQL メソッド、アクション(更新)クエリー、DLookup 関数、のあたりを、HELP で確認してみてください。
No.2
- 回答日時:
追加回答がないようですので、代わりに。
まず、HELPで DefaultValue プロパティと BeforeUpdate、AfterUpdate イベントについて調べてみてください。その上で、・・・
フォームをデザインビューで開いて、コンボボックスのイベントタブの更新後処理(更新前処理でもOKだと思います)からイベントプロシージャを開いて、以下のように記述してください。
(コンボ : コンボボックスの名前、 入力するデータが文字列でなく数値なら、前後の "'" & と & "'" は不要)
Private Sub コンボ_AfterUpdate()
Me![コンボ].DefaultValue = "'" & Me![コンボ] & "'" ←この行を打ち込む
End Sub
以上で、コンボボックスの規定値は、最後に入力したコンボボックスの値と同じになります。
この方法では、フォームをを一旦閉じると、規定値もクリアされてしまいます。
再度フォームを開いた際にも規定値が残っていることが必要なら、多少工夫が必要ですので、補足要求をしてください。
この回答への補足
ありがとうございます。
半ばあきらめかけていたので、嬉しいです。
>再度フォームを開いた際にも規定値が残っていることが必要
その通り、というかこれがしたいことなんです。よろしくお願いいたします。
HELP、見ておきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) Accessで独自メニューバーまたはリボンを作成したい 1 2022/12/02 14:31
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) Accessに関する質問です。 クエリーQ出勤 からフォームF出勤を作成 フォームは分割フォームで作 1 2023/05/26 08:57
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessフォームで複数条件でフィールドの値を表示する方法 4 2022/07/21 10:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSクエリ抽出条件について
-
Accessのコンボボックスでリス...
-
Accessのコンボボックスの値が...
-
accessでオートコンプリート機...
-
ACCESSでコンボボックスにSQLで...
-
accessでのリストボックス選択...
-
ACCESS リストボックスの字の色...
-
[Access2003]コンボボックスと...
-
ACCESSのリストボックス抽出に...
-
コンボボックスのリスト外入力...
-
アクセスで大分類・中分類・小...
-
帳票フォームでのあるコンボボ...
-
.flex-direction プロパティは...
-
Accessフォーム 大分類→小分類...
-
アクセスでのコンボボックス複...
-
エクセルで、抽出したデータだ...
-
Access サブフォームでの選択行...
-
ソフトの製品コードを知りたい
-
ACCESSでVBAから選択クエリの抽...
-
ACCESSで、EXCELのような、sumi...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスの値が...
-
Accessのコンボボックスでリス...
-
帳票フォームでのあるコンボボ...
-
accessでオートコンプリート機...
-
Accessのコンボボックスの”すべ...
-
ACCESSクエリ抽出条件について
-
ACCESS リストボックスの字の色...
-
ACCESSでコンボボックスにSQLで...
-
Accessのコンボボックスのデフ...
-
ACCESS VBA CSVのインポート ...
-
更新クエリで変数は使えない?
-
Access 個別部署名テーブルから...
-
フォームでの検索
-
Access フォーム内 コンボから...
-
Accessのフォーム(コンボボッ...
-
Oracleで文字列型の時間を引き...
-
Access 帳票フォームのコンボボ...
-
アクセスでのコンボボックス複...
-
リストボックスの時はリンク先...
-
accessでのリストボックス選択...
おすすめ情報