- ベストアンサー
ACCESSで日付ごとに自動連番（日付＋連番）する方法
bonaronの回答
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桁表示となるため。） とありますが、 書式は、見せる形だけで、実際の値は変わりません。 書式は削除してください。 問題を分かりにくくするだけです。
関連するQ&A
- ＡＣＣＥＳＳの自動連番について
ＡＣＣＥＳＳ２０００を使っています。 自動連番を通常すると１・２・３・・・と自動で連番を作成してくれますが、それを日付+連番というものに出来ますでしょうか？ 例）1210001 1210002 ｜ 1210100 日付は月と日にちで、連番は３桁です。 数字の連番の方は、日付が変わるとまた１に戻るようにしたいです。 何か良い方法があったら教えてください。
- ベストアンサー
- オフィス系ソフト
- アクセスで日付をシリアル値にして使いたい
アクセス初心者です 日付を入力時に自動でシリアル値を表示したいのですが、VBAなどを使わずに表示させる方法はありませんか？ 例 日付 シリアル値 2016年1月2日 42371 みたいな感じです 宜しくお願いいたします
- ベストアンサー
- オフィス系ソフト
- アクセス日付時刻の自動入力について。
アクセス２０００を使用しています。 日付入力を自動的に本日の日付で入力出来るように、 =Date()としたのですが、これに、時間もつけるようにしたいのと、表示を、平成＊＊年＊＊月＊＊日＊＊時＊＊分としたいのですが、どのようにすればよいのでしょうか？？ ちなみにVBAはむずかしくて使用出来ません。
- ベストアンサー
- その他(データベース)
- excelの関数かマクロで連番、日付を付けたい
こんばんわ、EXCELマクロ入門者です。 excelの関数かマクロ、VBAで日付や、連番を付けたいです。 できれば関数でできたらなぁと思います。マクロ、VBAはほとんど初めてです。 (1)まず、B2に商品名を入れます。 (2)すると、A2に連番、C2に今日の日付（システム日付）、 D2に商品名と今日の日付、商品ごとの連番が自動的に振っていく感じにしたいです。毎日たくさん入力するらしいのでマクロとかVBAとか関数で作ってくれと頼まれました。 A列は例えばA3に=if(B3="","",A2+1)を入れて何とかできたのですが、 C列の日付（today関数やnow関数ではファイルを開き直すと日付が変わってしまう）とD列の商品名-日付-商品ごとの連番で特に困っています。 イメージとしては下のような感じです。 A B C D 1 連番 商品名 日付 商品名-日付-商品ごとの連番 2 1 ○○○ 2007/8/10 ○○○-2007/8/10-1 3 2 ××× 2007/8/12 ×××-2007/8/12-1 4 3 △△△ 2007/8/13 △△△-2007/8/13-1 5 4 ○○○ 2007/8/15 ○○○-2007/8/15-2 6 5 ○○○ 2007/8/16 ○○○-2007/8/16-3 どなたか、ご教授ください。 どうぞ、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Access97での日付自動入力について
「日付」、「顧客名」、「記録（メモ）」の３つのフィールドから構成されるデータベースを作ろうとしています。このうち「日付」の部分に、自動的にレコード入力時の年月日を入れる方法はないでしょうか。
- ベストアンサー
- オフィス系ソフト
- Ａｃｃｅｓｓ2000 連番の振り方
次のようなテーブルに対して連番を振りたいのです。 伝票番号 日付 行番号 金額 00001 2007/01/01 1 1000 00001 2007/01/01 2 1000 00001 2007/01/01 3 1000 00002 2007/01/02 1 1000 00002 2007/01/02 2 1000 00002 2007/01/02 3 1000 以下はこのような状態で続く。 ここで知りたいのは、同日のデータに対しては伝票番号は同じ番号で 行番号のみ連番を振る。 日が変われば伝票番号は次の番号になり、行番号は新たに1から 振りなおすというものです。 クエリーでこのようなことは可能でしょうか。 やはりVBAで組まないと出来ないのでしょうか。 この方法を教えていただきたくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- FileMaker Pro日付自動入力
filemaker pro(8.5)を使っていますが、連番のついた365個のレコードに対して、その順番で来年の365日の日付を自動入力することは可能ですか？
- ベストアンサー
- その他(ソフトウェア)
- エクセルの日付連番について
不思議なのですが エクセルデータをテキストデータに変換した時の事ですが Write#ステートメントでテキストファイルに書込むと 日付が日付連番の,38745,で書込まれる時と ,#2006-01-28#,が混じって書込まれますがどうしてでしょうか？ このテキストファイルをアクセスで加工する時に困るのです よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- ACCESS フォームに自動連番をふる
Accessでテーブル→クエリ→フォームと作成し、フォームから特定条件を指定して データを抽出しました。 その抽出したデータに自動連番をつける方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- アクセス97のVBAで日付項目をヌルにする方法
ＯＳ WIN＿XP HOME アクセス97 の VBA で、日付項目を初期化(ヌル)に するには、どのように記述すれば良いでしょうか？ 例 Dim 売上日 As Date 売上日 = "" 詳細 この様に記述すると、エラーとなります。 日付タイプは、レコード作成時は、規定値を 設定しないと、始めはヌルのままなんですが、 一度日付を設定したが、やっぱりヌルにもどそう とすると、その方法が分かりません。
- ベストアンサー
- その他(データベース)
お礼
希望通りの動作が確認できました！！ありがとうございます。これでやっと次の課題にチャレンジできそうです。いろいろとお手を煩わせたと思いますが、ご教示ありがとうございました。