| |
いつもお世話になります。
下記の
>コマンド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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
