【AccessVBA】フォームのテキストボックス入力時、自動で前０(ゼロ)を任意桁数つける方法

ひさびさのAccessネタ。

今回はテキストボックスに数字を入力し、自動的に前０を付ける方法。
AccessVBAを使いますが、たった１行で済む簡単なコードで対応可能です。
ちょっとタイトルも含めて文字だけでは伝えづらい部分なので、状況や方法を以下図を含めて説明します。

やりたいこと

123というコードを入力。そしてエンターキーやtabキーを押すと・・・

このように前に６桁の社員コードを入力する時に、いちいち000と0(ゼロ)を３つ入力しなくても自動的に入力されるようにしたい！入力効率を上げるためには当然このようなシステムを求めたくなります。

やり方

「デザインビュー」で対象のテキストボックス（例はテキスト0）のプロパティで、

「イベント」タブの「更新後処理」に「イベントプロシージャ」を実行します。

VBAコードは以下のように１行追加します。

※「テキスト0」の部分はテキストボックスの名前にしてね。

今回は以上です。