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

質問

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

回答No.4

noname#22222

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

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

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

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

回答No.3

bonaron

テキストボックスのコントロールソースを
=IIf([チェックボックス名]=True,5000,Null)
で出来ると思います。
VBAは必要ありません

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

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

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

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

End Sub

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

お礼

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

回答No.2

mshr1962

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

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

補足

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

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

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

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

回答No.1

ipsum11

If Me.参加チェックボックス.Value = True Then
　　Me.テキストボックス = "5,000円"
Else
　　Me.テキストボックス = ""
End If

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

補足

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

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

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