Access VBAで、数字だけをチェックする方法。
お世話になっております。
Access2002 VBAで、テキストボックスに入力された内容が、
数字(整数のみ)だけかをチェックしたいのです。
しかし、IsNumeric使用すると、
例>
IsNumeric("1000,")=True
IsNumeric("1000.")=True
IsNumeric("1000+")=True
となってしまいますし、
Valを使用すると、0(ゼロ)のチェックが出来ません。
ちょっと思いつかないので、
If txt_Word.Value <> Trim(Str(Val(txt_Word.Value)))) Then
'エラー処理
End If
とか、
ループで回し、1文字ずつIsNumericするか・・・とか、馬鹿なことを思ってしまっています。
ちなみに、当テキストボックスは、パターンによって文字も許容したりするので、
書式設定で数字のみ入力は出来ません。
何か、本当に数字のみかをチェックするよい方法はありますか?
よろしくお願いいたします。
No.1
- 回答日時:
VBAはほとんど知らない(使わない)ですが。
クエリで試験してみました
aa: Int(10.1) 許される
aa: Int(10.1+) 許されない
整数であることのチェックも含めエラー処理と組み合わせては如何でしょうか?
No.2ベストアンサー
- 回答日時:
ありがとうございました。参考になりました。
Set rege = New RegExp
rege.Pattern = "^\d+$"
If rege.Test(txt_Word.Value) = False Then
・・・
End If
これで、スマートに期待通り実現できました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Excel(エクセル) 見えているセルの数字だけの合計を計算させたい 4 2022/09/11 17:23
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Excel(エクセル) VBAで “:” を含むセルの特定 2 2023/05/11 16:30
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
小数か整数かを判定する方法
Visual Basic(VBA)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
ある文字列が全て数字であるかどうかをチェックするには?
Visual Basic(VBA)
-
-
4
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
7
accessで重複を防ぎたい
Access(アクセス)
-
8
「#エラー」の回避
Access(アクセス)
-
9
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
10
Access サブフォームでの選択行の取得
その他(データベース)
-
11
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
12
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
13
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
14
英数字のチェックをしたい ACCESSのVBAで
Access(アクセス)
-
15
Access エクセルシート名変更
その他(プログラミング・Web制作)
-
16
Accessを使って日付を比較したい
その他(Microsoft Office)
-
17
どこにもフォーカスを当てたくない
Access(アクセス)
-
18
現在アクティブなタブのページ名を取得したい
Access(アクセス)
-
19
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
gas 全角数字を半角数字に変換
-
Vba SelStart、SelLen教えてく...
-
VB.NET2003 テキストボックスに...
-
ひらがな専用入力エリアのチェック
-
ハイフンだけ置換したい。
-
VBAによる第3、4水準文字の判定...
-
JavaScriptの正規表現の全角ス...
-
VC#でテキストボックスに変数の...
-
「終了していない文字列型の定...
-
正整数の半角数字かどうか判定する
-
Visual Basic 6.0 のテキストボ...
-
禁止文字チェック
-
javascript:void(0)とは何でし...
-
再帰呼び出しになってしまうの...
-
JSON形式でのページング処理に...
-
JavaScriptでテキス...
-
C#でボタン名を変更しても動く
-
クリックすると下に説明文が出...
-
フォルダを自動で開く
-
slideToggleの動きがおかしい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba SelStart、SelLen教えてく...
-
VB.NET2003 テキストボックスに...
-
gas 全角数字を半角数字に変換
-
「終了していない文字列型の定...
-
正整数の半角数字かどうか判定する
-
VBAによる第3、4水準文字の判定...
-
ハイフンだけ置換したい。
-
VC#でテキストボックスに変数の...
-
C#でTextBoxに数値のみ入力可能...
-
エクセル 半角英数6文字以上 ...
-
漢字などを正規表現でパターン...
-
JavaScriptに関する質問です。 ...
-
javascript 文字列の最後から1...
-
正規表現について
-
エクセルVBA/ Formatで文字列が...
-
禁止文字チェック
-
Javascript 全角カナ+半角スペ...
-
CListCtrl の特定のセル(アイ...
-
文字認証の問題
-
Access VBAで、数字だけをチェ...
おすすめ情報