Accessでの小数点以下入力規制について

質問

質問させていだきます（数日前にも同じ質問をしたのですが、再度アドバイスをお願いします）。
MS-Access2000を利用しております。
フォーム（たとえば伝票）を使ってデータを入力するのですが、金額項目（テーブルは通過型）に小数第二位までの値を入力する必要があります。
この項目の「小数点以下表示桁数」を ”2 ”　に設定していますが、これでは小数以下が何桁でも入力できてしまいます（第二位で四捨五入される）。
そこで、この項目には第二位までしか入力できないようにしたいのですが・・・。理想的な方法は第三位以上入力すると、メッセージボックスを表示したいのですが・・・。その方法をお教えいただければ幸いです。以上、よろしくお願いいたします。

回答No.1

how-do-you-do · ベストアンサー

お疲れ様です
簡単なサンプル文です
入力テキストボックスの「キー開放時」のイベントです

'～～～～～～～～～～～～～～～
Private Sub TxtAAA_KeyUp(KeyCode As Integer, Shift As Integer)
Dim strData As String
Dim i As Long

strData = CStr(Me.TxtAAA.Text)
i = InStr(1, strData, ".")
If i <> 0 Then
If Len(Mid(strData, i)) > 3 Then
Call MsgBox("入力エラー！", vbExclamation)
Me.TxtAAA.Text = Mid(Me.TxtAAA.Text, 1, Len(Me.TxtAAA.Text) - 1)
SendKeys ("{F2}")
SendKeys ("{F2}")
End If
End If

End Sub
'～～～～～～～～～～～～～～～

参考になれば...

お礼

早速の回答ありがとうございます。
試してみました・・・。完璧です！ありがとうございました。