ACCESSでフォーム上のオブジェクトが引数に渡らない

質問

環境：XP&ACCESS2003
メインフォーム(下記Ａ)に得意先名、全体の金額、消費税等、サブフォームに売上明細（工種番号、工種、数量、単価、金額）
を持っています。
明細テーブルは、工種番号１～８、工種１～８、数量１～８、単価１～８、金額１～８までの
フィールドを持っています。
マクロで、工種番号が変わった場合、数量が変わった場合、それぞれ金額を計算させていました。

マクロをＶＢに変換したところ、以下のようになります。（工種番号１_AfterUpdateの場合）
With CodeContextObject
DoCmd.RepaintObject acForm, "Ａ"
.Form.工種1 = DLookup("[工種]", "測量台帳", "Forms![Ａ]![年度]=[年度] And Form.[工種番号１]=[工種番号] AND [Forms]![Ａ]![ブロック]=[ブロック]")
.Form.単価1 = DLookup("[単価]", "測量台帳", "Forms![Ａ]![年度]=[年度] And Form.[工種番号１]=[工種番号] AND [Forms]![Ａ]![ブロック]=[ブロック]")
.Form.数量1 = 1
.Form.金額1 = Int(Form.単価5 * Val(Form.数量1))
[Forms]![Ａ]![測量委託費] = [計]
[Forms]![Ａ]![消費税相当額] = IntA([計] * Val([Forms]![Ａ]![消費税率] / 100))
End With

Private Functionを作り、サブフォーム上のオブジェクトを数量１～８までが変更された時に、引数で渡してやり
シンプルな作りにしようと以下の様に作成しましたが金額（=引数の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, "Ａ"
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

----------------------------数量１が変わった場合の処理
Private Sub 数量１_AfterUpdate()
Call suuryoukeisan("工種番号1", "数量1", "単価1", "金額1", 数量1, 単価1, 金額1)
End Sub
---------------------------

回答No.3

noname#140971

＜売上伝票＞
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さんのアドバイスと課題＞

１、[売上明細]を8行で追加禁止にする方法の確立。
２、[売上明細]で3行入力して2行目が削除された場合の[行番号]のリナンバーするルーチンの確立。

多分、質問者は、１、２の手法が判らないので Excel風のテーブル設計にしたのでしょう。
ここが課題ですね。