access 通貨型 表示桁数 ４捨５入 誤差

データ型　「通貨型」　　表示桁数「自動　又は、0」指定
入力値　123.5　表示は　124となります。
その項目を２倍すると　247と　なります。
248とはなりません。
入力値を整数にする（少数以下が入力できないようにする）　入力規則はどうしたらいいでしょうか。　

No.2 ベストアンサー 回答者： KenKen_SP 回答日時： 2006/06/06 07:47

是非はおいておくと、入力規則

= INT([フィールド名])

で可能です。そのフィールド名が Num なら、
デザインモードでテーブルを開き、Num フィールドの
プロパティー欄で入力規則を設定します。

この回答へのお礼

本当にありがとうございます。
フィールド名　通貨型てすと
入力規則に　=Int([通貨型てすと])　で
123.5と入力すると　エラーメッセージを出してくれます。
123　や　-123は大丈夫です。

お礼日時：2006/06/06 17:37

No.1 回答者： nicotinism 回答日時： 2006/06/06 00:01

データ型　「通貨型」　　表示桁数「自動　又は、0」指定

入力値　123.5　表示は　124となります。
その項目を２倍すると　247と　なります。
248とはなりません。
そうなります。見た目と内部に保存されているデータとは異なります。

残念ながら入力規制では出来ません。
テーブルデザインの入力規制欄でF１（ヘルプ）でご確認ください。

やるとするとフォームに配置したテキストボックスの更新前処理あたりに
If Me!テキストボックス名 Mod 1 <> 0 then
' 1 で割って 余りが0 でない
Cancel = true
Exit Sub
End If
として弾くか

あるいは視点を変えて
桁数が間に合えば長整数型にしておいて
小数点が絡む計算では、Ccur(フィールド名）で通貨型に変換して
行うとか？
ではないかと思います。

この回答へのお礼

こんにちは、お礼が遅れて申し訳ありません。
ちょうど今ＡＣＣＥＳＳのＶＢＡの勉強を始めたばかりです。
やっと下記のコードを書きました。
１で割ると小数以下の余りは０になるようなので
１００００を掛けて　１００００で割り余りが整数になるように
しました。少数以下最大４桁入力可なので　１００００を掛けました。
どうもありがとうございました。
また、わからないときは教えてください。

Private Sub tuukaGATA_BeforeUpdate(Cancel As Integer)
If Me!tuukaGATA * 10000 Mod 10000 <> 0 Then
Cancel = True
Exit Sub
End If
End Sub

お礼日時：2006/06/12 18:09