アクセスVBAについて

質問

こんにちわ。
アクセス初心者です。
分からないので質問をさせていただきます。

アクセスにて
テーブルAの中のフィールドBがあるとします。
その中の値には
１
２
A　１
１　A
ァ　１
等がある場合と
単に数字の
１
１２
１２３
等がある場合があります。
それを区別するために
フォームのボタンを押せば
記号あり。
記号ななし。
と表示するようにしたいのですが
フォームのイベントプロシージャにはどのように記述すればよろしいでしょうか。

IsNumericを使って数値か判断するのかなとは思っています。

If IsNumeric([A]) = Then

　MsgBox "記号あり。"

Else

MsgBox "記号なし"
End If

では全然できなくて、、、
先輩方の知恵をお借りしたくお願いします。

回答No.2

NotFound404 · ベストアンサー

1e1 などのようなのもIsNumeric関数は指数表示の数値として
評価してしまうので、
msgbox IIF(dcount("[フィールド名]","テーブル名","[フィールド名] like '*[!0-9]*'")>0,"あり","なし")
とか？
そのテーブル中の特定のフィールド内に
０～９（全角・半角問わず）以外のモノがあるかの判定で良かったんですよね？

お礼

ご返答ありがとうございます。
そうです。
０～９（全角・半角問わず）以外のモノがあるかの判定がしたかった所です。

教えて頂いた内容を試した所　
記号等が含まれている場合は「あり」で表示されましたが
無しのはずの場合にも「あり」で表示されてしまい、
元データを見ると前後に空白？ヌル値？っていうのが入っていたので

MsgBox IIf(DCount("trim([KanID])", "KANJA", "trim([KanID]) like '*[!0-9]*'") > 0, "あり", "なし")

とtrim関数を追加させて頂いた所できました。

こちらの説明不足でした。

DCount関数にそのような使い方があるのとか知れて勉強になりました。

おそらくまた質問させて頂くとはおもいますがそのときはよろしくお願いします。

回答No.1

山田 太郎（@f_a_007）

攻め方ですが、

Step1、イミディエイト・ウインドウで ISNumeric()の働きを確認する。
Step2、イミディエイト・ウインドウで テーブル列の参照を確認する。
Step3、1と2とを組み合わてみる。

これで、書けるでしょう。