ACCESSで日付ごとに自動連番（日付＋連番）する方法

ACCESSで日付ごとに自動連番（日付＋連番）する方法

ACCESSとvba、共に初心者です。

ACCESS2003を使用しています。日付ごとに自動連番する方法が知りたくいろいろ調べていたところ過去ログ（http://oshiete.goo.ne.jp/qa/726921.html）のベストアンサーさんの回答にたどりつきました。
とりあえず勉強と思い紹介されている通りにテーブル作成からフォームのレコード移動時へのコード貼り付けまで一通り行ってみましたが、自動連番とならず同じ番号のままとなってしまいます。（日付はパソコンの日付更新時にちゃんと反映されています。）
自動連番されないのは何が原因なのでしょうか。どなたかご教授の程よろしくお願いします。


例）DATEが5月5日の場合のIDへの記載値
　0505001
　0505001←ここが001のまま0505002にしたい。
　0506001←日付が変われば0506（5月6日）に変わる。

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

No.5 ベストアンサー 回答者： bonaron 回答日時： 2010/05/06 11:15

No4 です。

すみません。もう１カ所、テキスト型の書き方に変えなければいけないところがありました。

> If IsNull(MaxID) Then
> 　　Me.ID.DefaultValue = AutoID & "001"
> Else
> 　　Me.ID.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
> End If

If IsNull(MaxID) Then
　　Me.ID.DefaultValue = "'" & AutoID & "001" & "'"
Else
　　Me.ID.DefaultValue = "'" & AutoID & Format(Right(MaxID, 3) + 1, "000") & "'"
End If

既定値に数値型で書き込んでいますから
結局、頭のゼロが失われています。

なお、No2 さんへの補足で

> 6.[自動採番月日TBLF]の[ID]プロパティの書式に0000000を記入（一桁月の場合、頭の0が消えて6桁表示となるため。）

とありますが、
書式は、見せる形だけで、実際の値は変わりません。
書式は削除してください。
問題を分かりにくくするだけです。

この回答へのお礼

希望通りの動作が確認できました！！ありがとうございます。これでやっと次の課題にチャレンジできそうです。いろいろとお手を煩わせたと思いますが、ご教示ありがとうございました。

お礼日時：2010/05/06 22:12

No.6 回答者： mshr1962 回答日時： 2010/05/06 20:17

No.2です。

＞3.[自動採番月日TBL]に数値型フィールド[ID]
これが問題ですね。ここがテキスト型なら問題ないですが、数値型ならコードを変える必要があります。

Private Sub Form_Current()
If Me.NewRecord = False Then Exit Sub
Dim AutoID As String
Dim MaxID As Variant
AutoID = Format(Date, "mmdd")
'MaxID = DMax("ID", "自動採番月日TBL", "Left(ID,4)=" & AutoID) 変更前
MaxID = DMax("ID", "自動採番月日TBL", "Left(Format(ID,"0000000"),4)=" & AutoID) '変更後
If IsNull(MaxID) Then
　　Me.ID.DefaultValue = AutoID & "001"
Else
　　Me.ID.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
End If
End Sub

この回答へのお礼

[ID]数値型にて記載いただいたコードで実施してみましたが、「コンパイルエラー　構文エラー」となってしまいました。
NO.4さんから教えていただいたテキスト型の方法にて希望していた動作が確認できましたので、とりあえず今回はテキスト型にて実施してみようと思います。
いろいろとご教示ありがとうございました。

お礼日時：2010/05/06 22:07

No.4 回答者： bonaron 回答日時： 2010/05/05 23:17

> 自動連番されないのは何が原因なのでしょうか。

過去ログ（http://okwave.jp/qa/q726921.html）のベストアンサーさんの回答に不備があります。

ID フィールドは「テキスト型」でなければいけません。
たまたま、１２月だったからうまくいったのですね。

リンク先では

> 例）1210001
> 　　1210002
> 　　｜
> 　　1210100
> 日付は月と日にちで、連番は３桁です。

bicycle5000 さんのご希望

> 例）DATEが5月5日の場合のIDへの記載値
> 　0505001
> 　0505001←ここが001のまま0505002にしたい。
> 　0506001←日付が変われば0506（5月6日）に変わる。

ところが実際には
　　DATEが5月5日の場合のIDへの記載値
　　505001　（数値型ですから、頭のゼロは存在しません。"0505001" ではないのです。）

リンク先で、 当日で 最大の ID を求めるロジック
　　AutoID = Format(Date, "mmdd")
　　MaxID = DMax("ID", "自動採番月日TBL", "Left(ID,4)=" & AutoID)

5月5日の場合
　　AutoID ： "0505"
　　これを元に MaxID を求めています。
　　「ID の 左４文字が、 AutoID の値と等しい」 という条件で。

　　これで、なぜ MaxID が Null になるかお分かりいただけたでしょうか？

　　ID の 左４文字："5050"
　　AutoID ："0505"
　　これが等しい最大のID は存在しないのです。

１２月１５日なら
　　ID の 左４文字："1215"
　　AutoID ："1215"
　　これならうまくいきますね。

長々と書きましたが、修正は２点。

・ID をテキスト型にする

・MaxID = DMax("ID", "自動採番月日TBL", "Left(ID,4)=" & AutoID)
　の抽出条件を テキスト型用に書き換える。

サービス、答えも書いちゃいますね。
　MaxID = DMax("ID", "自動採番月日TBL", "Left(ID,4)='" & AutoID & "'")

この回答への補足

回答ありがとうございます。おかげさまで連番をつくるコードの仕組みは以前より理解が深まりました。
それで早速ためさせて頂いたのですが、なぜか以前と変わらず連番になりませんでした。
AutoIDでは0505という値が入っていることを確認できたのですが、フォームビューのID欄には505001と頭の0がなくなっています。Left（ID,4）で先頭の0が認識されていないのでしょうか？

補足日時：2010/05/06 01:26

No.3 回答者： mshr1962 回答日時： 2010/05/05 17:45

No.2です。

＞ご教示頂いたMuxIDの部分が001であることを確認する手段はどのように行えばよろしいのでしょうか？
使用しているフォームのコードを開いて該当の場所でF9キーを押してブレークポイントを作成して
フォームの新規入力を実行するとブレークポイントを指定した行でコードが停止します。
その際に変数にカーソルを合わせると変数に入力された値が表示されます。
※詳細は参照URLをご覧ください。

後、もうひとつ気付いたことがあります。
このコードはフォームから新規入力を実行しないと"ID"の既定値は変更されません。
テーブルを直接開いて、新規入力の場合は直前の既定値の値が入力されます。
この場合既定値を確認するには、テーブルをデザインモードで開きフィールド"ID"を選択した状態で
下方に表示されるプロパティの既定値を確認してください。

参考URL：http://hamachan4.exblog.jp/7955925/

この回答への補足

ブレークポイントやってみました。やはりMaxID=nullと表示されました。でもどうしてMaxIDに値が代入されないのかがまったく検討がつきません。基本的なことが抜けているのでしょうか。確認可能であれば、以下に私の作成手順および確認手順を記載しましたので、過不足等をご教示頂きたくお願いいたします。

■作成手順
1.空のデータボックスを作成。
2.テーブル[自動採番月日TBL]を作成。
3.[自動採番月日TBL]に数値型フィールド[ID]と適当なテキスト型フィールド[etc]を作成。
4.[自動採番月日TBL]を元にオートフォーム：表形式で[自動採番月日TBLF]を作成。
5.[自動採番月日TBLF]のフォーム-プロパティ-レコード移動時からコードビルダを選択しコードを貼り付け。
6.[自動採番月日TBLF]の[ID]プロパティの書式に0000000を記入（一桁月の場合、頭の0が消えて6桁表示となるため。）

■確認内容
1.[自動採番月日TBLF]をフォームビューで開き1つめの新規レコードをenterキーを押し[ID]から[etc]に移動し[etc]に適当な値を入力しenterキーを押す。
2.2行目の新規レコードに自動的に0505001が代入される。enterキーを押し[ID]から[etc]に移動し[etc]に適当な値を入力しenterキーを押す。
3.3行目の新規レコードに2行目のレコードと同じ[ID]0505001が代入されてしまう。

以上

補足日時：2010/05/05 23:03

No.2 回答者： mshr1962 回答日時： 2010/05/05 15:17

話の内容から下記の部分が正常に機能してないようです

If IsNull(MaxID) Then
　　Me.ID.DefaultValue = AutoID & "001"
Else
　　Me.ID.DefaultValue = AutoID & Format(Right(MaxID, 3) + 1, "000")
End If

上記のELse以下でカウントアップさせるのですが、MaxIDがNull判定されるため001のままになってます。
となると原因は
MaxID = DMax("ID", "自動採番月日TBL", "Left(ID,4)=" & AutoID)
になります。

テーブル名は"自動採番月日TBL"で間違いありませんか？※TBLの半角・全角が違ってませんか？
違ってるようであれば、上記のコード内の"自動採番月日TBL"を使用してるテーブル名に変更して確認してください。

この回答への補足

早速のご回答ありがとうございます。
＞テーブル名は"自動採番月日TBL"で間違いありませんか？※TBLの半角・全角が違ってませんか？

コード内のテーブル名の記述と実際のテーブルの名前を確認しましたが、ファイル名は同じで、どちらもTBL部分は英大文字の半角表示でした。

ご教示頂いたMuxIDの部分が001であることを確認する手段はどのように行えばよろしいのでしょうか？

補足日時：2010/05/05 16:19

No.1 回答者： bin-chan 回答日時： 2010/05/05 15:12

一件目の書き込み成功時に、[自動採番月日TBL]![ID]を確認しましたか？

001になってますか？これがうまく行ってないと思いますよ。（レコードが無いor000のまま）

この回答への補足

早速のご回答ありがとうございます。
＞一件目の書き込み成功時に、[自動採番月日TBL]![ID]を確認しましたか？001になってますか？
[自動採番月日TBL]を開いて[ID]を確認すると001ではなく0505001という値が入っています。
確認箇所は正しいでしょうか。ここが問題ない場合は次にどこを確認すればよろしいでしょうか。ご教示お願いします。

補足日時：2010/05/05 16:07