hatena
hatena
2020/09/03 (木) 12:06:27
そのコードだと開いてないとダメですね。
下記のコードだと開いてなくても、開いていても大丈夫です。
開いてない場合、フィルターがかかった状態で開きます。
開いている場合は、そのフォームがアクティブになってフィルターがかかります。
Private Sub btn今月分_Click()
Docmd.OpenForm "F_注文", , ,"売上日 Between #" & Date & "# AND #" & DateAdd("m", 1, Date)-1 & "#"
End Sub
通報 ...