Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
  • ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Accessでの小数点以下入力規制について）

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

このQ&Aのポイント
  • MS-Access2000を利用しており、金額項目に小数第二位までの値を入力する必要があるが、現在は任意の桁数の入力が可能である。第三位以上の入力時にメッセージボックスを表示する方法を教えてほしい。
  • Accessのフォームにおいて、金額項目に小数第二位までの値を入力する必要があり、現在は任意の桁数の入力が可能である。第三位以上の入力時にはメッセージボックスを表示する方法を教えてほしい。
  • MS-Access2000を使用している際に、金額項目に対して小数第二位までの値を入力する必要があり、現在は任意の桁数の入力が可能である。第三位以上の入力時にメッセージボックスを表示する方法を教えてください。
  • aikun
  • お礼率77% (114/147)

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

お疲れ様です 簡単なサンプル文です 入力テキストボックスの「キー開放時」のイベントです '～～～～～～～～～～～～～～～ 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 '～～～～～～～～～～～～～～～ 参考になれば...

aikun
質問者

お礼

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

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

職業から探して質問する
質問する