Access 年月指定によるカレンダーの抽出

質問

Access 年月指定によるカレンダーの抽出

お世話になっております。

(1)フォームA上で「年月」を指定（例：2017/07）
(2)該当年月の１か月分の年月日をサブフォームB上で縦に表示

ということを実行するためには、DateAdd関数などを駆使して作る方法はなんとなく分かりますが、
より簡単に１か月分の日付（曜日も）を取得する方法があれば教えてください。

サブフォームBへは、
「年月日（曜日）」「集計した数」「入金額」
例「2017/07/01（土）」「1,000」「1,000,000円」
例「2017/07/02（日）」「1,500」「1,500,000円」
の３つ１組を縦表示できればと考えております。
「集計した数」「入金額」については別テーブルを利用して後で計算します。

単純に、指定月の年月日（曜日）を空のテーブルに追加する方法を教えてください。

何卒よろしくお願い申し上げます。

回答No.1

okgoo3 · ベストアンサー

標準モジュールにでも書いてください。
「2017/07」というような引数を与えればテーブル TblA のフィールド 年月日 に1ヶ月分の日付が追加されます。
曜日の視覚的な表現はレコードの値に組み込まず、データを表示するコントロールの書式設定に任せた方が良いと思います。

Sub CreateCalendar(aTargetYM As String)
　Dim startDate As Date, endDate As Date
　startDate = DateValue(aTargetYM & "/1")
　endDate = DateSerial(Year(startDate), Month(startDate) + 1, 0)

　Dim dbs As DAO.Database
　Dim rst As DAO.Recordset
　Dim dtItem As Date

　Set dbs = CurrentDb
　Set rst = dbs.OpenRecordset("TblA")

　For dtItem = startDate To endDate
　　rst.AddNew
　　rst!年月日 = dtItem
　　rst.Update
　Next
End Sub

お礼

ご連絡ありがとうございました。
イメージ通りの結果を得ることができました。
また大変勉強になりました。
重ねて御礼申し上げます。