• ベストアンサー

Accessで、固定アルファベット+オートナンバーを表示する

いつも大変お世話になっております。 Accessで、あるフィールドに入れるデータとして、固定アルファベット(例:ABC)に続けて、ナンバリングをしたい場合、 ABC+オートナンバー ということになりますが、それはどのように表記すれば値が自動的に入っていくのでしょうか? テーブル内での記述の仕方など、具体的に教えていただけると助かります。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • shut0325
  • ベストアンサー率40% (490/1207)
回答No.5

No.1およびNo.2です。 固定文字+オートナンバーですよね? ようはデータを追加するたびにABC00001、ABC00002と自動でなればいいのですよね? なので、それはテーブルデザイン時に「書式」で"ABC"00000(この場合5けた)とすれば可能です。無理ではありません。一度試されてください。

xchoxcho
質問者

お礼

こちらが知識不足のため、質問の意味が通じてないなどと言って申し訳ありませんでした。 見事にできました!!!ありがとうございました。 こんなに簡単にできるとは本当に知りませんでした。 本当にどうもありがとうございました。\(^O^)/

その他の回答 (4)

noname#22222
noname#22222
回答No.4

無理かと思います。 固定アルファベットとオートナンバーとは両立しない概念です。 また、そういう仕組みの必要性そのものがないかと思います。

xchoxcho
質問者

お礼

お返事ありがとうございます。 やはりそうですか・・・(涙) No.3の方のやり方を試してみて、ダメだったら、オートナンバーのフィールドのみで対応するしかない・・・ということですね。 ありがとうございました。やってみます。

  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.3

フォームでなら設定できますがテーブルでは無理ですね。 連番の桁数が6桁として、フォームで行う場合は、更新後イベントで If フィールド名 Is Not Null Then Exit Sub '設定済みは対象外 AN = DCount("*","テーブル名","フィールド名 Like 'ABC*') If AN = 0 Then '該当するコードがなければ"000001"件目 AX = 1 Else '既設置番号があれば最大値の次番号 AX = CInt(Right(DMax("フィールド名","テーブル名","フィールド名 Like 'ABC*'),6))+1 End If '番号セット フィールド名 = "ABC" & Format(AX ,"000000") Msgbox フィールド名 & "を採番しました。",VbOKOnly,"自動採番"

xchoxcho
質問者

お礼

お返事ありがとうございました。 自分自身の能力では、無理がありそうですね・・・(^^;) いちよ試してみます。 またわからないことが出てきましたら、補足にて質問させていただくかと思いますが、よろしくお願いします。

  • shut0325
  • ベストアンサー率40% (490/1207)
回答No.2

補足 0の数=表示桁数です。 紛らわしい表現でした。ごめんなさい。

  • shut0325
  • ベストアンサー率40% (490/1207)
回答No.1

テーブルの設定中「書式」に"abc"00000 と入れる。 0(ゼロです)の数は好きなように。

xchoxcho
質問者

お礼

お返事ありがとうございました。 こちらの質問の仕方もわかりにくかったかと思いますが、00000の部分は自動的に採番されるようにしたかったのです。

関連するQ&A