Access 入力規制

質問

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

回答No.1

Dxak · ベストアンサー

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

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

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

StrConv関数 - Microsoft
http://office.microsoft.com/ja-jp/access/HA012289151041.aspx

お礼

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

回答No.2

noname#140971

実質的には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関数を使わなくても & "" で長さは測れます。

お礼

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