Access2007でフィールドの規定値として、一意の文字列「D-★★★★-☆☆☆☆」（★と☆の部分は半角数字）を設定したい

質問

お世話様です。

まったくもって表題の通りなのですが、
Access2007でフィールドの規定値として、一意の文字列「D-★★★★-☆☆☆☆」（★と☆の部分は半角数字）を設定したいと思っています。

●「」はナシです（説明のためにつけただけです）
●かならず D-のハンカク２文字が最初につく
●★★★★、および、☆☆☆☆の部分は、[0-9]が４つつづく
●新規レコードを追加しても、必ず値は一意になる
（★★★★と☆☆☆☆が一致しても問題ないです。★と☆の間のハイフンは読みやすさのためにそうしたいとおもっただけなので）

一意とはいっても、数字の部分が８けたなので、
00000000～99999999までの１億レコードまでしか作れないことは承知です。
実際、１億もレコードが増えることは想定していません。

これを実現するにはどうすればいいのでしょうか？

自分、MySQLとPostgresはいじったことあるのですが、
Accesssはほんのちょっとでして・・・。

たぶんAccesssとしては初歩の初歩なのでしょうが・・・

ご存じの方、教えていただければ幸いです。

よろしくお願い申し上げます。

回答No.3

mshr1962 · ベストアンサー

#1です。
＞RndとNowと４桁の整数に変換する巻数（不明。なお、３桁だとしたら0パ＞ディングする）を使えばうまくいくような気がするのでしょうが・・・
Rndで4桁数値とNowで時分の表示なら

"D-" & Format(Rnd() * 10000, "0000") & "-" Format(Now(),"hhnn")

お礼

ご回答ありがとうございます。

"D-" & Format(Rnd() * 10000, "0000") & "-" Format(Now(),"hhnn")

で、"-" のあとに & がなかったですが、それをいれたらいけました。

ありがとうございます。

回答No.4

CHRONOS_0

入力のたびにひとつずつカウントアップするということでいいいのなら
入力済の最大値を求めそれに1を足すというありふれた処理でいいのでは

Me.txtID.DefaultValue = "'" & "D-" & Format(Nz(Right(DMax("ID", "[テーブル名]"), 8), 0) + 1,"00000000") & "'"

お礼

ご回答ありがとうございます。

今回は＃３さんのやりかたでいってみたいとおもいますが、
今後、＃４さんのやりかたを参考にさせていただきます。

ありがとうございました。

回答No.2

nicotinism

安直な案
テーブルデザインでオートナンバー型のフィールドを作成し
書式に、"D-"0000-0000 とすれば？

内部的には単なる長整数型なので、”D-”は含まれません。
でも・・
実は、A-、B-、C-・・・・とかも有ったりして。。。

お礼

ご回答ありがとうございます

なかなかトリッキーなやりかたで、なるほど、と思いました。

ただ、オートナンバーだとヒューマンエラーが出そうな気がしまして・・・
（できれば（<=自分の技術的に）印刷も可能にしたいので）

ヤフオクの商品IDのようなものを想定しているのですが・・・

いい解決案がございましたら、お教えいただければ幸いです。

以上、よろしくお願い申し上げます。

回答No.1

mshr1962

定型入力欄に「"D-"0000-0000;0;_」とすればいいのでは？
http://office.microsoft.com/ja-jp/access/HA100964521041.aspx

お礼

ご回答ありがとうございます、
掲載していただいたURL,大変みやすく参考になります。

ただ、これだと「D-★★★★-☆☆☆☆」の★と☆の部分は自力でなく
自分で入力しないといけないですよね。。。
規定値として入力させたいのですが。。。、

RndとNowと４桁の整数に変換する巻数（不明。なお、３桁だとしたら0パディングする）を使えばうまくいくような気がするのでしょうが・・・
型不一致とかいろんなエラーがでてｋ実現できません、

どうすればよろしいでしょうか？

以上、よろしくお願い申し上げます。