No.3ベストアンサー
- 回答日時:
> 既定値に、担当者を入れる以外に方法はあるでしょうか?
『予め、テーブル/フォームのデザインビューで既定値を設定』では
なく、『フォームでの入力時に、その値を既定値に設定』という
方法もありますが、それではいかがでしょうか。
1)当該フォームをデザインビューで開く
2)当該リストボックスをダブルクリックするなどして、同リストボックス
のプロパティシートを開く
3)『イベント』タブの『更新後処理』にカーソルを移動すると、右端
に『...』(ビルダ)ボタンが表示されるので、それをクリック
4)『ビルダの選択』ダイアログが開くので、マクロで対応するなら
「マクロ ビルダ」を、VBAで対応するなら「コード ビルダ」をダブル
クリック
5-a)マクロの場合は、マクロに以下の一行を追加:
アクション: 値の代入
アイテム: Forms!(フォーム名)!(リストボックス名).DefaultValue
式: Nz(Forms!(フォーム名)!(リストボックス名), "")
※フォーム名、リストボックス名には、実際の名前を指定します。
(その際、「( )」は無用です。また、入力後は角括弧が自動で
追加されます)
5-b)VBAの場合は、以下のコードを記述:
Private Sub リストボックス名_AfterUpdate()
'エラー発生時は「エラー処理」の行に飛ばす
On Error Goto エラー処理
'マウスなどで入力した値を、既定値に設定
'(値を削除した場合は、既定値の設定を解除)
リストボックス名.DefaultValue =Nz( リストボックス名, "")
終了処理:
'処理を終了(エラー処理に入るのを避ける)
Exit Sub
エラー処理:
'エラー内容をメッセージボックスで表示して処理を中止
MsgBox Err.Number & ":" & Err.Description, , Me.Name & " リストボックス"
Resume 終了処理
End Sub
6)フォーム(及びマクロ)を保存
・・・以上です。
既定値(DefaultValue)にはNull(空白)を指定できないため、
Nz関数による空文字("":Nullとは別の空白)への変換を
加えています。
(リストボックスではNullの代入は、まずあり得ないと思います
が、テキストボックスやコンボボックスなどに応用した場合の
参考までにということで・・・)
なお、念のためですが、『既定値』は、あくまで「新規レコードの
追加時」にのみ適用されます。
「既存レコードの連続編集時」には無効ですので、ご質問の
意図がそのような状況のためのものでしたら、ご容赦下さい。
(この場合は、「前レコードと同じ値に変更するのか、古い値の
ままでいいのか」をAccess側に判断させることはできないので、
プログラムのみでの対処はできないと思います:
「常に上書き」等、一方に決めてよい場合のみ可能、と)
ありがとうございます。
内容は、私には難しいですが、詳しい説明のとおりしたら出来ました。
まさに、求めていた答えです。
ありがとうございました。
No.2
- 回答日時:
データをaddした後に
リストボックス名=担当者名 でできます。
テーブルを使用している場合はフィールドを1つ増やし選択された場合に
データ(数字など)を変更し
変更した担当者以外は空白にするなどすれば
次にフォームを開いたときに空白でないデータの担当者を選のはどうでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセス フォームの自動入力 1 2023/03/20 00:18
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) [テーマのフォント]、[見出しのフォント]、[本文のフォント]とは何ぞや? 2 2023/02/27 09:18
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- JavaScript HTML,JS初心者です。 2つのselectボックスが有り その選択の組み合わせにより 指定した文 3 2022/03/31 23:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
-
4
accessの自動更新処理をできないようにするにはどうすれば良いですか?
その他(データベース)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
Access2010 Enterで次テキストへ移動
その他(Microsoft Office)
-
7
ACCESSフォームのリストボックスでレコードが選択できない
Access(アクセス)
-
8
Acccessで2つのテーブルから1つのフォームをつくりたい
Access(アクセス)
-
9
accessでのリストボックス選択のイベント
その他(データベース)
-
10
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
11
Accessの処理速度を速めるためにテーブルとそれ以外を分割してもああまり速くならないのですが・・・
その他(データベース)
-
12
Accessのコンボボックスの値が消える
Excel(エクセル)
-
13
ACCESS フォームからサブフォームのデータを更新・入力したい
Access(アクセス)
-
14
どこにもフォーカスを当てたくない
Access(アクセス)
-
15
Accessのコンボボックスのデフォルト表示
その他(データベース)
-
16
レコードを保存するコード アクセスvba
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
ある範囲のセルから任意の値を...
-
甲状腺が腫れているが血液検査...
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
至急!尿検査前日にオナニーし...
-
EXCELで条件付き書式で空白セル...
-
Excelで""で囲む方法
-
EXCELで式からグラフを描くには?
-
中出しをするとお腹が痛い・・・。
-
筋トレするとチンコが縮んじゃ...
-
エクセルの質問。 対象範囲...
-
精子に血が・・・
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報