Access97を使用しております。
現在↓のような形で禁止文字を設定しておりますが、大英字全角のAでも
小英字半角のaでも全て禁止文字として認識されてしまいます。
>>たぶんUnicodeのせいだと・・・(泣)
これを例えば小半角英字の「a」のみを禁止文字として認識させるにはどの
ような方法があるのでしょうか?ご教授お願い致します。
Dim R As Integer
Dim strChk As String
Dim strMoji As String
'禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Me.txtMsg = ""
For R = 1 To Len(Me.内容)
strChk = Mid$(Me.内容, R, 1)
If InStr(strMoji, strChk) <> 0 Then
Me.txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
Exit Sub
Exit For
End If
Next R
No.3ベストアンサー
- 回答日時:
まだ解決していないようなので回答します。
InStr関数で色々と試してみたのですが、思った結果が得られないので
StrComp関数にしてみました。
以下は、こちらでテストしたモジュールです。
----------------------------------------------------------------------
Public Function MOJI_TEST(H_txt As String)
Dim R As Integer
Dim R1 As Integer
Dim strChk As String
Dim strMoji As String
Dim txtMsg As String
' 禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
txtMsg = ""
For R = 1 To Len(H_txt)
strChk = Mid$(H_txt, R, 1)
'
For R1 = 1 To Len(strMoji)
If StrComp(StrConv(Mid$(strMoji, R1, 1), vbFromUnicode), _
StrConv(strChk, vbFromUnicode), vbBinaryCompare) = 0 Then
txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
MsgBox txtMsg
Exit Function
End If
Next R1
'
Next R
'
End Function
----------------------------------------------------------------------
後は適当に直して下さい。
ではでは・・・
返答が遅れすみません!
実は事故って入院してました。(泣)
まだ確認は出来てないのですが、一旦ポイントだけ入れさせて頂きます。
申し訳ありませんでした。
No.2
- 回答日時:
Unicodeで比較するっていうのは如何でしょうか。
strChk = Mid$(Me.内容, R, 1)
strMoji2 = Mid$(strMoji、InStr(strMoji, strChk),1)
If AscW(strMoji2) = AscW(strChk) Then
StrConvでANSIに変換して比較することもできると思いますが、Unicodeでも比較できるのではと思いました。
でも試していないので自信があるわけではありません。ゴメンナサイ。
返答が遅れすみません!
実は事故って入院してました。(泣)
まだ確認は出来てないのですが、一旦ポイントだけ入れさせて頂きます。
申し訳ありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1文字って1バイトだったっけ?
-
濁点(゙) 半濁点(゚)を一文字と数...
-
パワーポイントで文字の上に線...
-
エクセルのIF文で「NOT=...
-
50KBは何文字に相当するのでし...
-
VBAのfor...next構文で i = A ...
-
VLOOKUP関数で検索できません
-
コンピューター名の文字数制限
-
128ビットのパスワード
-
どっちが正しいですか? チョン...
-
エクセルの文字制限からの文字...
-
PS4コントローラーをPCでゲーム...
-
Chr(13)とChr(10)の違いは?
-
エクセルでアルファベットか数...
-
EBCDIC⇒SJIS変換の方法
-
文字列からタブコードを取り除...
-
4Kの外部モニターに出力すると...
-
【Excel VBA】複数ある特定の文...
-
「彡」って文字はなんという文...
-
EXCELで=より左の文字を一括で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1文字って1バイトだったっけ?
-
エクセルのIF文で「NOT=...
-
50KBは何文字に相当するのでし...
-
濁点(゙) 半濁点(゚)を一文字と数...
-
パワーポイントで文字の上に線...
-
VBAのfor...next構文で i = A ...
-
どっちが正しいですか? チョン...
-
エクセルの文字制限からの文字...
-
10分で500~600文字っ...
-
VLOOKUP関数で検索できません
-
128ビットのパスワード
-
2バイトって何文字分ですか?
-
コンピューター名の文字数制限
-
Excelで入力禁止文字を設定したい
-
Accessで名前の間のスペースを...
-
Msgboxで表示できる文字数の上...
-
全角は日本独自のものか
-
Excelで入力文字の優先表示を行...
-
■Access エクスポート時に文字...
-
PC98 の半角英数字の文字を Win...
おすすめ情報