Access97フォームで計算したものをテーブルに入力したい

Question

Access97で受注管理のデータベースを設計中です。
フォームのテキストボックス[税込金額]のコントロールソースに
=Int([税抜金額]*[消費税率]*0.01+[税抜金額])
という式を入れました。
はたと気がついたら、基になるテーブルの[税込金額]には当然
(コントロールソースじゃなくなってしまったから）そこで
計算された値は更新されません。
テーブルにその値を更新したいのですが、そのためにはどのように
すればよろしいでしょうか？

基になるテーブルに[税抜金額][消費税率][税込金額]という項目が
あります。で、フォームを使用して入力時に税抜き金額を入力し、
消費税率を入力すると税込金額が小数点切り捨てで自動で入力される
という風に組めればフォームの中で計算できなくてもフォームで値が
表示されればかまいません。

要領を得ない質問でスミマセン。お手数ですが教えてください。

yoisho · Accepted Answer

イベントの意味について多少混乱されているようなので、補足説明をさせていただきます。

まず、更新前（BeforeUpdate）イベントですが、これはテキストボックスに対してと、フォームに対してで、意味が多少異なります。
フォームに対しての場合は、そのフォーム上でレコードが保存される直前に発生するイベントです。それではどんなときにレコードが保存されるのか？一つはカーソルが別のレコードに移動したとき、もう一つはレコードの編集中にフォームを閉じたときです。
（テキストボックスに対しては、HELPか参考書で勉強してみてください。）

ということで、私がお示しした方法ですが、イベントプロシージャは、テキストボックスではなく、フォームのイベントとして記述してください。この方法では、レコードが保存される直前に[税込金額]の値を書き換えて、その計算結果をテーブルに保存することになります。ですから、同じレコード内でカーソルを各テキストボックスの[税抜金額]、[消費税率]、[税込金額]のいずれかに移動しただけでは値は更新されず、別のレコード（新規レコードでもよい）に移動した時点で[税込金額]の値が計算され、テーブルの値も更新されることになります。

次に、変更時（Change）イベントですが、これは、そのテキストボックスに文字が入力された（削られたときも）時に発生します。

ということで、私の方法では別のレコードに移動しなければ[税込金額]の値が更新されないのに対して、maruru01さんが回答されている方法では、数字を入力した瞬間に更新されますので、即時性の点で、より使いやすいプログラムだと思います。
ただ、変更中のテキストボックスの値は、文字列としか認識できないため（数値として得ることができない）Clng()関数を使って数値データに変換するような工夫が必要になります。

[税抜金額]に一桁しか入力できないのは、一文字入力した時点で、Me!消費税率.SetFocus　で強制的にカーソルの移動が行われているためです。その他多少の修正も必要のようですので、この方法に挑戦されるのでしたら、HELPのTextプロパティをよく読んでみてください。

これからＶＢＡにチャレンジされるということでしたら、参考書の他に、k_ebaさんが紹介されているようなＨＰもとても勉強になります。
ＶＢＡは始めるとそれなりに奥が深いものもありますが、その分、自由度が高く、自分のアイディアが活用できるようになるとけっこうはまってしまったりします。ぜひがんばってください。（わからないことがあったら、また質問してください。中上級になって、私なんかの手におえないレベルになったら、かなり専門的なサイトがいくつもありますので、そちらもご紹介します。）

k_eba · Answer

税込金額はデータベースの項目にしなければいけませんか？
税込み金額みたいに計算で求められる物はデータベースの項目に持たず
クエリーで追加するようにすれば例えば税率などが変わっても
クエリーを使用する時に再計算する為に基準値を変えればＯＫです

クエリーの使い方を勉強しましょう。
頑張って下さい

参考URL：http://www.people.or.jp/~Niki/, http://www.people.or.jp/~Niki/,

maruru01 · Answer

こんにちは。maruru01です。

テキストボックスのコントロールソースは元のまま（[税込金額]）にして、
税抜き金額と消費税率のテキストボックスのChangeイベントなどで、

Me!税込金額.SetFocus
Me!税込金額.Text = Int(Me!税抜金額.Text * Me!消費税率.Text * 0.01 + Me!税抜金額.Text)

とすればいいと思います。
もちろん、[表示]みたいなコマンドボタンを作って、そのクリックイベントに記述してもいいですし。
あ、そうそうご存知かも知れませんが、テキストボックスのTextプロパティはフォーカスをあてないと、参照および設定が出来ませんので、実際はそれぞれのChangeイベントで変数に代入しておくのがいいと思います。
では。

yoisho · Answer

私もk_ebaさんのご意見に賛成なんですけど、どうしてもということであれば・・・。

[税込金額]テキストボックスのコントロールソースは[税込金額]としておいて、
単に更新前イベントで、
Me![税込金額] = Int(Me![税抜金額] * Me![消費税率] * 0.01 + Me![税抜金額])
としてやるのが、簡単かと思います。

maruru01 · Answer

再びmaruru01です。
ちょっとくどい書き方をしますので、適度に読み飛ばしてください。

まず、テキストボックスの上で右クリックするとプロパティシートが表示されますので、その中のイベントタブをクリックします。
イベントの中の"変更時"の白い四角の部分をクリックすると、右側にボタンが２つ現れます。その右側のボタン（…）をクリックすると、ビルダの選択ダイアログが表示されます。（式ビルダが使えるということなので、ここまではご存知かと思います。）
ここで、コードビルダをクリックすると、画面が切り替わり、VBEのモジュールシートが現れ、

Private Sub 税抜金額_Change()

End Sub

と書かれていると思います。
これは、テキストボックス[税抜金額]の値が変更されると実行されます。中に実行したい動作を記述していきます。
ここに次のように書きます。

Private Sub 税抜金額_Change()

Dim NoTaxAmount As Long
Dim TaxRate As Long

NoTaxAmount = IIf(Me!税抜金額.Text = "", 0, CLng(Me!税抜金額.Text))
Me!消費税率.SetFocus
TaxRate = IIf(Me!消費税率.Text = "", 0, CLng(Me!消費税率.Text))
Me!税込金額.SetFocus
Me!税込金額.Text = Int(NoTaxAmount * TaxRate * 0.01 + NoTaxAmount)

End Sub

テキストボックス[消費税率]も同様に、コードビルダを選択して、

Private Sub 消費税率_Change()

Dim NoTaxAmount As Long
Dim TaxRate As Long

Me!税抜金額.SetFocus
NoTaxAmount = IIf(Me!税抜金額.Text = "", 0, CLng(Me!税抜金額.Text))
Me!消費税率.SetFocus
TaxRate = IIf(Me!消費税率.Text = "", 0, CLng(Me!消費税率.Text))
Me!税込金額.SetFocus
Me!税込金額.Text = Int(NoTaxAmount * TaxRate * 0.01 + NoTaxAmount)

End Sub

NoTaxAmountとTaxRateが変数で、好きな名前をつけられます。Dimの分で使用出来るようにします。
また、この場合は、Private Sub ～End Sub（このかたまりをプロシージャと言います。）のなかでのみ使用出来るので、２つのプロシージャの変数は名前が同じでもまったく別と思って下さい。
その他のいろいろなキーワード（Long,SetFocus,IIfなど）は、ヘルプを参照して下さい。
今回の例では、税抜金額、消費税率のどちらかに数値を入力すると、両方に数値が入っている場合は計算結果が表示され、どちらかに何も入力されていなければ、0になります。

Accessでは、クエリやマクロだけではやることに限界がありますので、VBAを習うことをお奨めします。
教材は、本屋にいっぱいありますので、とりあえず、「はじめての～」とか、「～初級編」とか「よくわかる～」などと題したものを使うとよいでしょう。
がんばって下さい。
では。

maruru01 · Answer

三度maruru01です。

yoishoさん、フォローありがとうございます。
取り急ぎのコードで、しかもこの欄に直接書いていったため、いろいろ不備があるようです。
変数をプロシージャレベルではなく、モジュールレベルで宣言するなどの対処が必要でしょう。
1桁ごとの計算はいろいろ工夫が必要ですが、全桁入力後いいなら（例えば税抜金額に"1200"と入力した後）、フォーカス喪失時イベント（Exit）あたりに記述するのがいいかも知れません。

choco_monakaさん、今はわからないことが多いと思いますが、yoishoさんの言うように、本や適当なサイトなどで勉強して、わからないことはここで質問しましょう。私のような素人に毛が生えた程度ではない詳しい人が教えてくれるでしょう。
では。

Access97フォームで計算したものをテーブルに入力したい

税込金額はデータベースの項目にしなければいけませんか？

この回答への補足

こんにちは。

私もk_ebaさんのご意見に賛成なんですけど、どうしてもということであれば・・・。

再びmaruru01です。

イベントの意味について多少混乱されているようなので、補足説明をさせていただきます。

三度maruru01です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング