忍者ブログ
ブログ主が仕事や個人的に学んだPC系・プログラミング系(VBAとかHTML)について書いていく備忘録ブログ。 ※ここで記載する内容はあくまで「個人的に」上手くいく内容です。ご使用には十分注意してください
[23] [21] [19] [18] [17] [16] [15] [14] [13] [12] [11
Posted by - 2017.06.28,Wed
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Posted by 若槻風亜 - 2014.05.27,Tue

(対象)Access VBA
(確認)Access2010


今回は入力内容に日本語が含まれていたら
拒否する方法です。


―――――――――――――――――――――――――
○ソース
―――――――――――――――――――――――――
  '○日本語が含まれていたら拒否する
  Dim Str1 as String
  Str1 = Me.コントロール.Value
  If Str1 Like "*[!0-9a-zA-Z]*" Then
    MsgBox "数字とアルファベット以外は禁止です", vbCritical, "報告:日本語の禁止"
    Me.コントロール.Value = ""
    Me.コントロール.SetFocus
    Exit Sub
  End If


―――――――――――――――――――――――――
○解説
―――――――――――――――――――――――――
1行目から順番に、

 1.文字型の変数(Str1)を宣言
 2.変数に調べたい文字を格納
 3.変数の中身に数字・アルファベット以外が
   入っているかどうかの判断([!○○]で「○○以外」)
 4~7.入っていた時の処理→処理抜け


「あ‐ん」「ア‐ン」「亜-黑」で調べる方法もありますが、
どちらかというとこちらの方が楽でしょうか。


拍手[0回]

PR
Comments
Post a Comment
Name :
Title :
E-mail :
URL :
Comments :
Pass :   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
プロフィール
HN:
若槻風亜
性別:
女性
職業:
会社員
趣味:
創作、プログラミング
自己紹介:
仕事や個人で学んだことをまとめておきたかったがために備忘録ブログを立ち上げました。
あくまで自分が学んだこと・自分が出来たことなので、ご覧くださる場合は参照レベルでお願いします。
ブログ内検索
カレンダー
05 2017/06 07
S M T W T F S
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30
P R
最新トラックバック
コガネモチ
フリーエリア



Template by mavericyard*
Powered by "Samurai Factory"
忍者ブログ [PR]