アクセスで、チェックボックスにyesの時、金額表示の方法

アクセスで、チェックボックスの参加の方に、チェックが入っていると、5000円と言う金額を、テキストボックスに表示したいのですが、どうしたらいいのでしょうか？

No.3 ベストアンサー 回答者： bonaron 回答日時： 2006/09/20 15:02

テキストボックスのコントロールソースを

=IIf([チェックボックス名]=True,5000,Null)
で出来ると思います。
VBAは必要ありません

> チェックボックスには、更新後イベントを入力するところがないのですが・・・。

レポートならありませんが。

参考までに一般にイベント処理の書き方ですが、
イベントの発生するフォーム(レポート)、セクション、コントロールなどを選択し、
プロパティのイベントタブで処理するイベント(No2さんの例ですと、「更新後処理」にカーソルを置きます。
右の▼をクリックし[イベント プロシージャ]を選択します。その後、さらに右の「...」をクリックすると

Private Sub コントロール名_AfterUpdate()

End Sub

のようなコードが生成され、カーソルが間にあります。
そこに必要なコードを書けばよいのです。

この回答へのお礼

ありがとうございます。
チェックボックスをオプショングループにしていたのでなかったみたいです。
オプショングループの方にありました。
フォームでは上手く出来なかったので、
クエリで、試してみると出来ました。

お礼日時：2006/09/20 19:00

No.4 回答者： noname#22222 回答日時： 2006/09/20 15:31

txt懇親会代金!コントロールソース=[ch参加者]*-5000

という手もあります。No3さんの回答と軌を一にしたものです。

[ch参加者]*-5000 も　IIf([ch参加者],5000,0) も同じ事をしています。

0を表示したくない場合は、txt懇親会代金!書式=#　にするといいです。

No.2 回答者： mshr1962 回答日時： 2006/09/20 13:54

チェックボックスの更新後イベントで

If チェックボックス名.Value Then
　テキストボックス名.Value = 5000
　Else
　テキストボックス名.Value = ""
End If

この回答への補足

ありがとうございます。
チェックボックスには、更新後イベントを入力するところがないのですが・・・。

＞If チェックボックス名.Value Then
　テキストボックス名.Value = 5000
　Else
　テキストボックス名.Value = ""
End If

をこのまま（チェックボックス名は変えますが）入力したら良いのでしょうか？
[]とかはいらないのでしょうか？

初心者なのでよくわかりません。
すみませんがよろしくお願いします。

補足日時：2006/09/20 14:16

No.1 回答者： ipsum11 回答日時： 2006/09/20 13:50

If Me.参加チェックボックス.Value = True Then

　　Me.テキストボックス = "5,000円"
Else
　　Me.テキストボックス = ""
End If

こういうことでしょうか？

この回答への補足

ありがとうございます。
初心者の私には、難しく、エラーが出てきます。
もうすこし詳しく教えたほしいのですが、
それは、どこに入れたらいいのでしょうか？

参加チェックボックス名は、ch参加者
テキストボックス名（金額を入力するところ）は、txt懇親会代金
です。

すみませんがよろしくお願いします。

補足日時：2006/09/20 14:11