Access フォーム入力規制

質問

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

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

回答No.2

CHRONOS_0 · ベストアンサー

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

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

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

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

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

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

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

お礼

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

回答No.1

noname#140971

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関数を利用してバイト換算で規制しています。