Access VBA質問箱 IV

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

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


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

243 / 9994

←次へ　｜　前へ→


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

NUTKEY - 16/9/12(月) 9:28 -


	引用なし

	パスワード

亀マスターさん

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

クエリ（提案T）を作成し提出月に提出月: Format([提案日],'yyyymm')を作成し年度まで表示させました。

私なりに関数の意味を調べまして、
提案日の更新後処理（Private Sub 提案日_AfterUpdate()）に以下を全て入れて操作してみたのですが
提出月に年度までは出てますが、連番が表示されません。
連番は、クエリのフィールドに直接式を入れるのかと思い、入れてやってみたのですが違うようでした。

月初との日付を取得する（年月までを抽出）
FirstDay = DateSerial(Year(提案日), Month(提案日), 1)

月末との日付を取得する（年月までを抽出）
LastDay = DateAdd("d", -1, DateSerial(Year(提案日), Month(提案日) + 1, 1))

［提案日］の値が月初-月末の日付（現在でやると20160901-20160930）のデータの個数を求める。
連番 = DCount("*", "提案T", "提案日 Between #" & FirstDay & "# And #" & LastDay & "#")

今回初めてVBAに挑戦していおり、全く知識がないまま質問して申し訳ありません。
これをきに勉強していこうと思っていますのでご面倒かと思いますが、
再度説明して頂けると助かります。

289 hits

▼

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