Microsoft Access 掲示板

以前のトピックで横から失礼します。Sample747を拝見して自分なりに作成してみました。タブを選択してその1ヶ月分のデータを印刷したいのですが全データが印刷されてしまいます。今までは期間をクエリで設定していました。今回みたいなタブだと何のコードを使用すればいいのかわかりません。よろしくお願いします。

Private Sub コマンド26_Click()
Dim res As Long

※この間にfilterのコードを書いてみましたが駄目でした。

res = MsgBox("月間請求書リストを印刷しますか？" & vbCrLf & "印刷する場合は【はい】をプレビューの場合は" & "【いいえ】をクリックして下さい", vbYesNoCancel)

Select Case res
    Case vbYes

    DoCmd.OpenReport "R_　　", acViewNormal

    Case vbNo
    DoCmd.OpenReport "R_　　", acViewPreview

    Case Else
        MsgBox "【キャンセルしました】"

    End Select
End Sub