テーブルタブの日付範囲の表示

質問

アクセス２００７を使っています。
テーブルA(tblA)には色々なRecord ID, カスタマーID，日付，データ（M, N, O)　が入っています。
クエリA(qryA)で欲しい日付の範囲のデータが抽出できるように日付のフィールドに
Between [Enter first date:] And [Enter last date:]
を抽出条件に付けました。ここまでは、自分ながらうまくいったと思ったんですが、このクエリＡで抽出したデータのサマリーが欲しくて、テーブルタブを使ってクエリＡのデータを下記のように要約しようとしました。
（01/01/09～02/28/09のサマリー）
カスタマーID　　　　　　　　データ
　　　　　　　　　　Ｍ　　　　　Ｎ　　　　　Ｏ
　　　１　　　　　　１　　　　　１　　　　　
　　　２　　　　　　１　　　　　２
　　　３　　　　　　２　　　　　　　　　　　１
ところがエラーメッセージが
The Microsoft Office Access database engine doesn't recognize'[Enter first date:]'as a valid field name or expression.
と出てきます。
そこで
ＳＱＬビューを見ると
TRANSFORM Count(qryA.[Record ID]) AS [Record IDOfCount]
SELECT qryA.[カスタマーID], qryA.[日付], Count(qryA.[Record ID]) AS [Total Of Record ID]
FROM qryA
GROUP BY qryA.[カスタマーID]
PIVOT qryA.[データ];
となっていました。
WHERE文がいるんじゃないかと思って
WHERE ((tblA.日付) Between [Enter first date:] And [Enter last date:])など入れてみましたが、さっぱりうまくいきません。
ＱＳＬも先日勉強し始めたばかりで、今一歩何が悪いのか分かりません。
どなたかどうやって日付範囲のあるテーブルタブの作り方を教えていただけませんでしょうか？

回答No.3

30246kiku · ベストアンサー

では、サンプルを。
（クエリ「Q_BASE」から、「Q_1」を作り直す）

Private Sub Sample1()
　　Dim sStart As String
　　Dim sEnd As String
　　Dim wdt As Date

　　sStart = InputBox("抽出開始日を入力してください。")
　　sEnd = InputBox("抽出終了日を入力してください。")

' 入力されたのが日付として扱えるか確認
　　On Error GoTo ERR_HAND
　　wdt = DateValue(sStart)
　　wdt = DateValue(sEnd)

　　On Error Resume Next
　　CurrentDb.QueryDefs.Delete "Q_1"

　　CurrentDb.CreateQueryDef "Q_1", _
　　　　Replace(Replace(CurrentDb.QueryDefs("Q_BASE").SQL, "XXXXXX", sStart), "YYYYYY", sEnd)

　　Exit Sub

ERR_HAND:
　　MsgBox "年月日の指定エラーです", vbCritical
End Sub

※ クエリ「Q_1」が初めから存在するのであれば、以下の方が良いかも
　　（クエリ「Q_1」のSQL部分を書き換えるだけ）

　　On Error Resume Next
　　CurrentDb.QueryDefs.Delete "Q_1"

　　CurrentDb.CreateQueryDef "Q_1", _
　　　　Replace(Replace(CurrentDb.QueryDefs("Q_BASE").SQL, "XXXXXX", sStart), "YYYYYY", sEnd)

　　↓

　　CurrentDb.QueryDefs("Q_1").SQL = _
　　　　Replace(Replace(CurrentDb.QueryDefs("Q_BASE").SQL, "XXXXXX", sStart), "YYYYYY", sEnd)

お礼

出来ました！おまけに、ボタンを押すと出てくるようにしました。何とか間に合いそうです。30246kikuさんのおかげです。感謝。

回答No.2

30246kiku

TRANSFORM Count(*) AS 式1
SELECT テーブル名.名前
FROM テーブル名
WHERE (((テーブル名.日付) Between #2009/2/1# And #2009/2/28#))
GROUP BY テーブル名.名前
PIVOT テーブル名.タスク;

を

TRANSFORM Count(*) AS 式1
SELECT テーブル名.名前
FROM テーブル名
WHERE (((テーブル名.日付) Between [開始日] And [終了日]))
GROUP BY テーブル名.名前
PIVOT テーブル名.タスク;

とすると、エラーになりますね。

ちょっと私で考えれる別法（実現方法）

ここで、必要となるクエリ名を「Q_1」と仮定します。

クエリの初期パターンとして、クエリ「Q_BASE」を以下の内容で作っておきます。

TRANSFORM Count(*) AS 式1
SELECT テーブル名.名前
FROM テーブル名
WHERE (((テーブル名.日付) Between #XXXXXX# And #YYYYYY#))
GROUP BY テーブル名.名前
PIVOT テーブル名.タスク;

クエリ「Q_1」を使いたくなった場合、以下の処理をVBAで行います。

On Error Resume Next
CurrentDb.QueryDefs.Delete "Q_1"

CurrentDb.CreateQueryDef "Q_1", _
　　Replace(Replace(CurrentDb.QueryDefs("Q_BASE").SQL, "XXXXXX", "2009/2/1"), "YYYYYY", "2009/2/28")

クエリ「Q_1」を削除し、クエリ「Q_BASE」のXXXXXX/YYYYYYを書き換えた新しいクエリ「Q_1」を作成します。
入力させるのであれば、InputBox等を使用し、上記書き換え部分に用いればよいのでは。
フォーム等で、Q_1を書き換えたら再クエリするとか。

そもそも最初の方法でエラーにならないものがあるのかも。

失礼しました。

補足

VBAを使う前までは、楽勝です。
VBAは使ったことがないのでちょっと理解するのに時間が必要です。InputBoxを使えば、出来そうですね。今の私では出来ませんけど(^^;
糸口が見えたようなので、勉強してきますが、デッドラインが近づいていますので、Inputboxの使い方もふくめてVBAをサラサラと教えてくだされば感謝感激です。

回答No.1

30246kiku

今回のは理解できていないので、前回のデータを使って書いてみます。
http://oshiete1.goo.ne.jp/qa4756150.html

以下のようなテーブルになったとします。

名前,　日付,　　タスク
A,　　2009/2/10,　M
A,　　2009/2/11,　N
B,　　2009/2/12,　M
C,　　2009/2/13,　O
A,　　2009/3/1,　　M

TRANSFORM Count(*) AS 式1
SELECT テーブル名.名前
FROM テーブル名
GROUP BY テーブル名.名前
PIVOT テーブル名.タスク;

であると、

名前　　M　　　N　　　O
A　　　２　　　１　
B　　　１　
C　　　　　　　　　　１

の表示になります（前回のもの）が、

TRANSFORM Count(*) AS 式1
SELECT テーブル名.名前
FROM テーブル名
WHERE (((テーブル名.日付) Between #2009/2/1# And #2009/2/28#))
GROUP BY テーブル名.名前
PIVOT テーブル名.タスク;

とすると、

名前　　M　　　N　　　O
A　　　１　　　１　
B　　　１　
C　　　　　　　　　　１

になります。

補足

すいません。説明が分かりづらかったですね。m(_ _)m
前回のアドバイスからQSLを見て勉強しています。で、WHERE文だと思ったんです。アドバイス通りWHERE (((tblA.日付) Between #2009/2/1# And #2009/2/28#))をいれて見たところ動きました。しかし、このデータベースへの入力、日常の管理を他の者がやっている関係上、その人にQSL文を見せたり、デザインビューを見せたりしたくないので、そのつど日付を聞いてくるような形をとりたいんです。しかし、WHERE (((tblA.日付) Between #2009/2/1# And #2009/2/28#))の代わりにWHERE (((tblA.日付) Between [Enter first date:] And [Enter last date:]))を入れるとやはりエラーメッセージが出ます。何か他の方法を考えないといけないんですかね？