Access VBA質問箱 IV

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

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


71 / 9995 ←次へ | 前へ→

【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などのの使い方はわからなければ調べてください)

60 hits

【13063】日付+自動採番 NUTKEY 16/9/8(木) 12:32 質問[未読]
【13064】Re:日付+自動採番 亀マスター 16/9/11(日) 2:02 回答[未読]
【13065】Re:日付+自動採番 NUTKEY 16/9/12(月) 9:28 質問[未読]
【13066】Re:日付+自動採番 亀マスター 16/9/12(月) 22:31 回答[未読]
【13067】Re:日付+自動採番 NUTKEY 16/9/16(金) 15:12 質問[未読]
【13068】Re:日付+自動採番 亀マスター 16/9/17(土) 18:08 回答[未読]
【13069】日付+自動採番 NUTKEY 16/9/19(月) 14:03 お礼[未読]

71 / 9995 ←次へ | 前へ→
ページ:  ┃  記事番号:
966058
(SS)C-BOARD v3.8 is Free