Access初心者のものです。
Accessで商品管理のデータベースを作成しています。
主なテーブルの内容は、
商品番号、商品名、仕入数、仕入単価、販売数、販売単価、などです。
そしてクエリで、
仕入数×仕入単価=仕入金額、販売数×販売単価=販売金額を作成し、
入力フォームのフィールドで仕入数、仕入単価を入れれば仕入金額が計算されるようにしています。
そこでですが、仕入金額の表示が仕入数、仕入単価を入れて仕入金額のフィールドにフォーカス移動したときに計算結果が表示されずレコードの移動して元に戻ると計算結果が表示されます。
結果的には計算結果は表示されるのですが、レコード移動ではなくフォーカス移動後に計算結果を表示させるには、どのようなマクロの設定をすればよろしいのでしょうか?
マクロについてはあまり詳しくはない為、その点ご考慮くださいますよう宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
フォーカスが移動されてくるオブジェクトのイベントのフォーカス取得時にマクロを作ります。
仕入数、仕入単価が入力されているテキストの計算をマクロに書いてそれで終わりです。
マクロの値の代入を選択
アイテムに仕入れ金額の場所をセット
式に仕入数の場所かける仕入単価をセット
これでいけるはずです
matui2000さん。ご回答ありがとうございます。
お礼の回答遅くなりまして失礼しました。
回答があった通りやってみましたらできました。
大変助かりました。答えてネットがとまりっぱなしだったので大変困ってました。
また機会がありましたらよろしくお願い致します。
No.2
- 回答日時:
通常であればフォーカスが移動した直後に計算されるはず?
Access2003では少し問題があるような事を見た覚えがありますが
何処でかは思い出せません。
フォームの基となっているクエリでは計算されますか?
対症療法的ですが
フォームの仕入金額と販売金額のコントロールソースをそれぞれ
= 仕入数 * 仕入単価
= 販売数 * 販売単価
に変更してみる。
あるいは、VBAになりますがコントロールソースは変更せずに
仕入数、仕入単価、販売数、販売単価の更新後処理に
Me.Recalc
としてみる。
例
Private 仕入数_AfterUpdate()
Me.Recalc
End Sub
とかでしょうかね。
nicotinismさん。ご回答ありがとうございます。
お礼の回答遅くなりまして失礼しました。
またの機会がありましたらよろしくお願いいたします。
No.3
- 回答日時:
ウーン!
クエリを使わなければ宜しいかと・・・
[仕入金額].コントロールソース=[仕入数]*[仕入単価]
[販売金額].コントロールソース=[販売数]*[販売単価]
・レコード移動後でないと[仕入金額]、[販売金額]が更新されないのは当然のことです。
・レコード移動時にテーブルが更新されるからです。
・[Shift]+[Enter]で強制的にレコードを更新して[F9]で再呼び込みすれば更新されるでしょう。
・この手続きをコードで書けば宜しい訳ですが、そんな手間隙を掛けずに<コントロールソース>を設定した方が簡単です。
s_huskyさん。ご回答ありがとうございます。
お礼の回答遅くなりまして失礼しました。
またの機会がありましたらよろしくお願いいたします。
No.4
- 回答日時:
通常はデータベースには演算された結果は保存しませんが。
仕入金額や販売金額などは入力フォーム上やレポート上で計算すれば良いので・・。
>仕入金額のフィールドにフォーカス移動したときに計算結果が表示されず・・
クエリを使ってテーブルに保存している場合はそうなります。
入力フォームの仕入金額のプロパティでコントロールソースに
=[仕入数]*[仕入単価]
とすればすぐ計算してくれます。しかしコントロールソースが演算式なのでテーブルには保存されません。
フォーム上で計算した値をテーブルに保存する方法は色々ありますが簡単なのはフォームの仕入単価のプロパティのイベントにある更新後処理にコードビルダで
Private Sub 仕入単価_AfterUpdate()
Me!仕入金額 = [仕入数]*[仕入単価]
End Sub
のようにすれば仕入単価を入力し他のコントロールに移動する際に仕入金額に計算した値を代入してくれます。(必ず仕入単価を入力しなくてはいけませんが)
テーブルにも保存されます。
マクロ使う必要はありませんしクエリでテーブルに保存時に演算し保存する必要もなくこれが簡単。
O_cyanさん。ご回答ありがとうございます。
お礼の回答遅くなりまして失礼しました。
またの機会がありましたらよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- その他(教育・科学・学問) ある店舗はA商品を原価200円で仕入れ280円で販売し、B商品を300円で仕入れ460円で販売する計 2 2023/01/16 16:10
- Excel(エクセル) グループの最後の行に書式、計算式なども同じ行を追加するマクロを教えてもらえませんか。 7 2022/05/18 10:13
- 簿記検定・漢字検定・秘書検定 簿記2級 未実現利益 基本的な計算が分かりません。。。 Q 1の未実現利益の計算です。親会社は子会社 1 2022/07/13 13:50
- 高校 日商簿記3級の勉強中なのですが 精算表が完成せず困っています。 こちらの問題の回答を教えていただきた 2 2023/03/02 09:07
- その他(お金・保険・資産運用) 至急!【Wolt】各メニューの価格設定の簡単な計算方法 3 2023/03/05 11:58
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- 消費税 消費税の納税額の計算 1 2023/02/19 18:12
- Visual Basic(VBA) EXCEL関数LOOKUPとFILTERについての質問です 1 2022/12/21 05:53
- その他(学校・勉強) 以下の問題の解き方を教えてください ケーキ100個を、仕入価格の2割増しとした販売価格で売っていた 2 2023/08/24 18:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
公共建築工事(設備)の積算に...
-
●何故? ラーメン店は 開業•閉...
-
製造業に勤めています。 外注さ...
-
単価の前についている「@」
-
一式という言葉の使い方
-
エクセル 価格表から単価を呼び...
-
ACCESSのレコード順番の入れ替え
-
26歳女です。彼氏がいてメンエ...
-
会社で昇級試験があり、提言書...
-
IFERROR、SMALL関数について
-
独占禁止法、下請法、優越的地...
-
2024年 職人不足で単価が上がる...
-
事務所ビルの電気料金について...
-
エクセル 単位
-
鶏肉のもも肉、むね肉、など部...
-
3dプリンターで儲かる?
-
電気工事の見積もりについて勉...
-
ネットフェンスの撤去費の積算
-
天井開口費の見積について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
はじめまして。私、配管業を個...
-
一式という言葉の使い方
-
CIF単価→FOB単価の算出の仕方を...
-
製造業に勤めています。 外注さ...
-
天井開口費の見積について
-
エクセル 価格表から単価を呼び...
-
会社で昇級試験があり、提言書...
-
外構見積もりましたが、どうで...
-
2024年 職人不足で単価が上がる...
-
公共建築工事(設備)の積算に...
-
事務所ビルの電気料金について...
-
仕入単価
-
1工数1人工
-
単価の前についている「@」
-
積算 高所作業車 建築
-
●何故? ラーメン店は 開業•閉...
-
外付けHDDって、この先も長く、...
-
接客販売店員の一日の平均売り上げ
-
売上、客数、単価から買い上げ...
-
リストボックスの項目に、他の...
おすすめ情報