アクセス(ADO)で全銀協フォーマットの口座名義のチェック

こんにちは。
「tbl振込データ」テーブルの「口座名義」フィールドに
あるデータを総合振込のデータとして使用したいのです
が、皆様もご存知のとおり使用してはならない文字があ
ります。
促音や一部の記号などの使用禁止文字は「tbl使用禁止
文字」テーブルに登録し「口座名義」データを一文字ず
つ取り出し存在チェックをすることでエラーチェックを
行おうと思うのですが、全角のチェックをどのように行
うか困っています。
どなたかご教授願います。よろしくお願いいたします。

No.1 ベストアンサー 回答者： Gin_F 回答日時： 2004/10/12 18:54

　LenB(StrConv([値],vbFromUnicode))

のようにしてみてください。

この回答への補足

Gin_Fさん、こんにちは。
なるほど！一文字ずつ取り出し、それが
２バイトか１倍とかを確認すればよいのですね！！
目からうろこが落ちたおもいです。
どうもありがとうございました。

補足日時：2004/10/12 19:24

No.3 回答者： imogasi 回答日時： 2004/10/13 10:18

＃２です。

＞やり方は一つでないということですね
勿論それもありますが、
私が言いたかったのは、＃２のようなのが、使われるケースが「多い」のではないか、と言うことでした。
－－－－－－
　ついでに、それと今後のために、本質問の表題について、「アクセス」「全銀協フォーマット」の文字が入ってますが、質問内容は、「全角のチェックをどのように行うか」のようです。
こういう特殊分野の術語（特に「全銀協フォーマット」金融関係か銀行がらみの仕事をした人以外はビビル）を、質問の核心と関係ないのに出すのは、得策でありません。忙しい回答候補者は（アクセスVBAに詳しくても）これをみて、パスする可能性があります。表題は良く考えて。また今後OKWEBの過去質問照会で、誰かが「全銀協フォーマット」で照会する人がいると、この質問が出ますが、多分内容で肩透かしに合う人が多いでしょう。

この回答へのお礼

imogasiさん、こんにちは。
ご指摘ありがとうございます。
質問内容ばかりに気がいって、
表題のことをおろそかにして
しまいました。
今後は気をつけたいと思います。
どうもありがとうございました。

お礼日時：2004/10/14 14:55

No.2 回答者： imogasi 回答日時： 2004/10/12 20:08

>２バイトか１倍とかを確認すればよいのですね

と言うよりも、良く見かけるのは下記をご参考に
Sub test01()
' s = "カ"
' s = Chr(161)
s = "１"
x = StrConv(s, vbWide)
If s = x Then
MsgBox "全角"
Else
MsgBox "半角"
End If
End Sub

この回答へのお礼

imogasiさん、こんにちは。
やり方は一つでないということですね。
参考になりました。どうもありがとう
ございました。

お礼日時：2004/10/13 08:48