Access VBA 年度データ 4月から何か月経過しているかを取得する

年度データを算出する際に4月から何か月経過しているかを取得します

VBAコード

'月度累計
'累計を計算する際に用いる4月からの月数
Dim mon As Integer
'年度累計を出す4月が期首となる
If Format(Now, "m") < 4 Then
'1〜3月までの4月からの月数
mon = 8 + Format(Now, "m")
Else
'4〜12月までの4月からの月数
mon = Format(Now, "m") - 4
End If

メモ

VBAからクエリの実行
・DoCmd.OpenQueryは、あらかじめ作成されたクエリを指定して実行します。
・DoCmd.RunSQLは、作成されたクエリを指定して実行することはできません。

・構文
DoCmd.OpenQuery QueryName , View , DataMode

この構文にて更新クエリ、追加クエリなども事項可能です。

実際例 クエリ名を書く時にはダブルクォーテーションを忘れないようにします。
DoCmd.OpenQuery “クエリ名”, acViewNormal

関連コンテンツ