環境:XP&ACCESS2003
メインフォーム(下記A)に得意先名、全体の金額、消費税等、サブフォームに売上明細(工種番号、工種、数量、単価、金額)
を持っています。
明細テーブルは、工種番号1~8、工種1~8、数量1~8、単価1~8、金額1~8までの
フィールドを持っています。
マクロで、工種番号が変わった場合、数量が変わった場合、それぞれ金額を計算させていました。
マクロをVBに変換したところ、以下のようになります。(工種番号1_AfterUpdateの場合)
With CodeContextObject
DoCmd.RepaintObject acForm, "A"
.Form.工種1 = DLookup("[工種]", "測量台帳", "Forms![A]![年度]=[年度] And Form.[工種番号1]=[工種番号] AND [Forms]![A]![ブロック]=[ブロック]")
.Form.単価1 = DLookup("[単価]", "測量台帳", "Forms![A]![年度]=[年度] And Form.[工種番号1]=[工種番号] AND [Forms]![A]![ブロック]=[ブロック]")
.Form.数量1 = 1
.Form.金額1 = Int(Form.単価5 * Val(Form.数量1))
[Forms]![A]![測量委託費] = [計]
[Forms]![A]![消費税相当額] = IntA([計] * Val([Forms]![A]![消費税率] / 100))
End With
Private Functionを作り、サブフォーム上のオブジェクトを数量1~8までが変更された時に、引数で渡してやり
シンプルな作りにしようと以下の様に作成しましたが金額(=引数のkingaku)がうまく変わりません。
ご存知の方、よろしくお願いします。
-------------------------------同一フォーム上のPrivate Function
Private Function suuryoukeisan(kousyubangou As String, suuryou As String, tanka As String, kingaku As String, _
F_suuryou, F_tanka, F_kingaku)
With CodeContextObject
DoCmd.RepaintObject acForm, "A"
F_kingaku = IntA(Val(F_tanka) * Val(F_suuryou))
kingaku = F_kingaku
[Forms]![A]![測量委託費] = 計
[Forms]![A]![消費税相当額] = Int(計 * Val([Forms]![A]![消費税率] / 100))
End With
End Function
----------------------------数量1が変わった場合の処理
Private Sub 数量1_AfterUpdate()
Call suuryoukeisan("工種番号1", "数量1", "単価1", "金額1", 数量1, 単価1, 金額1)
End Sub
---------------------------
No.4ベストアンサー
- 回答日時:
他の方が言われる通り、課題は多々あると思いますが、一つ一つクリアしていけばいいと思います。
今回の質問の内容に的を絞って回答します。金額1 はテキストボックスですよね?そう仮定して話を進めます。
>Private Function suuryoukeisan(kousyubangou As String, suuryou As String, tanka As String, kingaku As String, _
>F_suuryou, F_tanka, F_kingaku)
F_suuryou, F_tanka, F_kingaku As TextBox)
関数の宣言部分で、F_kingaku の型宣言を省略しない。
又は、
>F_kingaku = IntA(Val(F_tanka) * Val(F_suuryou))
F_kingaku.Value = Int(Val(F_tanka) * Val(F_suuryou))
代入のところで、代入するプロパティを省略しない。
これで、テキストボックス 金額1 に合計が入ると思います。
解説:
F_kingaku = IntA(Val(F_tanka) * Val(F_suuryou))
この代入でやりたい事は、F_kingakuが参照しているテキストボックスの既定プロパティValueへ代入です。型宣言とプロパティを両方省略した場合、うまく行かないようです。
型宣言とプロパティを両方省略した場合、Variant型の変数 F_kingaku に合計が入ります。
No.3
- 回答日時:
<売上伝票>
ID___得意策_ID
1____101
<売上明細>
ID____売上伝票_ID___行番号___単価___数量
1______1__________________1___________\511___2
2______1__________________2___________\511___1
3______1__________________3___________\511___2
このようなデーブル構造とデータ登録になるのでしょう。
[イミディエイト]
? DBSum("単価 * 数量", "売上明細", "売上伝票_ID=1")
2555
? Rounds(DBSum("単価 * 数量", "売上明細", "売上伝票_ID=1") * 0.05, 切り捨て)
127
[税抜売上合計]、[消費税額]列は、このように簡単に求められるので通常は必要ありません。
<メインフォームへの[税抜売上合計]、[消費税額]の更新は不可>
さて、サブフォームが更新される都度にメインフォームを更新することは一般的に不可能です。
ですから、これらはサブフォームで自動計算させたらいいです。
これですと、サブフォーム=>メインフォームというフォーカスの移動が発生しません。
手法は、単にフッターにテキストボックスを配置して式を仕組むだけです。
複雑なマクロを組む必要はありません。
これは、現行の Excel 風のテーブル構造でも有効な手法です。
<No2さんのアドバイスと課題>
1、[売上明細]を8行で追加禁止にする方法の確立。
2、[売上明細]で3行入力して2行目が削除された場合の[行番号]のリナンバーするルーチンの確立。
多分、質問者は、1、2の手法が判らないので Excel風のテーブル設計にしたのでしょう。
ここが課題ですね。
No.2
- 回答日時:
コードの中身は見ていませんが
>工種番号1_AfterUpdate
>数量1_AfterUpdate()
こんなのが1から8まであるのですか?
これは質問以前の問題として、テーブルがデータベースのものになっていません
メインとサブを関連付けるフィールドも見当たらないですね
テーブルの見直しをされるほうが先でしょうね
うまくいかない原因もその辺にあるように思われます
売上とその明細なら
[売上メイン](売上ID、売上日、得意先名)
「売上明細](売上ID、工種番号、数量、単価)
のようにするところじゃないですか
No.1
- 回答日時:
全部検証する気力と時間がないのでざざっと書きます
(別の方の回答をお待ちください)
ファンクションsuuryoukeisanがおかしい気がしますが この関数自体は上手く機能していますか?
引数に kingaku と F_kingaku があって
>F_kingaku = IntA(Val(F_tanka) * Val(F_suuryou))
>kingaku = F_kingaku
と言うのはおかしいような気がするのですが・・・
引数が変わる、というのはどういうことでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
TextBoxコントロールを引数として渡すには?
その他(教育・科学・学問)
-
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
-
4
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
5
アクセスVBAのMe!と[ ]
Access(アクセス)
-
6
Access-VBAのPublic変数について =基本的な事です=
Visual Basic(VBA)
-
7
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
8
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
9
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
10
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
11
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
12
Access でレコードセレクタが押されたときのイベントは?
その他(プログラミング・Web制作)
-
13
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
14
アクセスのフィルタ nullについて。
その他(データベース)
-
15
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
16
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
17
Accessでリストの並び順を変更したい
Excel(エクセル)
-
18
Access サブフォームでの選択行の取得
その他(データベース)
-
19
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
20
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフォームで思った順番...
-
Access2003で区分の大きい方を...
-
アクセスのフォームで連動した...
-
差し込み後、元データを変更し...
-
for whichの使い方
-
外部参照してるキーを主キーに...
-
DataViewで複数条件の...
-
エラー 1068 (42000): 複数の主...
-
At no time in my life have I ...
-
Outlook 送受信エラー
-
エクセルの関数について教えて...
-
広告ブロッカーのアドカードと...
-
UWSCでMOUSEORG関数が上手く処...
-
日付により変動する「単価」を...
-
There is no 抽象名詞
-
英語ができる方、問題をお願い...
-
誰か教えてください
-
速度が低下し無効になったアド...
-
sinカーブの表示のさせ方
-
変数名「cur」について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
商品番号を入力すると、商品名...
-
LEFT JOIN あいまいな外部結合
-
特定条件での連番の振り方を教...
-
Accessのフォームで思った順番...
-
2つのテーブルを結合して最大値...
-
IDの欠番
-
updateでグループ化
-
エクセルでリピート率
-
各伝票に対して明細を1行目だけ...
-
アクセスのフォームで連動した...
-
ACCESSでフォーム上のオブジェ...
-
Accessレポート 複数条件での集計
-
orace SQL文のエラー(ORA-0092...
-
アクセス メインフォームの伝...
-
Word差し込み印刷 数式について
-
Accessの追加クエリの方法(重...
-
複数のゲストカテゴリ別売上集...
-
文字列のあるキーワードから開...
-
ACCESSでテキストデータ...
-
突合せによるレコード結合につ...
おすすめ情報