AccessForm内での警告メッセージ

質問

Accessのフォーム内にある”合計”欄が、100を超えたら
警告メッセージを出したいのですが、うまく動きません。
どうしたらいいでしょうか？

”合計”欄は、非連結のテキストボックスに、A+B+Cの合計値が入るようになっています。
表示は”％”表示です。

どなたかご教授お願いできますでしょうか。

-------------------------------------------
Private Sub 率合計_AfterUpdate()
If Me!率合計 > 100 Then
MsgBox "100を超えました"
End If
End Sub

回答No.3

nicotinism · ベストアンサー

率合計_AfterUpdate() が働くのは手作業で入力した場合です。
今回のは演算フィールド（コントロール）なので100％を超えたとしても
Accessはだんまりを決め込んでいるはずです（更新後処理イベントが発生しない）
なので
A,B,Cそれぞれの更新後処理全てに
if me!A + me!B + me!C >100 then
msgbox "100Over"
end if
のようにするか、
>入るようになっています
がどのようなものか不明ですが、VBAで行っているのならそこで判断させてください。

あと、率合計が％表示とのことですので
率合計の実データも確認を。実際には２３％が→0.23 だったりしていて・・。
なら 上の >100 は >1 です。

お礼

ありがとうございました。A,B,Cそれぞれの更新後処理全てに入れてみたところMsgがでるようになりました。そして１００％は表示だけてあって、実際は１なのですね。勉強になりました。またよろしくお願いします。

回答No.2

n-jun

＞表示は”％”表示です。
と言う事は１００って１００％（＝１）なの？

お礼

１００％は表示だけてあって、実際は１なのですね。勉強になりました。またよろしくお願いします。

回答No.1

angel_Z

こんにちは。

これではどうですか？

Private Sub 率合計_KeyPress(KeyAscii As Integer)
If Me!率合計 > 100 Then
MsgBox "100を超えました"
End If
End Sub