Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

244 / 9994

←次へ　｜　前へ→


	【13064】Re:日付+自動採番

亀マスター - 16/9/11(日) 2:02 -


	引用なし

	パスワード

私が思いつくのは、フォーム上で提出日のデータを更新したときに、更新後イベントで提出月に自動入力するという方法でしょうか。

年度はFormat関数で
Format(提案日, "yy/mm")
とすればいいですね。

連番部分については、DCount関数で提出日と同じ月を含む既存のデータ数を数え、これをFormat関数で3桁にするということになると思います。

FirstDay = DateSerial(Year(提案日), Month(提案日), 1)
LastDay = DateAdd("d", -1, DateSerial(Year(提案日), Month(提案日) + 1, 1))
連番 = DCount("*", "提案テーブル", "提案日 Between #" & FirstDay & "# And #" & LastDay & "#")

これで連番を取得し、
Format(連番, "000")
で3桁の連番になりますね。

（Format、DateSerial、DateAdd、DCountなどのの使い方はわからなければ調べてください）

264 hits

▼

【13063】日付+自動採番 NUTKEY 16/9/8(木) 12:32