Access 月曜当日に先週の月曜日から日曜日までの日付を8桁で表示するには？

Question

事務職にてAccessを使用しております。

Between演算子を使用し、1週間のうちどこで集計しても「先週の月曜日から先週の日曜日まで」の日付を8桁で表示させるよう抽出条件を記述しています。

当初、下記のように記述を試みました。

Between Format(DateAdd("d",-Weekday(Date(),3),Date()-7),"yyyymmdd") And Format(DateAdd("d",-Weekday(Date(),2),Date()),"yyyymmdd")

今日が7月11日火曜日の場合、下記のように20230703から20230709までの7日間が表示されればOKとなります。

上記記述だと火曜日以降に集計すると目的の値が抽出されますが、
月曜当日に集計を実行すると、下記のように2週間分（14日分）の日付が抽出されてしまいます。

月曜当日に集計しても、問題なく7日分の日付を抽出するにはどのような記述がベストでしょうか？
ご教示頂けますと幸いです。
よろしくお願いいたします。

Answer 1

Between演算子を使用し、1週間のうちどこで集計しても「先週の月曜日から先週の日曜日まで」の日付を8桁で表示させるよう抽出条件を記述

正しくは「今週の日曜日まで」であり、また[請求日]のデータ型がテキスト型であると仮定した場合。

PARAMETERS [基準日を入力] DATETIME;
SELECT [MACH_SUB_請求明細ファイル].[請求日], 
       Weekday(Format([MACH_SUB_請求明細ファイル].[請求日],"0000/00/00"),2) AS [月曜日を週初日とした場合の請求日の曜日], 
       Nz([基準日を入力],Date()) AS [基準日], 
       DateAdd("d",1-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())) AS [基準日の週初日], 
       DateAdd("d",7-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())) AS [基準日の週末日],
       DateAdd("d",-6-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())) AS [基準日の前週初日], 
       DateAdd("d",-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())) AS [基準日の前週末日]
FROM [MACH_SUB_請求明細ファイル]
WHERE (IsDate(Format([MACH_SUB_請求明細ファイル].[請求日],"0000/00/00")) = True) 
  AND ([MACH_SUB_請求明細ファイル].[請求日] BETWEEN Format(DateAdd("d",-6-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())),"yyyymmdd") 
                                                AND Format(DateAdd("d",-Weekday(Nz([基準日を入力],Date()),2),Nz([基準日を入力],Date())),"yyyymmdd")) 
ORDER BY [MACH_SUB_請求明細ファイル].[請求日];

クエリパラメータ[基準日を入力]には日付/時刻型の値を入力して下さい。
（省略時は現在のシステム日付を基準日とします）

Comments

[Keith]

sk.exe 様
ありがとうございます。おっしゃる通り「先週の日曜日」という認識がそもそもの誤りだったようです。ご丁寧かつ実用的なご回答を頂きありがとうございます。

ご両名様とも大変に有用なアドバイスを頂戴し、大変にありがとうございました。
とても有り難いご回答でしたが、ベストアンサーは最初にご回答頂きましたhatena19様へとつけさせて頂きました。この度は良いお知恵をお貸し頂き、ありがとうございました。本件はこれにて失礼致します。

Answer 2

下記でどうでしょう。

Between Format(DateAdd("d",-Weekday(Date(),2)-6,Date()),"yyyymmdd") And Format(DateAdd("d",-Weekday(Date(),2),Date())),"yyyymmdd")

Comments

[Keith]

hatena19 様
抽出できました。こちらが当初意図した書式に合わせてのご回答を頂きありがとうございます。大変速やかなご回答、ありがとうございます。