Access (一般機能)

Accessの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : 指定なし)
帳票フォームの計算結果をテーブルに代入する
投稿日時: 20/10/28 11:14:53
投稿者: miyama2305

access2019
下記のコードを参考にさせてもらいました。
http://www.ruriplus.com/msaccess/bbscbrwb.asp?Root=11999
フォーム名は集計間接工事集計です。
フォームヘッダーには以下です
テキストボックス名は
5434k----/5435k-----/5467kです
法定福利費/福利厚生費/雑費
25000-----/30000-----/2500/
この金額は共通費の合計額です。この金額を工事ごとに配賦します。
 
帳票フォームの詳細は以下です
工事NO/労務費割合/法定福利費/福利厚生費/雑費
1111----/25%------/----------/----------/-----
1112----/15%------/----------/----------/-----
1113----/30%------/----------/----------/-----
以下続く
この帳票フォームに共通費合計額に労務費割合を乗じて詳細フォームに科目ごとに
表示します。
工事NO/労務費割合/法定福利費/福利厚生費/雑費
1111----/25%------/25000×25%/30000×25%/2500×25%
1112----/15%------/25000×15%/30000×15%/2500×15%
1113----/30%------/25000×30%/30000×15%/2500×30%
以降続く
お願いしたいのは
1111----/25%------/25000×25%/30000×25%/2500×25%
たとえば法定福利費はテキストボックス名は5434です
5434のコントロールソースに5434k*労務費割合と入力します。計算はされますが
対応するテーブルには反映されないため、ダミーのテキストボックスを作成します
名前は5434dです。このテキストボックスのコントロールソースは、テブールの
フイールド名、法定福利費を記入します。
以下のコードでダミーのテキストボックス5434dに金額を表示します。
Private Sub Form_Current()
Ne.[5434d] = Me.[5434]
End Sub
しかしながらこのコードでは、自動に表示されないため、カーソルをもってこないと
表示されません。自動に表示することは出来ないのでしょうか
よろしくお願いします。
 
 

投稿日時: 20/10/29 09:45:39
投稿者: miyama2305

申し訳ありません
 
吟味します。