ACCESS フォームの値がすぐに表示されない
フォームの値がすぐに表示されない。
宜しくお願い致します。皆様の知恵をお貸しください。
WinXPでACCESS2000を使っております。
テーブル_在庫には
取引先|商品名|買取金額|売上金額|日付のフィールドがあり
A社|みかん|0|10000|2012/11/13
A社|りんご|10000|0|2012/11/13
B社|ぶどう|5000|0|2012/11/13
C社|かき|0|3000|2012/11/13
というレコードがあります。
フォーム_取引先のコンボボックスで、A社を選びコマンドボタンで、
クエリ_取引先買取、クエリ_取引先売上
を実行して、A社だけの取引を抽出し、その結果を
フォーム_取引先買取とフォーム_取引先売上
に、表形式で表示させています。
このままでは、フォームが2つになるので、新たに基になるテーブルも
クエリも持たない、フォーム_売買を作りました。
このフォーム_売買にテキストボックスを6つ作り次のようにしました。
テキストボックス|コントロールソース
----------------------------------------
テキスト1(取引先)|=Forms![取引先]![コンボ1]
テキスト2(買取金額)|=Forms![買取]![テキスト1]
テキスト3(売上金額)|=Forms![売上]![テキスト1]
テキスト4(買取報償料)|非連結
テキスト5(売上報償料)|非連結
テキスト6(合計金額)|=[テキスト2]+[テキスト4]-[テキスト3]-[テキスト5]
ここで、問題になっているのが、フォーム_売買を表示させた時に、テキスト1は
普通にA社と表示されているのですが、テキスト2とテキスト3に金額が表示され
ません。
しかし、テキスト4もしくはテキスト5に金額を入力すると、表示されるようになり
ます。
テキスト4とテキスト5のどちらかには必ず金額を入力するので、このままでも
とりあえずは計算出来ているのですが、できれば、フォームが表示された時に
初めからテキスト2とテキスト3には金額が入っていたほうがいいと思い、あれ
これ試してみたのですが、出来ませんでした。
フォーム_取引先のコマンドボタンは次のように実行しています。
Dim stDocName As String
Dim stDocName1 As String
stDocName = "取引先売上"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName1 = "取引先買取"
DoCmd.OpenQuery stDocName1, acNormal, acEdit
DoCmd.OpenForm stDocName, acNormal
DoCmd.OpenForm stDocName1, acNormal
DoCmd.OpenForm "売買", acNormal
どうすれば、フォーム_売買が表示された時に、テキスト2とテキスト3に金額が
入っているようになるのでしょうか。
素人が見よう見まねで作っておりますので、おかしい点が多々あるかと思い
ますが、ご教授のほど、よろしくお願い致します。