Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1700 / 9994

←次へ　｜　前へ→


	【11585】Re:フィルタ適用後のEXCEL出力時について

VBA初心者 - 10/4/6(火) 18:16 -


	引用なし

	パスワード

いつもお世話になります。
　下記の
>コマンド36_Click　のCase2のSQLですが、以下のもので置き換え可能ですか？
>問題ない場合、これを使ってプログラム実行してみてください
を試してみましたが、下記の場所にて「演算子がありません。」とエラー表示
されてしまいます。

--------------ＶＢＡ----------------------------------------------
TOHO_TABLE.E In
(SELECT tmp2.E FROM
(SELECT COUNT(*),Tmp.E FROM TOHO_TABLE As Tmp　
GROUP BY Tmp.E HAVING Count(*)>1) AS Tmp2)
AND TOHO_TABLE.E<>''
ORDER BY TOHO_TABLE.E DESC
--------------------------------------------------------------------
上記の条件を外すとエラーは表示されなですが。欲しいデータが取れません。
　誠に申し訳ないですが、よろしくお願いします。
　
▼247b さん：
>机上デバッグでは埒があかないので、カラム名を同じにしたテーブルを使用してSQLを作りました。
>あまり良い例ではありませんが、動作は確認しています。問題は欲しいデータが取れるかどうかなので、確認してください。
>
>コマンド36_Click　のCase2のSQLですが、以下のもので置き換え可能ですか？
>問題ない場合、これを使ってプログラム実行してみてください
>
>select TOHO_TABLE.[COMM]
>,TOHO_TABLE.[A]
>,TOHO_TABLE.[C]
>,TOHO_TABLE.[G]
>,TOHO_TABLE.[D]
>,TOHO_TABLE.[E]
>,TOHO_TABLE.[F]
>,TOHO_TABLE.[H]
>,TOHO_TABLE.[コメント]
>,TOHO_TABLE.[I]
>,TOHO_TABLE.[J]
>,TOHO_TABLE.[K]
>from TOHO_TABLE
>WHERE
> TOHO_TABLE.E In
>　(SELECT tmp2.E FROM
>　 (SELECT COUNT(*),Tmp.E FROM TOHO_TABLE As Tmp　
>　　GROUP BY Tmp.E HAVING Count(*)>1) AS Tmp2)
> AND TOHO_TABLE.E<>''
>ORDER BY TOHO_TABLE.E DESC
>
>
>コマンド41_Click　のSQLも上記SQLを使って試した版を記載しておきます。
>SELECT
>TEST_TABLE.A,
>TEST_TABLE.COMM AS テスト,
>TEST_TABLE.C AS 名Ａ,
>TEST_TABLE.D AS 名Ｂ,
>TEST_TABLE.E AS アドレス,
>TEST_TABLE.F AS 機会番号,
>TEST_TABLE.G AS 名Ｃ,
>TEST_TABLE.H AS 使用者,
>TEST_TABLE.コメント,
>TEST_TABLE.I,
>TEST_TABLE.J,
>TEST_TABLE.K
>FROM (select TOHO_TABLE.[COMM]
>,TOHO_TABLE.[A]
>,TOHO_TABLE.[C]
>,TOHO_TABLE.[G]
>,TOHO_TABLE.[D]
>,TOHO_TABLE.[E]
>,TOHO_TABLE.[F]
>,TOHO_TABLE.[H]
>,TOHO_TABLE.[コメント]
>,TOHO_TABLE.[I]
>,TOHO_TABLE.[J]
>,TOHO_TABLE.[K]
>from TOHO_TABLE
>WHERE
> TOHO_TABLE.E IN
>　(SELECT tmp2.E FROM
>　 (SELECT COUNT(*),Tmp.E FROM TOHO_TABLE As Tmp　
>　　GROUP BY Tmp.E HAVING Count(*)>1) AS Tmp2)
> AND TOHO_TABLE.E<>''
>ORDER BY TOHO_TABLE.E DESC
> ) AS TEST_TABLE
>WHERE True
>ORDER BY TOHO_TABLE.E DESC

794 hits

▼

【11571】フィルタ適用後のEXCEL出力時について VBA初心者 10/4/2(金) 17:08