Access VBA質問箱 IV

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

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


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

1701 / 9994

←次へ　｜　前へ→


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

247b - 10/4/6(火) 16:17 -


	引用なし

	パスワード

机上デバッグでは埒があかないので、カラム名を同じにしたテーブルを使用して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

736 hits

▼

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