プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (4件)

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


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

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

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

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

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

End Sub

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

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

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

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



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

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

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

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



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

この回答への補足

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

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

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

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

補足日時:2006/09/20 14:16
    • good
    • 0

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


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

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

この回答への補足

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

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

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

補足日時:2006/09/20 14:11
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A