Access 入力規制

フォームで入力規制をLenB(nz([備考],""))<=86のような形でしているのですが、ワードに合わせた形の規制は可能でしょうか？
全角で４３文字　半角で８７文字です。

No.1 ベストアンサー 回答者： Dxak 回答日時： 2008/04/28 10:32

最初に・・・AccessはUnicodeを使用してます

Microsoft Wordも、Windows XPも・・・
昔のようにAnci、S-JISを内部的に使用している環境が減っているのも事実ですが・・・

LenB(StrConv([備考],128))<=86

で、昔のコードで規制かけることは可能ですが・・・余り意味がある様には・・・

StrConv関数 - Microsoft
http://office.microsoft.com/ja-jp/access/HA01228 …

この回答へのお礼

ありがとうございます。
WORDを使う関係上この規制があると作業が楽になるので助かりました。

お礼日時：2008/04/28 14:46

No.2 回答者： noname#140971 回答日時： 2008/04/28 10:56

実質的にはANo1と重複していますが・・・。

[イミディエイト]
? LenH("12345")
5
? LenH("壱弐参四五")
10
? LenH("12345壱弐参四五")
15
? vbFromUnicode
128

LenB関数ではなく LenH関数を自作するのも手です。
他のケースでも

Public Function LenH(ByVal Text As String) As Integer
　　LenH = LenB(StrConv(Text, vbFromUnicode))
End Function

LenH([fld_1] & "")<87

なお、Nz関数を使わなくても & "" で長さは測れます。

この回答へのお礼

ありがとうございます。
参考になりました。

お礼日時：2008/04/28 14:46