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

お世話様です。

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

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

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

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

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

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

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

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

No.4 回答者： CHRONOS_0 回答日時： 2007/07/18 16:14

入力のたびにひとつずつカウントアップするということでいいいのなら

入力済の最大値を求めそれに1を足すというありふれた処理でいいのでは

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

この回答へのお礼

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

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

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

お礼日時：2007/07/20 03:13

No.3 ベストアンサー 回答者： mshr1962 回答日時： 2007/07/18 15:29

#1です。

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

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

この回答へのお礼

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

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

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

ありがとうございます。

お礼日時：2007/07/20 03:11

No.2 回答者： nicotinism 回答日時： 2007/07/18 13:30

安直な案

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

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

この回答へのお礼

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

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

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

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

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

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

お礼日時：2007/07/18 14:54

No.1 回答者： mshr1962 回答日時： 2007/07/18 12:42

定型入力欄に「"D-"0000-0000;0;_」とすればいいのでは？

http://office.microsoft.com/ja-jp/access/HA10096 …

この回答へのお礼

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

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

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

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

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

お礼日時：2007/07/18 14:48