|
カテゴリ:カテゴリ未分類
年度データを算出する際に4月から何か月経過しているかを取得します
'月度累計 '累計を計算する際に用いる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 お気に入りの記事を「いいね!」で応援しよう
Last updated
Apr 19, 2017 12:02:15 PM
コメント(0) | コメントを書く |