Microsoft Office AccessコミュのSQLで作成したクロス集計クエリにFilterをかけたい

こんにちは。
探してみたのですが、見つからなかったのでトピ立てさせていただきます。
既出でしたらご指摘下さい。

よろしくお願いします。

Q_Query1で、ID(主キー)をグループ化してをクロス集計して出した合計値「金額の合計」を、T_Table1の「合算」というフィールドにコピーする（Update）プログラムを下記の通り作りました。

実行時エラー3021というエラーが出て、　rs1.Update "合算", rs!金額の合計　の部分で止まってしまいます。

エラー内容は、EOFかBOFがTrueになっているかカレントレコードが存在しない、というものですが、T_Table1にはレコードがたくさんあります。

また、SQLのクロス集計クエリについても、Do Until ～Loopの間をイミディエイトでデバックするときちんと出てくるので、クエリ集計に問題がないと考えています。

ということは、上記のようなエラーが出るはずないと思うのですが、理由がわからなくて困っています。

ひょっとして、SQLのクロス集計クエリにはFilterメソッドは使用できない、など、そもそものルールがあるのでしょうか。

もしお分かりになる方がいらっしゃいましたら、お教え下さい。
よろしくお願いします。

下記、実際のコードを記します。

Public Sub copy()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command

Set cn = CurrentProject.Connection
Set cmd.ActiveConnection = cn

rs1.Open "T_Table1", cn, adOpenKeyset, adLockOptimistic, _
adCmdTableDirect

cmd.CommandText = "select Q_Query1.ID, sum(Q_Query1.Price) as 金額の合計 & _
" from Q_Query1 group by Q_Query.ID;"

Set rs = cmd.Execute

Do Until rs.EOF

rs1.Filter= "ID=" & rs!ID
rs1.Update "合算", rs!金額の合計
rs.MoveNext

Loop

rs.Close: Set rs = Nothing
rs1.Close: Set rs1 = Nothing
cn.Close: Set cn = Nothing

コメント(11)

最初
全て
最新の40件

[1] mixiユーザー 10月05日 23:45

>cmd.CommandText = "select Q_Query1.ID, sum(Q_Query1.Price) as 金額の合計 & _

この辺、" 足りなくありませんか？

[2] mixiユーザー 10月06日 00:03

＞ダグさん

すみません！

　as　金額の合計" & _

と改行に必要なコードは記載しています。

実際のコードをコピペして、テーブル名などを変更した時に消してしまったようです。
すみませんです。

[3] mixiユーザー 10月06日 00:05

＞ダグさん

一度で済まずすみません。

ちなみに、ＡＤＯにてＳＱＬクロス集計したレコードセットについてFilterメソッドが使えない･･･というようなことは、何かお教えいただけることありませんでしょうか。

体系的に勉強したことがないので、そういう大前提的なことがわからないことが結構あるんです。。。

[4] mixiユーザー 10月06日 15:09

> しまかよasさん

ＡＤＯだからとかＤＡＯだからとか、聞いたことはありませんが…そんなことはないと思いますよ。

group by 以降が違うかも？

[5] mixiユーザー 10月06日 16:43

rs1　にフィルターをかけたときに rs1 のレコード件数が０件になったのでは？

[6] mixiユーザー 10月06日 16:45

＞ダグさん

あ、またもやタイプミスで"１"が抜けています･･･苦笑

２番のレスの通り、実際のクエリ名とフィールド名を載せずにその部分だけ書き換えたので、タイプミスです。
何度もすみませんです。

実際のコードでは、SQLのクロス集計部分に関するエラーは発生していません。
デバッグプリントも正しい数字が出るので、問題ないかと。。。

何度も何度もありがとうございます。

[7] mixiユーザー 10月06日 17:00

＞かくさん

こんにちは。
お返事ありがとうございます。

ｒｓの先頭レコードのＩＤと同じＩＤを持つｒｓ１のレコードが０件、なので、最初っからＥＯＦがTrue･･･、という理解で問題ないでしょうか？
（初心者なもので、質問がくどく、すみません）

[8] mixiユーザー 10月06日 17:24

＞ダグさん
＞かくさん

再びこんにちは。

念のためと思い、もう一度デバッグでレコードセットをチェックしてみたところ、実際はＩＤフィールドは０番～２２８５番まで存在するのに、１９２９番からしかデバッグされていないことがわかりました。

これは、ＤＯ　～　Ｌｏｏｐを外して、先頭レコードだけデバッグすると、きちんとＩＤが０のレコードがイミディエイトに返ります。
Ｍｏｖｅｎｅｘｔを加えてひとつだけ進めてやると、次のレコードが返ります。

ですが、Ｄｏ～Ｌｏｏｐ内にデバッグプリントを記述すると、先頭レコードは１９２９番で、それよりＩＤが大きい番号しか返りません。

もし上記について何かアドバイスしていただけることがありましたら、教えてください。
何度もすみません。

このレコードセットの取得の問題について、自分でも少し色々とやってみます。

[9] mixiユーザー 10月06日 20:44

８の回答

rs　の並び順が指定されていないので、どのレコードが先頭なのかは分かりません。
今回のケースは、クロス集計のSQL文に　ORDER BY 句を付与して並ばせたほうがよさそうです。

７の回答

rs の先頭のレコードに対するものが rs1 にないとき Update の行でエラーが発生します。
ですから先頭のレコードとは限らず、途中でも rs1 のレコードが見つからないこともあるかもしれません。

[10] mixiユーザー 10月06日 21:57

＞かくさん

こんばんは。
詳しい解説ありがとうございます！
とってもわかりやすいです。

９の回答を参考に明日またトライしてみます。
わからないことがあれば、またここへ書き込みさせていただきますので、よかったらまたお返事ください。
よろしくお願いします。

ありがとうございます。

[11] mixiユーザー 10月07日 09:14

＞かくさんへ

おはようございます。
８：３０からやってみて、解決しました！
本当にありがとうございました。

ご指摘の通り、ｒｓの先頭レコードに該当するｒｓ１が存在したいためのエラーでした。
具体的には、ｒｓ１は１６１３番より大きいレコードしかないのに、ｒｓは０から存在する、という内容です。

本当に本当にありがとうございます！
また何かわからないことがあったら、お尋ねするかもしれませんが、よろしくお願いします。

ログインすると、みんなのコメントがもっと見れるよ