Microsoft Access 掲示板

Microsoft Access 掲示板

フォームのボタンに期間抽出を組み込みたい。 / 3

4 コメント
views
4 フォロー
3
hatena 2020/12/11 (金) 13:30:37

「月」コンボボックスの更新後処理のイベントプロシージャを下記のように変更すればいいでしょう。

Private Sub cb月_AfterUpdate()
    Dim BeginDay As Date
    BeginDay = DateSerial(Me.cb年, Me.cb月 - 1, 21)
    Me.Filter = "売上日>=#" & BeginDay & "# AND 売上日<#" & DateAdd("m", 1, BeginDay) & "#"
    Me.FilterOn = True
End Sub
通報 ...