Access　フォーム入力規制

解決済

質問者：sskj
質問日時：2007/12/25 11:06
回答数：2件

Accessのフォームで入力規制をする場合、
入力規制に　LenB([フォーム名])<=10　のような記述をすれば
１０文字まで規制できますが、漢字１つを１文字として規制はできないのでしょうか？

例えば、「田中」これは３文字として扱われますが実際に規制したいのは漢字２文字です。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： CHRONOS_0
回答日時：2007/12/25 12:22

フォームに入力規則はありませんよ(入力規制もね)

したがって

>LenB([フォーム名])<=10

こんな書き方は出来ません
フォームじゃなくテキストボックスでしょうか

だとしても
>「田中」これは３文字として扱われますが
これも
>LenB([フォーム名])<=10　のような記述をすれば１０文字まで規制できますが
これも変ですね

Accessのバージョンが書かれていませんが2000以降はユニコードですから
文字は全部2バイト、従って

LenB([フィールド名])<=10
なら5文字
LenB("田中")
は4となります。3なんて数字は出て来っこないですよ

2文字としたいのであれば普通にLenを使えばいいのでは
漢字なのか他の文字なのかの判定はまた別の話になりますね

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
フォームではなくテキストボックスですね＾＾；

通報する

お礼日時：2007/12/28 09:33

No.1

回答者： noname#140971
回答日時：2007/12/25 12:03

Public Function LenH(ByVal TEXT As String) As Integer

　　LenH = LenB(StrConv(TEXT, vbFromUnicode))
End Function

X　LenB([Forms]![フォーム1]![テキスト0])<=4
X　LenH([Forms]![フォーム1]![テキスト1])<=4
O　LenH([Forms]![フォーム1]![テキスト1] & "")<=4

私は、LenH関数を利用してバイト換算で規制しています。