• ベストアンサー

英数字のチェックをしたい ACCESSのVBAで

ACCESSのVBAなんですが あるフィールドが英数字かどうかチェックしたいのですが つまり、数字か英字のみで、そのフィールドが構成されているか チェックしたいのです 、(カンマ)やカッコが含まれていれば、エラーと判定したい のですが、 よろしくお願いします

  • maaaa
  • お礼率91% (330/362)

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

  • ベストアンサー
  • X-trail_00
  • ベストアンサー率30% (438/1430)
回答No.1

Function blnCheck(strLen) Dim objRE Set objRE = new RegExp objRE.IgnoreCase = True objRE.pattern = "[^0-9a-zA-Z]" blnCheck = objRE.Test(strLen) Set objRE = Nothing End Function こんな正規表現の関数を使用すれば可能です。 上記は英数字以外がstrLenに含まれているとTrueを返します。 http://www.kanaya440.com/contents/tips/vbs/004.html

maaaa
質問者

お礼

ありがとうございました 大変たすかりました 感謝でいっぱいです

関連するQ&A

  • アクセスクエリで英数字のみ半角にすることは可能?

    アクセスクエリで英数字のみ半角にすることはできますか?カタカナは全角のままにしたいです。 「アアアAAA111」 のデータがあり、更新クエリで UPDATE テーブル1 SET [テーブル1].[フィールド1] = StrConv([テーブル1]![フィールド1],8); をすると 「アアアAAA111」 になってしまいます。 「アアアAAA111」 にするにはどうすればいいでしょう? カタカナ+英字+数字になってるわけではなくランダムです。

  • VBAで英数字入力チェックしたい。

    いつもお世話になります。 いままで、ある項目の入力チェックを数字のみで 行っていたところ【IsNumeric】を英数字で行いたいのですが いくら調べても見当たりません・・・ 知っている方、どうかご指南ください。 よろしくお願いします。

  • Access VBAで、数字だけをチェックする方法。

    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するか・・・とか、馬鹿なことを思ってしまっています。 ちなみに、当テキストボックスは、パターンによって文字も許容したりするので、 書式設定で数字のみ入力は出来ません。 何か、本当に数字のみかをチェックするよい方法はありますか? よろしくお願いいたします。

  • 英数字の判定

    ab cd 0123 e 456 f gh 7 のような英数字が混じったファイルを読み込み、数字が混じっている行のみを別のファイルに書き出すということをやりたいと思っています。 つまり cd 0123 e 456 gh 7 のような形式で書き出したいわけです。 fgetsで1行ずつ読み込み、その行に数字が混じっていればfputsで書き出すというのは分かるのですが、「数字が混じっている」「混じっていない」の判定方法がわかりません。 strtodを使えば、英字のときは0が返ってくるのでそれをうまく使えば、と思って試行錯誤してみたのですが… どなたかアドバイスをよろしくお願いします!

  • ACCESSのVBAでカナを取り出すプログラム

    ACCESSのVBAで急遽以下の処理をする必要があり、コードを教授ください。当方、プログラミングは素人で、簡単なコードをネットで拾って来て動かしているレベルです。 テーブル「名簿」のフィールド「旧カナ」の値(文字列)を取り出して、その文字列からカナとスペースだけを抜き出してフィールド「新カナ」に登録したいです。全レコードを置きかけます。 フィールド「旧カナ」には、名前のカナだけではなく英字、数字、記号などが入っているので、カナだけを取り出して文字詰めして「新カナ」に登録し直したいです。VBAのコードを教えてください。 ACCESSのモジュールで書いて、マクロで起動する予定です。よろしくお願い致します。

  • Access チェックボックス項目について

    最近Accessを始めました。 YouTubeやブログなどを見ながらコツコツやっておりますが、下記のような事ができるかどうかわかりません。 現在はマクロビルダーでできる範囲で作成しております。 vbaは難しそうで少しずつ勉強中です。 やりたいこと データにチェックボックス項目が数か所あります。 このデータをレポートにしたときに、チェックボックスに判定があった項目のみ抽出させ、そのフィールド名をレポートのテキストボックスに表示させたいです。 現在、テキストボックスのコントロールソース部にチェックボックス名を打ち込んでも、判定結果の"-1"が表示されます。これをフィールド名にしたいです。 説明がわかりずらいかもしれませんが宜しくお願い致します。

  • 入力文字のタイプ判断方法

    Fieldなどを使って文字を入力させたときに、 その入力文字列が 1 数字だけ 2 英字だけ 3 英数字だけ で構成されているかをできるだけ簡単に判断するにはどうすればいいのでしょうか?

  • PowerPoint 英数字のフォント

    Officeソフト「PowerPoint2007 or 2010」で、英数字のフォント(既定)を変えたいです。 スライドマスタで英数字のフォントを変更可能ですが、英字と数字を別々に指定できますか? (英字:フォントA、数字:フォントB) よろしくお願いします。

  • accessでテキスト型のフィールドサイズについて…

    accessで作った受注管理のデータを抜き出してクロネコヤマトのi-cats(b2)に入力するように作りました。 b2のデータ交換規約(?)の方のテキスト型のフィールドサイズの指定が 半角英数字10文字 となっていたり、 15文字/30文字 全角/半角 というようになっています。 質問なんですが このフィールドサイズにぴったり合うようにフィールドサイズの設定をするにはどうしたらいいでしょうか? また、半角英数字・半角カタカナ・数字等、特定の文字の種類だけ入力できるようにたりしたいです。 もうひとつ別の質問です VBAで、設定したフィールドサイズよりも大きいテキストを入れようとするとエラーが出るんですが、VBAで後ろを切り捨てたりして入るサイズに縮める方法を教えてください。 長くなりましたが宜しくお願いします。

  • Accessチェックボックス 一度で複数のチェックを入力

    会社でAccess2000を使用しています。 ExcelからAccessテーブルへインポートしたデータで、 チェックボックスがあるフィールドがあります。(フィールド名は「請求済」です) レコードが数千件あり、1ヶ月ごとに何百単位で請求の有無を確認をしなければなりません。 複数のチェックボックスへ、一度でチェックを入力する方法はありますか? ちなみにAccessは初心者で、マクロやVBAはやったことがありません。

専門家に質問してみよう