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.4

venzou · ベストアンサー

他の方が言われる通り、課題は多々あると思いますが、一つ一つクリアしていけばいいと思います。今回の質問の内容に的を絞って回答します。

金額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 に合計が入ります。