【急】Access ４桁の数字の頭に0をつけて５桁にしたい

４桁の数字が入っているフィールドで、頭に０をつけたいです。
一括で簡単にできる方法を、至急教えて下さい！

No.1 回答者： naktak 回答日時： 2005/10/25 11:09

項目の書式に「0000」と設定するのはダメですか？

内容違いでしたらスルーして下さい。

No.2 回答者： naktak 回答日時： 2005/10/25 11:10

すみません。

書式に入れる値は「00000」ですね。

No.3 回答者： keemun_s 回答日時： 2005/10/25 11:28

更新クエリで一括でできます。

変更するテーブル名をtest、変更するフィールドをidとすると
更新クエリに「id」をフィールドでもってきます。
レコードの更新のところを『"0" & [test]![id]』
&の前後に半角スペース忘れずに。

この回答へのお礼

４桁と５桁が混在していて、４桁のものにだけ0をつけたいんです。
要するに、全部５桁に揃えたいのです。

お礼日時：2005/10/25 11:54

No.4 回答者： bin-chan 回答日時： 2005/10/25 12:27

見た目だけなら、

select format(<列名>, '00000')
from <テーブル名>
;

更新するなら、テーブルのデザインで書式設定か、
文字列だよ、なら以下の更新クエリを実行。
（無試験なのでバックアップしてくださいね）
update <テーブル名>
set <列名>=format(<列名>, '00000')
where len(<列名>)=4
;

この回答へのお礼

それぞれの式は、更新クエリの「レコードの更新」へ入力すれば良いのでしょうか？

お礼日時：2005/10/26 21:43

No.5 回答者： sanbit 回答日時： 2005/10/26 17:40

＞４桁と５桁が混在していて、４桁のものにだけ0をつけたいんです。

DoCmd.RunSQL "UPDATE テーブル名 SET フィールド名 = '0'+フィールド名 WHERE Len(フィールド名)=4;"

フィールド名のデータが４桁の場合フィールド名のデータの頭に「0」を付けてくれます。
参考まで!

この回答へのお礼

それぞれの式は、更新クエリの「レコードの更新」へ入力すれば良いのでしょうか？

お礼日時：2005/10/26 21:43

No.6 回答者： sanbit 回答日時： 2005/10/26 22:43

sanbitです。

一番簡単には実行するには
フォームにコマンドボタンを作成して、イベントこの１行をそのままコピーし、
テーブル名とフィールド名３箇所（同じ名前になります）を変更し
フォームの実行ボタンを押す。同じような処理で確認済みです。
フォームのボタンは実行後ＯＫなら削除してください。
なお、念のため元のテーブルはコピーを取ってから実行ください。

この回答へのお礼

フォームは初めて使用するのですが、「デザインビューでフォームを作成する」を選択し、
『詳細』に式をコピペし、名前を変更しました。
この後の作業、フォームの実行ボタンを押すのはどうしたら良いのかてこずっています（^-^;）

マニュアルを見ながら、完成させたいと思います。
本当に初心者で申し訳ありません。ご丁寧にご回答いただき、大変助かりました。
ありがとうございました！

お礼日時：2005/10/27 00:06

No.7 ベストアンサー 回答者： sanbit 回答日時： 2005/10/27 21:19

sanbitです。

クエリでしたらできますか？更新クエリで案内します。
(1)該当テーブルで選択クエリを作成ください。
(2)このクエリをデザインモードで開く→クエリ画面で右クリックするとプルダウンメニューがでます。
→一番上のSQLビューをクリック→何やら表示しています。これを消して

UPDATE テーブル名 SET テーブル名.フィールド名 = "0"+[フィールド名]
WHERE Len([フィールド名])=4;

２行をコピーしてください、
テーブル名とフィールド名３箇所（同じ名前になります）を変更してください。
スペースドット　大小のカッコ　など間違うと大変です。
(3)クエリは一旦閉じてダブルクリックで実行します。
クエリは画面上で右クリックで、表示モードが変えられます。
なお、念のため元のテーブルはコピーを取ってから実行ください。
データは更新してしまいます。間違っていたら元に戻せません

なお、前回のフォーム閉じてフォームをクリックすれば実行モードになります、ボタンをクリックすればイベントに書いた内容を実行してくれます。
フォームはデータを表示させたり、ボタンでいろんな処理をするのにしようします。

この回答へのお礼

できました！
連日、遅い時間までお付き合いいただき、本当にありがとうございました。
とても丁寧にご指導いただいたお陰で、今後の工数がウンと減ります。
感謝の気持ちでいっぱいです。20点しか差し上げられないのが悔しいです（>_<）

本当に、本当にありがとうございましたm(__)m

お礼日時：2005/10/27 23:15