IF文について

質問

アクセス９７での質問です
今、入力フォームを作成してまして、入力チェックのプログラムを作成しているのですが、ＮＵＬＬや文字数等のチェックはうまくいくのですが、どうしてもうまく出来ないのがあるんです
それは半角で５文字入力できるテキストボックスがあって
その先頭の一文字が半角カナじゃない時にエラーを出したいんです
他のエラーチェックもＩＦ文を使ってやっているので、同じようにＩＦ文で作りたいのですが、いい方法が思い浮かびません
わかる方がいらっしゃいましたら教えていただけませんか？
宜しくお願いします

回答No.2

laputart · ベストアンサー

先頭の一文字が半角カナじゃない時について説明します。

先頭の１文字　left(Text1,1)
先頭の１文字のコード　Asc(left(text1,1))
このAsciiコードが半角カナかどうかをチェックします。

その一部のコードはこんなようになります。
例としてテキストボックスの名前をText1とします。
--------------------------
Acode= Asc(Left(Text1.text,1))
If Acode > 165 and Acode < 224 then
'半角カタカナの時の処理
End If
--------------------------

お礼

このような方法もあるのですね
もっともっと勉強しなきゃ・・（笑）
回答ありがとうございました！！

回答No.3

laputart

補足です。

Acodeは勝手に作成した変数で名前は
予約語以外なんでもいいです。

それと半角カナのAsciiコードは
166 から　223 (半濁点）です。

回答No.1

maruru01

こんにちは。maruru01です。

例えば、こんな感じ

If StrComp(Left(temp, 1), StrConv(Left(temp, 1), vbWide), vbBinaryCompare) <> 0 Then
　　MsgBox "半角"
Else
　　MsgBox "全角"
End If

お礼

早速の回答ありがとうございました
こんなに早く回答をいただけるとは驚きました
ありがとうございました