No18384.数字の先頭に0をつける方法

OS:WindowsXP
Access Version:AC2000
■表形式（列数：２、項目：番号、名前）のフォームに対し、番号を頭０埋めで表示／登録したい。
どうしても入力規則を使わずに入力させたいので頭に０をつけずに入力し
書式に００００００００などといれたのですが変化しませんでした。

そこで以下のように追加したところ
　実行時エラー’２１１５’：
　”BeforeUpdate/更新前処理”プロパティまたはこのフィールドの
　”ValidationRule/入力規則”プロパティに設定したマクロまたは関数のために、
　このフィールドのデータを保存できません。
というエラーが出てしまいます。

番号_beforeUpdate(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstnew As New ADODB.Recordset
Dim ilen As Integer

Set cn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "Ｗ１", cn, adOpenStatic, adLockReadOnly
rst.Find "番号 = '" & Format(Me!番号, "00000000") & "'"
If rst.EOF Then
'データを追加
rstnew.Open "Ｗ１", Application.CurrentProject.Connection _
, adOpenKeyset, adLockOptimistic
rstnew.AddNew
rstnew!番号 = Format(Me!番号, "00000000")
rstnew.Update
Me.Refresh ←ここです。
Else
MsgBox "重複データあり"
ilen = Len(Me!番号)
Me!番号.SelStart = 0
Me!番号.SelLength = ilen
End If
※使用テーブル
Ｗ１は番号（String）のみのテーブルです。

問題の部分をはずし、実行すると
入力イメージ＞＞
番号（入力）　　　名前（マスタより表示）
０００００００１　名称１
２
結果イメージ＞＞
番号　　　　　　　名前
０００００００１　名称１
０００００００２　名称２
Ｗ１の現在の結果＞＞
０００００００１
０００００００２
２　　　　　　　←不要！

といった感じです。
ならば、とMe!番号 = Format(Me!番号, "0000")をこのロジックの頭に
記述してみたのですが、その箇所で同じエラーがでてしまいました。
　記述すべき箇所がちがうのでしょうか？
入力値（１桁〜８桁）を８桁でフォーマットし、一覧／テーブルに反映する方法がありましたら
教えてください。よろしくお願いします。

> ■表形式（列数：２、項目：番号、名前）のフォームに対し、番号を頭０埋めで表示／登録したい。
> どうしても入力規則を使わずに入力させたいので頭に０をつけずに入力し
> 書式に００００００００などといれたのですが変化しませんでした。

書式プロパティでできるはずです。
番号フィールドのデータ型は、数値型になってますか。

>>頭に０をつけずに入力し書式に００００００００などといれたのですが変化しませんでした。

番号フィールドはStringなので書式設定しても意味がありません。
これが効くのは数値型です。

>>”BeforeUpdate/更新前処理”プロパティまたはこのフィールドの
>>”ValidationRule/入力規則”プロパティに設定したマクロまたは関数のために、
>>このフィールドのデータを保存できません。
>>というエラーが出てしまいます。

文字通りそういうことではないのでしょうか？

それともう一点今後の参考のために、

>rstnew.Open "Ｗ１", Application.CurrentProject.Connection _
>, adOpenKeyset, adLockOptimistic
>rstnew.AddNew
>rstnew!番号 = Format(Me!番号, "00000000")
>rstnew.Update
>Me.Refresh ←ここです。

ここは

rst.Addnew
rst!番号=Format(Me!番号, "00000000")
rst.Update
です。
Ｗ１を２回も開く必要は有りません。

> 番号フィールドはStringなので書式設定しても意味がありません。
> これが効くのは数値型です。
Ｗ１テーブルの項目を数値型、書式00000000、主キー指定にしました。
これでいけました。

Tkwan 様、hatena 様　教えていただきありがとうございました。
まだまだ、調べ方も記述の仕方もムダが多いので
日々がんばってステップアップしていこうと思います。
これからもどうぞよろしくおねがいします。