- PR -

半角カタカナ以外は入力不可にする方法

1
投稿者投稿内容
未記入
会議室デビュー日: 2007/10/05
投稿数: 4
投稿日時: 2007-10-23 17:39
access2000を使用しています。
あるフィールドに半角カナ以外入力できないようにしたいのですが上手くいきません。
入力規則にLenB(StrConv(StrConv(文字列, 32), 128))=LenB(StrConv(StrConv(文字列, , 128))
としてみましたが、全角カタカナはエラーが出てOKなのですが、全角の漢字が入力できてしまいます。
ご存知の方、どうか宜しくお願いします。
蒋　いつ峰
会議室デビュー日: 2005/10/08
投稿数: 11
投稿日時: 2007-10-24 14:15
下記コードを参考してください。
コード:
Dim sANSI As String             'ANSI形式の文字列

sANSI = StrConv(文字列, vbFromUnicode)

Dim lenByte as Integer = LenB(sANSI)

Dim lenStr as Integer = Len(文字列)

If lenByte <> lenStr

    MsgBox "半角文字を入力してください。"

End If


_________________
オンライン作品掲載 -- Uprush
http://uprush.net

[ メッセージ編集済み 編集者: uprush 編集日時 2007-10-24 14:18 ]
未記入
会議室デビュー日: 2007/10/05
投稿数: 4
投稿日時: 2007-10-24 18:26
早速ご返答頂きましてありがとうございました！
1

スキルアップ／キャリアアップ（JOB@IT）