フォーム、VBAテーブルやクエリーと連結されたテキストボックスでは、入力された文字数がテーブルに定義されているフィールドサイズを越えていないか、特に何もしなくてもAccessが調べてくれ、それ以上は入力できないようにしてくれます。入力された文字に半角と全角が混在している場合でも、半角は1文字分、全角は2文字分として計算してくれますので、例えば、フィールドサイズが"3"のテキスト型フィールドに"全角"と入力しようとすると、"全"しか受け付けてくれません。テーブルなどと連結されていないテキストボックスに任意の文字を入力して、"[OK]ボタンをクリックしたらその内容をテーブルに書き込む"、といった処理では、あらかじめそのテキストボックスの[BeforeUpdate/更新前処理]イベントを使って入力された文字数がフィールドサイズを越えていないかチェックする必要があります。Ifのようにすると、前者では全角も1文字分としてカウントされてしまいますし、後者では"Unicode"としてのカウントのために半角も2文字分としてカウントされてしまい、テーブルのフィールドサイズとの適合がうまく判断できません。このようなチェック方法でOKだからといって、テーブルに書き込むとその時点でエラーが発生する可能性があります。そこで、テキストボックスに半角と全角が混在した状態で入力されても、テーブルのフィールドサイズとの整合性を正しくチェックする方法を紹介します。vbFromUnicode)"してからその長さをチェックするようにします。そのコードは次の通りです。|この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。vspace="2">。