ACCESS2000で半角と全角を判断する方法

とりあえず思いつくのは、 Unicode → Shift-JIS に変換して、LenB が 2byte だったら全角とみなす。 という方法です。 ↓こんな感じ。 Private Function IsZenkaku(ByVal s As String) As Boolean s = Left(s, 1) If LenB(StrConv(s, vbFromUnicode)) = 2 Then IsZenkaku = True Else IsZenkaku = False End If End Function 漢字をキー入力できなくするのだったら、「IME入力モード」プロパティを「使用不可」にすればいいのですが、コピー＆ペーストで漢字が混じった文字をペーストできないようにしようとすると、BeforeUpdate か何かのイベントで１文字ずつ全角か半角か判定して、全角だったらカットする、とかでしょうか。