あるフィールドに入力する時、1つ前のレコードと同じ値であれば、Ctrl+2で簡単に入力出来ますね。
それで、更に入力の手間を省くために、これもVBAで自動化しようと思ったのですが、はてどうしたらと行き詰まってしまいました。
入力用のフォームを作っておいて、いくつかのフィールドに入力するテキストボックスをいくつか作って、そのうち1つはほとんど同じ値を持つとすれば、このフォームの更新前のイベントプロシージャが適切かと思います。このフォームに入力しようとしたら、即座にほとんど決まった値を持つフィールドに、1つ前のレコードの値が入るというようなコードになるかと思います。そのコードの1例を教えて頂けますか?また、他のいい方法はあるのでしょうか?
以上、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
1つ前のレコードと同じ値であれば、Ctrl+2で簡単に入力出来ますね
↑ Ctrl + 7 じゃ無かったかな?と思いましてチャチャ入れようかと
しましたが出来るんですねぇ!
本題に戻りまして、規定値の変更でお望みのものに近い事が
出来るように思います。
コントロールの更新後処理に
数値型の場合
Me!コントロール名.DefaultValue = Me!コントロール名.Value
文字型の場合
Me!コントロール名.DefaultValue = """" & Me!コントロール名.Value & """"
日付時刻型の場合
Me!コントロール名.DefaultValue = "#" & Me!コントロール名.Value & "#"
をデータ型に応じて適宜使い分ければ
次の新規レコードに移動した場合の規定値となります。
ということかな?
nicotinismさん
ご回答どうもありがとうございます。
なるほど、規定値の変更でしたか。本当にこれがいいと思います。感謝します。
それで、
文字型の場合
Me!コントロール名.DefaultValue = """" & Me!コントロール名.Value & """"
のところで、どうして"が4つ必要なの?3つでいいのでは?そこのところをよろしくお願いします。
No.2
- 回答日時:
" 3個で動きました?
当方Access2002 と Access97です。
経験上、4個でないと動かない・・としか分かりません。
どうも、" そのものを渡すためには、""2個必要でこれをさらに""で括ってやらないとダメのようです。
余談ですが
Me!コントロール名.DefaultValue = Chr(34) & Me!コントロール名.Value & Chr(34)
と、" の文字コードを直接送ってもよいですね。
また
Me!コントロール名.DefaultValue = "'" & Me!コントロール名.Value & "'"
でも大丈夫?のようです。
nicotinismさん
ご回答ありがとうございます。
3個でやってみたら、「 & Me!コントロール名.Value & 」という文字列そのままが表示されました。つまり、コマンドではなく文字列にするという意味なんですね。だから4個必要ということなんですね。また、"'"でも正常に動きました。本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
Accessで上の行を自動でコピーする方法
Access(アクセス)
-
Accessでフォーム上に 直前の データを表示させるには
Access(アクセス)
-
-
4
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
5
アクセス 前レコード内容を、新レコードにコピー
Access(アクセス)
-
6
前のレコードの合計に現レコードの値を加えたいのです。
Access(アクセス)
-
7
ACCESSのレコード操作で1つ前のレコードの再表示方法をご教授下さい。
その他(データベース)
-
8
「Access」のフォームで、同じデータの入力の手間を省くには?
Access(アクセス)
-
9
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
10
ACCESSでのひとつ前レコードの求め方について
その他(Microsoft Office)
-
11
テキストボックスに入力した値を、次に入れ替えるまで保持させたいのですが、どのような方法があるでしょう
Access(アクセス)
-
12
Access サブフォームでの選択行の取得
その他(データベース)
-
13
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
14
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
15
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
16
Accessで新しいレコードに規定値を入力させるには?
Access(アクセス)
-
17
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
18
Accessでレコードの複製
Access(アクセス)
-
19
Accessのレポートの文字にカッコを追加したい。
Access(アクセス)
-
20
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
イタリアから帰国する際、肉製...
-
精液の落とし方を教えてください
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
エクセルで数式の答えを数値と...
-
エクセル指定した範囲からラン...
-
精子に血が・・・
-
2つの数値のうち、数値が小さい...
-
EXCELで条件付き書式で空白セル...
-
これって喉仏ですか? 私は女性...
-
風俗店へ行く前のご飯
-
精子が黄色?
-
甲状腺が腫れているが血液検査...
-
リンク先のファイルを開かなく...
-
小数点以下を繰り上げたものを...
-
【Excelで「正弦波」のグラフを...
-
excelでsin二乗のやり方を教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
検便についてです。 便は取れた...
-
これって喉仏ですか? 私は女性...
-
小数点以下を繰り上げたものを...
-
甲状腺が腫れているが血液検査...
-
精液の落とし方を教えてください
-
エクセル指定した範囲からラン...
-
EXCELで条件付き書式で空白セル...
-
2つの数値のうち、数値が小さい...
-
精子に血が・・・
-
エクセルのラベルの値(文字列...
-
イタリアから帰国する際、肉製...
-
ある範囲のセルから任意の値を...
-
リンク先のファイルを開かなく...
-
中出しをするとお腹が痛い・・・。
-
MIN関数で空白セルを無視したい...
おすすめ情報